在要实现滚动的地方，加入此代码 \x0d\x0a\x0d\x0a要输入的文字 \x0d\x0a\x0d\x0aUP是向上， DOWN是向下，Left向左，Right向右\x0d\x0a这两个属性决定文字滚动的速度scrollamount和延时scrolldelay。

1ltmarquee onmouseover=thisstop onmouseout=thisstart 鼠标放上去停止滚动，移开继续滚动ltmarquee 2ltmarquee direction=up scrollamount=3 文字向上滚ltmarquee 3ltmarquee direction=down scrollamount。

在要实现滚动的地方，加入此代码ltmarquee direction=up要输入的文字ltmarquee UP是向上， DOWN是向下，Left向左，Right向右这两个属性决定文字滚动的速度scrollamount和延时scrolldelay，参数值都是正整数如下所示。

borderColor=边框颜色代码 bgColor=背景颜色代码 scrollAmount=滚动速度scrollDelay=设置字幕内容滚动时停顿的时间如果要让滚动看起来流畅，数值应该尽量小 direction=方向上下左右依次是quotupquot，quotdownquot，quotleftquot，quotrightquot width=。

3上面的代码是实现每行文字，1234的自动在网页播放4然后将文件名保存为xxxxhtml文件，既然是网页上展示就保存为html的文件格式5鼠标移动到这个网页文件上网，使用右键选择打开方式，选择浏览器打开6。

lt！DOCTYPE向上下左右不间断无缝滚动效果兼容火狐和IE此处放文字此处放文字此处放文字此处放文字。

下面的参数设置显示内容，可以使用HTML语法改变字体，大小和颜色及连接等var messages=new Arraymessages0=quot 示例滚动新闻 quotmessages1=quot盼望已久的 文歌随笔开通了quotmessages2=quot热烈庆祝。

滚动文字效果 ltmarquee behavior=scroll direction=up srolldelay=300 onMouseOver=stop onMouseout=start 滚动内容1 滚动内容2 滚动内容3 滚动内容4 ltmarquee 把以上代码放在你希望滚动的单元格中，放在代码视图中。

在窗体上键timer控件一个，label一个复制以下代码label用来写上你需要的字幕 Option Explicit Private Sub Form_LoadTimer1Interval = 100 Label1Top = MeScaleHeight End Sub Private Sub Timer1_TimerLabel1。

2先点开代码页面3在文字前面输入ltmarquee4一定要记得后面也再输入一次，前后都要输入的5如果要设置滚动方向在lt里输入direction=quotquot引号中级是字幕的滚动方向，上下左右要设置向右滚动就选right代码就是。

文字写在label的caption属性中，调用timer函数 附上我写的左右往复运动代码，实现image1在picture1中左右往复运动 Private Sub Timer1_TimerIf Image1Left = Picture1ScaleWidth Image1Width Then k = 1 If。