各种滚动字幕代码
- 格式:doc
- 大小:56.00 KB
- 文档页数:11
html滚动字幕制作滚动字幕效果参数制作滚动字幕效果:marquee标签如下:<MARQUEE direction=up height=146 onmouseout=start() onmouseover=stop() scrollAmount=4></marquee>参数说明:direction滚动方向:up向上滚动,down向下滚动,left向左滚动,right向右滚动behavior滚动方式:scroll绕来绕去,slide滚动一次就停下来,alternate来回滚动scrollAmount滚动速度:数值越大滚动越快scrollDelay滚动延迟:数值越大延迟时间越长loop循环次数:循环几次bgcolor背景颜色height高度width宽度onmouseout=start() onmouseover=stop()鼠标悬停停止,离开继续滚动移动方式可以系属性果度改...下上左右都得...滚动字幕的使用可以增加网页的动感,让网页显得更有生气。
当然用javascript可以实现滚动字幕效果;使用Dreamweaver的图层再用其时间轴功能可以做出非常漂亮的滚动看板。
但相对而言,用HTML的<marquee>滚动字幕标记所需的代码最少,虽然效果不是最好,但确实能够以较少的下载时间换来较好的效果。
该标记语法格式如下:<marqueealigh=left|center|right|top|bottombgcolor=<BR>direction=left|right|up|downbehavior=<BR>height=<BR>hspace=<BR>scrollamount=<BR>Scrolldelay=<BR>width=<BR>VSpace=<BR>loop= >滚择不同的参数,滚动字幕会有不同的显示方式。
几种文字、图片滚动代码1.<marquee onmouseover=this.stop() onmouseout=this.start()>鼠标放上去停止滚动,移开继续滚动。
</marquee>效果如下:2.<marquee direction=up scrollamount=3 >文字向上滚。
</marquee>效果如下:3.<marquee direction=down scrollamount=3 >文字下向滚。
</marquee>效果如下:文字移动速度的设置:请注意下面语句中的红色属性4.<marquee direction="left" scrolldelay="60"> 文字部分</marquee>IE默认值为60(单位:毫秒)取值越大,移动越慢(小于60,IE仍默认为60)。
效果如下:5.常用字体:宋体黑体楷体_GB2312仿宋_GB2312新宋体幼圆隶书方正舒体华文新魏华文行楷华文细黑华文彩云6.常用字体颜色:浅绿----aqua黑----black兰----blue紫红----fuchsia,灰----gray绿----green亮绿----lime茶----maroon,深兰----navy橄榄----olive紫----pourple红---red,银----silver青----teal白----white黄----yellow紫红--purple7.图片、文字左右移动-代码如下<marquee width=100% behavior=alternate><img src="uploadpic/2005040904472464883.gif"></marque e>效果如下:。
python滚动字幕写在前⾯:最近学python,爬⾍⽅⾯感兴趣,顺便还可以了解下⼈⼯智能吧。
下⾯是两种⽅式做滚动字幕,直接贴代码了:1.第⼀种:1import time23 advText = input("请输⼊你喜欢的⼴告词:")45while True:6 LR = input("请输⼊向左或者向右L/R:")7 LRlist = ['L','R']8if LR in LRlist:9break10print("您输⼊有误,请重新输⼊!")1112while True:13 sd = input("请您输⼊你想轮播的速度:")14if sd.isnumeric():15break16print("您输⼊有误,请重新输⼊:")1718while True:19if LR == "R":20 advText = advText[-1] + advText[:-1]21else:22 advText = advText[1:] + advText[0]23print('\r'+advText,end='',flush=True)24 time.sleep(int(sd))第⼆种:1import os, time23def main(): # ⽤函数封装,可复⽤性会⾼⼀些(可在其他的.py⽂件⾥调⽤该函数。
)4 content = ' ⼀起学Python '# ⼴告词可⾃定义。
5while True:6 os.system('clear') # 完成清屏:清屏和打印结合起来,形成滚动效果。
7print(content)8 content = content[1:] + content[0] # 这⾏代码相当于:将字符串中第⼀个元素移到了最后⼀个。
HTML滚动代码大全HTML滚动代码大全[HTML代码]会移动的文字(Marquee)Marquee标记用于在可用浏览区域中滚动文本。
这个标记只适用于IE3以后的版的浏览器。
格式:<MARQUEE ALIGN="…"BEHAVIOR="…"BGCOLOR="…"DIRECTION="…"HEIGHT="…"WIDTH="…"HSPACE="…"VSPACE="…"LOOP="…"SCROLLAMOUNT="…"SCROLLDELAY="…"ONMOUSEOUT=this.start()ONMOUSEOVER=this.stop()>…</MARQUEE>属性:ALIGN:用于按设定的值对齐滚动的文本。
ALIGN可以设定的值有:LEFT,CENTER,RIGHT,TOP,BOTTOM。
此属性不是必须使用的。
例:<MARQUEE ALIGN="TOP">这段滚动文字设定为上对齐</MARQUEE>BEHAVIOR:可以在页面上一旦出现文本时让浏览器按照设定的方法来处理文本。
如果设定的方法是SLIDE,那么文本就移动到文档上,并停留在页边距上。
如果设定为ALTERNATE,则文本从一边移动到另一边。
如果设定为SCROLL,文本将在页面上反复滚动。
本属性不是必须使用的。
可以设定的值有:SILIDE,ALTERNATE,SCROLL。
例:<MARQUEE BEHAVIOR="ALTERNATE">文字从一边移动到另一边</MARQUEE>BGCOLOR:用于设定字幕的背景颜色。
背景颜色可用RGB、16进制值的格式或颜色名称来设定。
带背景的彩色滚动字幕代码1、滚动字代码(左右):<marquee border="0" align="middle" scrolldelay="120">吉祥如意图书馆</marquee>2、滚动字幕代码(上下):<MARQUEE scrollAmount=1 scrollDelay=77 direction=up width=270 height=77onmouseout="this.start()"onmouseover="this.stop()">我不想擁有愛你的每一夜<BR>我也不想要對不起全世界<BR>所以不需要解釋誰<BR>所以可以溫柔不退<BR>一切就看你心裡要不要勇敢些</MARQUEE>3、带颜色的阴影效果文字代码:吉祥如意图书馆吉祥如意图书馆<P align=center><FONT style="FONT-SIZE: 20pt; FILTER:dropshadow(color=#228B22,offX=4,offY=2,Positive=1); WIDTH: 100%; COLOR: #ff7f50; LINE-HEIGHT: 150%; FONT-FAMILY: 华文行楷"><I><B>吉祥如意图书馆</B></I></FONT></P>4、渐变效果文字代码:吉祥如意图书馆吉祥如意图书馆<P align=center><FONT style="FONT-SIZE:30pt;filter:alpha(opacity=100,style=1);WIDTH:100%;COLOR:red;LINE-HEIGHT:100%;FONT-FAMILY:华文行楷"><B>吉祥如意图书馆</B></FONT></P>代码说明:opacity属性:设置透明度,取值0至100之间的任意数值,100表示完全不透明;style属性:设置渐变风格,0表示均匀渐变,1表示线性渐变,2表示放射渐变,3表示直角渐变。
上下左右滚动文字代码上下左右滚动文字代码下左右滚动文字代码字滚动代码1、来回滚动(marquee behavior=" alternate ")(font color=red)文字来回滚动(/marquee )实际效果:文字来回滚动~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~<br />2、向一边滚动(marquee)(font color=#颜色代码)文字向一边滚动(/marquee )实际效果:文字向一边滚动~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~3、走走停停(marquee scrolldelay=500 scrollamount=100)文字走走停停(/marquee)实际效果:文字走走停停~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~4、只走几趟(以3趟为例)(marquee loop=3 width=50% behavior=scroll )文字只走3趟(/marquee)实际效果:文字只走3趟~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~5、选定滚动方向(marquee direction=left )文字自右向左移(/marquee)实际效果:文字自右向左移~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~(marquee direction=right )文字自左向右移(/marquee)实际效果:文字自左向右移~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~<marquee scrollamount=8>文字很快滚。
</marquee>文字很快滚。
文字滚动代码一、简单的横向滚动1、代码:<MARQUEE>你的文字</MARQUEE>2、效果:你的文字二、加以控制的横向滚动1、代码:<MARQUEE scrollamount="3" width="300" direction="right">你的文字</MARQUEE>2、效果:你的文字三、加以控制的纵向滚动1、代码:<MARQUEE scrollamount="3" height="100" direction="up">你的文字</MARQUEE>2、效果:你的文字代码说明a)scrollAmount。
它表示速度,值越大速度越快。
如果没有它,默认为6,建议设为1~3比较好。
b)width和height,表示滚动区域的大小,width是宽度,height是高度。
特别是在做垂直滚动的时候,一定要设height的值。
c)direction。
表示滚动的方向,默认为从右向左:←←←。
可选的值有right、down、up。
滚动方向分别为:right表示→→→,up表示↑,down表示↓。
d)scrollDelay,这也是用来控制速度的,默认为90,值越大,速度越慢。
通常scrollDelay 是不需要设置的。
e)behavior。
用它来控制属性,默认为循环滚动,可选的值有alternate(交替滚动)、slide(幻灯片效果,指的是滚动一次,然后停止滚动)滚动文字代码大全1. 文字来回滚动:文字来回滚动代码: <MARQUEE scrollAmount=3 behavior=alternate>文字来回滚动</MARQUEE>2. 向右移动的竖排文字:向右移动的竖排文字向右移动的竖排文字向右移动的竖排文字向右移动的竖排文字代码:<MARQUEE style="LINE-HEIGHT: 120%; WRITING-MODE: tb-rl" scrollAmount=3 scrollDelay=0 direction=up width=250 height=150><P align=left>向右移动的竖排文字</SPAN><BR>向右移动的竖排文字<BR>向右移动的竖排文字<BR>向右移动的竖排文字</P></MARQUEE>3. 向上移动的文字:向上移动的文字向上移动的文字代码: <MARQUEE style="WIDTH: 250px; HEIGHT: 100px" scrollAmount=3 direction=up>向上移动的文字<BR>向上移动的文字</MARQUEE>4. 向下移动的文字:向下移动的文字向下移动的文字代码: <MARQUEE style="WIDTH: 250px; HEIGHT: 100px" scrollAmount=3 direction=down>向下移动的文字<BR>向下移动的文字</MARQUEE>5. 从右向左滚动:从右向左滚动代码: <MARQUEE scrollAmount=2>从右向左滚动</MARQUEE>6. 从左向右滚动:从左向右滚动代码: <MARQUEE scrollAmount=2 direction=right>从左向右滚动</MARQUEE>7. 上下反弹:上下反弹代码: <MARQUEE style="WIDTH: 700px; HEIGHT: 150px" scrollAmount=2 direction=up behavior=alternate>上下反弹</MARQUEE>8. 从左向右文字波浪式移动:从左向右文字波浪式移动代码:<MARQUEE style="WIDTH: 80%; HEIGHT: 100px" scrollAmount=2 direction=up behavior=alternate width="80%"><MARQUEE direction=right>从左向右文字波浪式移动</MARQUEE></MARQUEE>9. 文字来回波浪式移动:文字来回波浪式移动代码:<MARQUEE style="WIDTH: 80%; HEIGHT: 100px" scrollAmount=2 direction=up behavior=alternate width="80%"><MARQUEE direction=right behavior=alternate>文字来回波浪式移动</MARQUEE></MARQUEE>10. 躲躲字,跑给你追:躲躲字,跑给你追代码: <MARQUEE behavior=alternate><MARQUEE scrollAmount=5 width=150>躲躲字,跑给你追</MARQUEE></MARQUEE>11. 原地跳动的文字:祝大家永远幸福代码:<MARQUEE direction=up behavior=alternate width=60 height=120>祝</MARQUEE><MARQUEE direction=up behavior=alternate width=60 height=80>大</MARQUEE><MARQUEE direction=up behavior=alternate width=60 height=120>家</MARQUEE><MARQUEE direction=up behavior=alternate width=60 height=80>永</MARQUEE><MARQUEE direction=up behavior=alternate width=60 height=120>远</MARQUEE><MARQUEE direction=up behavior=alternate width=60 height=80>幸</MARQUEE><MARQUEE direction=up behavior=alternate width=60 height=120>福</MARQUEE>12. 波浪字:波浪字波浪字代码:<MARQUEE style="FILTER: wave(add=0,phase=1, freq=1,strength=15,color=.FFFFFF)" scrollAmount=2 scrollDelay=65 direction=upbehavior=alternate height=120><CENTER>波浪字<BR>波浪字</CENTER></MARQUEE>13. 由中间向两边移动的文字:欢迎光临欢迎光临代码: <P align=center><FONT color=#ee110e size=7 face=宋体><MARQUEE height=50 width=600>欢迎光临</MARQUEE></FONT></MARQUEE><FONT color=#ee110e size=7 face=宋体><FONT color=#ee1111 size=7 face=宋体><MARQUEE direction=right height=50 width=600>欢迎光临</MARQUEE></FONT></MARQUEE></FONT></FONT></P><P align=center><FONT color=#ee110e size=7 face=宋体>14. 由上下向中间移动的字体:祝你快乐祝你快乐代码: <P align=center><MARQUEE style="WIDTH: 510px; HEIGHT: 60px" direction=down height=60 scrollAmount=2><CENTER><FONT color=#ff0000 size=5 face=隶书><B>祝你快乐</B></FONT></CENTER></B></MARQUEE></P><CENTER><MARQUEE style="WIDTH: 513px; HEIGHT: 60px" direction=up height=60 scrollAmount=2><CENTER><FONT color=#ff0000 size=5 face=隶书><B>祝你快乐</B></FONT></CENTER></B></MARQUEE></CENTER>15. 左右运动的文字:浏览愉快浏览愉快代码:<DIV align=center><MARQUEE direction=right height=50 width=600><DIV align=center> <FONT color=#ff0000 size=5>浏览愉快</FONT></DIV></MARQUEE></DIV> <DIV align=center><MARQUEE height=50 width=600><DIV align=center><FONT color=#ff0000 size=5 face=隶书>浏览愉快</FONT></DIV></MARQUEE></DIV>注: 各参数详解:1) scrollAmount。
HTML滚动代码⼤全HTML滚动代码⼤全[HTML代码]会移动的⽂字(Marquee)Marquee标记⽤于在可⽤浏览区域中滚动⽂本。
这个标记只适⽤于IE3以后的版的浏览器。
格式: <MARQUEE ALIGN="…" BEHAVIOR="…" BGCOLOR="…" DIRECTION="…" HEIGHT="…" WIDTH="…" HSPACE="…" VSPACE="…" LOOP="…" SCROLLAMOUNT="…" SCROLLDELAY="…" ONMOUSEOUT=this.start()ONMOUSEOVER=this.stop() >… </MARQUEE> 属性: ALIGN:⽤于按设定的值对齐滚动的⽂本。
ALIGN可以设定的值有:LEFT,CENTER,RIGHT,TOP,BOTTOM。
此属性不是必须使⽤的。
例: <MARQUEE ALIGN="TOP">这段滚动⽂字设定为上对齐</MARQUEE> BEHAVIOR:可以在页⾯上⼀旦出现⽂本时让浏览器按照设定的⽅法来处理⽂本。
如果设定的⽅法是SLIDE,那么⽂本就移动到⽂档上,并停留在页边距上。
如果设定为ALTERNATE,则⽂本从⼀边移动到另⼀边。
如果设定为SCROLL,⽂本将在页⾯上反复滚动。
本属性不是必须使⽤的。
可以设定的值有:SILIDE,ALTERNATE,SCROLL。
例: <MARQUEE BEHAVIOR="ALTERNATE">⽂字从⼀边移动到另⼀边</MARQUEE> BGCOLOR:⽤于设定字幕的背景颜⾊。
html滚动字幕代码<marquee id="scrollArea" height="150" width="380" loop="-1" scrollamount="1" scrolldelay="50" direction="up" onMouseOver=scrollArea.stop()onMouseOut=scrollArea.start()>滚动内容</marquee>参数:a)scrollAmount。
它表示速度,值越大速度越快。
如果没有它,默认为6,建议设为1~3比较好。
b)width和height,表示滚动区域的大小,width是宽度,height是高度。
特别是在做垂直滚动的时候,一定要设height的值。
c)direction。
表示滚动的方向,默认为从右向左(left):←←←。
可选的值有right、down、up。
滚动方向分别为:right表示→→→,up表示↑,down表示↓。
d)scrollDelay,这也是用来控制速度的,默认为90,值越大,速度越慢。
通常scrollDelay是不需要设置的。
e)behavior。
用它来控制属性,默认为循环滚动(scroll),可选的值有alternate(交替滚动)、slide(幻灯片效果,指的是滚动一次,然后停止滚动)滚动字幕代码by - 2006-3-21 19:55:00<marquee id="scrollArea" height="150" width="380" loop="-1" scrollamount="1" scrolldelay="50" direction="up" onMouseOver=scrollArea.stop()onMouseOut=scrollArea.start()>滚动内容</marquee>参数:a)scrollAmount。
滚动文字特效代码集锦一、立体滚动字:1、循环滚动的代码:<marquee scrollamount=3 FONT style="FONT-SIZE: 40pt; FILTER: shadow(color=#AF0530); WIDTH: 100%; COLOR: #f90b46; LINE-HEIGHT: 150%; FONT-FAMILY: 隶书"><B>忘却人性的最初</B></FONT> </marquee>忘却人性的最初2、左右移动的代码:<marquee scrollamount=3 behavior=alternate FONT style="FONT-SIZE: 40pt; FILTER: shadow(color=#AF0530); WIDTH: 100%; COLOR: #f90b46; LINE-HEIGHT: 150%; FONT-FAMILY: 隶书"><B>忘却人性的最初</B></FONT></marquee>忘却人性的最初二、凹凸投影滚动字:1、循环滚动的代码:<marquee scrollamount=3 FONT style="FONT-SIZE: 40pt; FILTER: shadow(color=green); WIDTH: 100%; COLOR: white; LINE-HEIGHT: 150%; FONT-FAMILY: 华文彩云"><B>忘却幸福的微笑</B></FONT> </marquee>忘却幸福的微笑2、左右移动的代码:<marquee behavior="alternate" scrollamount=3 FONT style="FONT-SIZE: 40pt; FILTER: shadow(color=green); WIDTH: 100%; COLOR: white; LINE-HEIGHT: 150%; FONT-FAMILY: 华文彩云"><B>忘却幸福的微笑</B></FONT></marquee>忘却幸福的微笑三、金属滚动字:1、循环滚动的代码:<marquee scrollamount=3 FONT style="FONT-SIZE: 40pt; FILTER: glow(color=black); WIDTH: 100%; COLOR: #e4dc9b; LINE-HEIGHT: 150%; FONT-FAMILY: 华文彩云"><B>忘却邪恶的根源</B></FONT> </marquee>忘却邪恶的根源2、左右移动的代码:<marquee scrollamount=3 behavior="alternate" FONT style="FONT-SIZE: 40pt; FILTER: glow(color=black); WIDTH: 100%; COLOR: #e4dc9b; LINE-HEIGHT: 150%; FONT-FAMILY: 华文彩云"><B>忘却邪恶的根源</B></FONT></marquee>忘却邪恶的根源四、空心金属滚动字:1、循环滚动的代码:<marquee scrollamount=3 FONT style="FONT-SIZE: 40pt; FILTER: shadow(color=black); WIDTH: 100%; COLOR: #e4dc9b; LINE-HEIGHT: 150%; FONT-FAMILY: 华文彩云"><B>忘却等待的烦躁</B></marquee>忘却等待的烦躁2、左右移动的代码:<marquee scrollamount=3 behavior="alternate" FONT style="FONT-SIZE: 40pt; FILTER: shadow(color=black); WIDTH: 100%; COLOR: #e4dc9b; LINE-HEIGHT: 150%; FONT-FAMILY: 华文彩云"><B>忘却等待的烦躁</B></marquee>忘却等待的烦躁五、若隐若现滚动字:1、循环滚动的代码:<MARQUEE style="FONT-SIZE: 40pt; FILTER: alpha(opacity=100,style=3); WIDTH: 100%; COLOR: red; LINE-HEIGHT: 100%; FONT-FAMILY: 华文行楷" scrollAmount=3 FONT><B>忘却临界的恐惧</B></FONT></MARQUEE>忘却临界的恐惧2、左右移动的代码:<MARQUEE behavior=alternate style="FONT-SIZE: 40pt; FILTER: alpha(opacity=100,style=3); WIDTH: 100%; COLOR: red; LINE-HEIGHT: 100%; FONT-FAMILY: 华文行楷" scrollAmount=3 FONT><B>忘却临界的恐惧</B></FONT></MARQUEE>忘却临界的恐惧代码说明:opacity:设置透明度,取值0至100之间的任意数值,100表示完全不透明;style:设置渐变风格,0表示均匀渐变,1表示线性渐变,2表示放射渐变,3表示直角渐变;width:100%则表示参与渐变的对象的宽度,通常都设置为100%。
一、建立第一个滚动字幕。
代码:<marquee scrollAmount="n" width="n" height="n" direction="type" scrollDelay="n" behavior="type" loop="n" onmouseover="this.stop()" onmouseout="this.start()">我的滚动字幕文字</marquee>二、各参数详解:1)、scrollAmount。
它表示速度,值越大速度越快。
如果没有它,默认为6,建议设为1~3比较好。
2)、width和height,表示滚动区域的大小,width是宽度,height是高度。
特别是在做垂直滚动的时候,一定要设height的值。
3)、direction。
表示滚动的方向,默认为从右向左:←。
可选的值有left:←、right:→、down:↓、up:↑。
4)、scrollDelay,这也是用来控制速度的,默认为90,值越大,速度越慢。
通常scrollDelay是不需要设置的。
5)、behavior。
用它来控制属性,默认为循环滚动,可选值有scroll:表示滚动字幕内容向同一方向重复滚动、slide:表示滚动字幕内容从一端向另一端滚动并在另一端停止、alternate表示滚动字幕内容在两端之间来回往复滚动。
6)、loop。
是用来指定滚动字幕的滚动次数的,当它的值为“-1”时,滚动字幕将连续滚动直到浏览器载入下一个页面。
7)、onmouseover="this.stop()"。
鼠标停留在滚动字幕时,停止滚动。
8)、onmouseout="this.start()"。
Private Sub Check2_Click()If Check2.Value = 1 Then Form2.WindowState = 2End SubPrivate Sub Combo1_Click()If Combo1.ListIndex = 0 Then Form1.BackColor = vbBlueIf Combo1.ListIndex = 1 Then Form1.BackColor = vbBlackIf Combo1.ListIndex = 2 Then Form1.BackColor = vbRedIf Combo1.ListIndex = 3 Then Form1.BackColor = vbYellow End SubPrivate Sub Combo2_Click()If Combo2.ListIndex = 0 Then bel1.ForeColor = vbBlueIf Combo2.ListIndex = 1 Then bel1.ForeColor = vbRedIf Combo2.ListIndex = 2 Then bel1.ForeColor = vbGreen If Combo2.ListIndex = 3 Then bel1.ForeColor = vbYellow End SubPrivate Sub Command1_Click()bel1.FontName = "宋体"End SubPrivate Sub Command10_Click()bel1.Caption = "勤奋学习"End SubPrivate Sub Command11_Click()bel1.Caption = "团结友爱"End SubPrivate Sub Command12_Click()bel1.Caption = "认真学习"End SubPrivate Sub Command13_Click()Unload Form1End SubPrivate Sub Command14_Click()Form2.ShowEnd SubPrivate Sub Command15_Click()Unload Form1Unload Form2End SubPrivate Sub Command2_Click()bel1.FontName = "隶书"End SubPrivate Sub Command3_Click()bel1.FontName = "楷体"End SubPrivate Sub Command4_Click()bel1.FontName = "黑体"End SubPrivate Sub Command5_Click()bel1.Caption = "你好"End SubPrivate Sub Command6_Click()bel1.Caption = "学如逆水行舟,不进则退" End SubPrivate Sub Command7_Click()bel1.Caption = "书中自有黄金屋" End SubPrivate Sub Command8_Click()bel1.Caption = "今天的天气是······" End SubPrivate Sub Command9_Click()bel1.Caption = "请同学注意好身体"End SubPrivate Sub Form_Load()Form1.Caption = "流动字幕板"Form2.Caption = "流动字木板"End SubPrivate Sub Option2_Click()bel1.FontSize = 30End SubPrivate Sub Option1_Click()bel1.FontSize = 60End SubPrivate Sub Text1_Change()Text1.Text = Text1.Textbel1.Caption = Text1.TextEnd SubPrivate Sub Timer1_Timer() '从右往左穿透式If Check1.Value = 1 ThenRandomize Timerbel1.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)) Form1.BackColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))End IfEnd SubPrivate Sub Timer2_Timer() '左到右穿透式If Option3.Value = True Thenbel1.Left = bel1.Left + HScroll1.Value If bel1.Left >= Form2.Width Thenbel1.Left = bel1.WidthEnd IfEnd IfEnd SubPrivate Sub Timer3_Timer() '壁面反射(未成功)Dim iAs Integeri = 1If Option5.Value = True Thenbel1.Left = bel1.Left - 1000If bel1.Left + bel1.Width <= Form2.Left Thenbel1.Left = Form2.Left + Form2.WidthEnd IfEnd IfIf Option6.Value = True Thenbel1.Left = bel1.Left + HScroll1.Value * iIf bel1.Left + bel1.Width >= Form2.Width Then i = -1End IfEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 Then Form2.WindowState = 2End SubPrivate Sub Combo1_Click()If Combo1.ListIndex = 0 Then Form1.BackColor = vbBlueIf Combo1.ListIndex = 1 Then Form1.BackColor = vbBlackIf Combo1.ListIndex = 2 Then Form1.BackColor = vbRedIf Combo1.ListIndex = 3 Then Form1.BackColor = vbYellowEnd SubPrivate Sub Combo2_Click()If Combo2.ListIndex = 0 Then bel1.ForeColor = vbBlueIf Combo2.ListIndex = 1 Then bel1.ForeColor = vbRedIf Combo2.ListIndex = 2 Then bel1.ForeColor = vbGreenIf Combo2.ListIndex = 3 Then bel1.ForeColor = vbYellowEnd SubPrivate Sub Command1_Click()bel1.FontName = "宋体"End SubPrivate Sub Command10_Click()bel1.Caption = "勤奋学习"Private Sub Command11_Click()bel1.Caption = "团结友爱"End SubPrivate Sub Command12_Click()bel1.Caption = "认真学习"End SubPrivate Sub Command13_Click()Unload Form1End SubPrivate Sub Command14_Click()Form2.ShowEnd SubPrivate Sub Command15_Click()Unload Form1Unload Form2End SubPrivate Sub Command2_Click()bel1.FontName = "隶书"End SubPrivate Sub Command3_Click()bel1.FontName = "楷体"End SubPrivate Sub Command4_Click()bel1.FontName = "黑体"End SubPrivate Sub Command5_Click()bel1.Caption = "你好"End SubPrivate Sub Command6_Click()bel1.Caption = "学如逆水行舟,不进则退"Private Sub Command7_Click()bel1.Caption = "书中自有黄金屋"End SubPrivate Sub Command8_Click()bel1.Caption = "今天的天气是······"End SubPrivate Sub Command9_Click()bel1.Caption = "请同学注意好身体"End SubPrivate Sub Form_Load()Form1.Caption = "流动字幕板"Form2.Caption = "流动字木板"End SubPrivate Sub Option2_Click()bel1.FontSize = 30End SubPrivate Sub Option1_Click()bel1.FontSize = 60End SubPrivate Sub Text1_Change()Text1.Text = Text1.Textbel1.Caption = Text1.TextEnd SubPrivate Sub Timer1_Timer() '从右往左穿透式If Check1.Value = 1 ThenRandomize Timerbel1.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)) Form1.BackColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))End IfEnd SubPrivate Sub Timer2_Timer() '左到右穿透式If Option3.Value = True Thenbel1.Left = bel1.Left + HScroll1.Value If bel1.Left >= Form2.Width Thenbel1.Left = bel1.WidthEnd IfEnd IfEnd SubPrivate Sub Timer3_Timer() '壁面反射(未成功)Dim iAs Integeri = 1If Option5.Value = True Thenbel1.Left = bel1.Left - 1000If bel1.Left + bel1.Width <= Form2.Left Thenbel1.Left = Form2.Left + Form2.WidthEnd IfEnd IfIf Option6.Value = True Thenbel1.Left = bel1.Left + HScroll1.Value * iIf bel1.Left + bel1.Width >= Form2.Width Then i = -1End IfEnd IfEnd Sub。