我现在有个用applet制作的滚动文字段 ,我现在希望点击其中的某行的方式得到那行文字,并将它显示在页面的右边。
代码如下:(可执行)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<applet code="VertTextScroller.class" width="335" height="150">
<param name=numberOfLines value="23">
<param name=background value="white">
<param name=scrollDelay value="15">
<param name=lineSpace value="17">
<param name=linkFrame value="_top">
<param name=linkColor value="red">
<param name=manualPause value="0">
<param name=linkClick value="1">
<param name=sizeDefault value="17">
<param name=lineDefault value=" ">
<param name=colorDefault value="black">
<param name=fontDefault value="Helvetica">
<param name=styleDefault value="PLAIN">
<param name=linkDefault value=" ">
<param name=pauseValueDefault value="0">
<param name=lineOffsetDefault value="0">
<param name=line1 value="Free Vertical text scroller">
<param name=pauseValue1 value="7500">
<param name=style1 value="BOLD">
<param name=color1 value="red">
<param name=line2 value="If you're looking for a professional look">
<param name=line3 value="and feel for your web site, or your site's">
<param name=line4 value="getting a little cluttered and you need to">
<param name=line5 value="save some real estate, why pay for a">
<param name=line6 value="professional quality vertical text scroller">
<param name=line7 value="when this one is free?">
<param name=line10 value="Features">
<param name=pauseValue10 value="9500">
<param name=style10 value="BOLD">
<param name=color10 value="red">
<param name=line11 value="Lou Schiano's home page">
<param name=color11 value="blue">
<param name=style11 value="ITALIC">
<param name=link11 value="http://www.geocities.com/SiliconValley/Bay/6879/">
<param name=lineOffset11 value="65">
</applet>
<body></body>
</html>