滚动字幕代码(滚动字幕特大全代码 )
一、html的滚动字幕怎么实现,请以简单的代码解释为例,谢谢
<marquee direction=up behavior=scroll loop=3 scrollamount=1 scrolldelay=10 align=top bgcolor=#ffffff height=300 width=30% hspace=20 vspace=10 onmouseover=this.stop() onmouseout=this.start()>此处输入滚动内容</marquee>
◎ direction表示滚动的方向，值可以是left，right，up，down，默认为left
◎ behavior表示滚动的方式，值可以是scroll（连续滚动）slide（滑动一次）alternate（往返滚动）
◎ loop表示循环的次数，值是正整数，默认为无限循环
◎ scrollamount表示运动速度，值是正整数，默认为6
◎ scrolldelay表示停顿时间，值是正整数，默认为0，单位似乎是毫秒
◎ align表示元素的垂直对齐方式，值可以是top，middle，bottom，默认为middle
◎ bgcolor表示运动区域的背景色，值是16进制的RGB颜色，默认为白色
◎ height、width表示运动区域的高度和宽度，值是正整数（单位是像素）或百分数，默认width=100% height为标签内元素的高度
◎ hspace、vspace表示元素到区域边界的水平距离和垂直距离，值是正整数，单位是像素。
◎ onmouseover=this.stop() onmouseout=this.start()表示当鼠标以上区域的时候滚动停止，当鼠标移开的时候又继续滚动。
二、求网页中流动字幕、滚动字幕的代码
简单一点的 1.字幕至边框停住<marquee behavior="slide" direction="left" scrollamount="9" scrolldelay="75">移动字幕自右至左停住的效果</marquee><marquee behavior="slide" direction="right" scrollamount="9" scrolldelay="75">移动字幕自左至右停住的效果</marquee> 2.字幕至边框移出循环<marquee scrollamount="9" scrolldelay="75">移动字幕自右至左出屏循环的效果</marquee><marquee direction="right" scrollamount="9" scrolldelay="75">移动字幕自左至右出屏循环的效果</marquee> 3.字幕至边框往复循环<marquee scrollamount="9" scrolldelay="75" behavior="alternate">移动字幕自右至左往复的效果</marquee><marquee direction="right" scrollamount="9" scrolldelay="75" behavior="alternate">移动字幕自左至右往复的效果</marquee>【名词解释】 marquee|声明使用移动文字的效果 scrollamount="9"|移动文字的速度 scrolldelay="75">|移动文字的帧间隔时间 scrollamount/scrolldelay的经验值约为1/9-1/7左右 direction="right"|移动文字的方向（缺省不写本属性为向左） behavior="slide"|字幕至边框停住的效果 behavior="alternate">|字幕至边框往复循环
三、用vb代码如何实现滚动字幕
示例：
PrivateSubForm_Load()
'//预先设定要显示的内容
content="滚动字幕示例控制文本的循环滚动"
'//获取内容长度
length=Len(content)
'//label1控件，手动调整
'//接着需要选择字体大小
SetMe.Font=Label1.Font'//方便借用Form.TextHeight方法
Dimfont_heightAsLong,font_widthAsLong,sizeAsLong
size=Label1.Font.size
font_height=Me.TextHeight("循环滚动")
font_width=Me.TextWidth("循环滚动")
Whilefont_height<=Label1.HeightAndfont_width<=Label1.Width
size=size+1
Label1.Font.size=size
font_height=Me.TextHeight("循环滚动")
font_width=Me.TextWidth("循环滚动")
Wend
Label1.Font.size=size-1'//选择最合适的字体大小
pos=1'//从第一个字符开始读取
EndSub
PrivateSubCommand1_Click()
Timer1.Interval=1000'1000毫秒执行一次
EndSub
PrivateSubTimer1_Timer()
DimsizeAsLong,tempAsString
'//每次显示5个长度单位的内容
size=length-pos'//得到截取的长度大小
Ifsize<4Then'//当不足5个长度单位时
temp=Mid(content,pos,size+1)
temp=temp&Mid(content,1,4-size)
pos=5-size
Else
temp=Mid(content,pos,5)
pos=pos+5
EndIf
Label1.Caption=temp'//把截取的文本内容显示出来
EndSub
扩展资料
VB设计自动滚动字幕窗体
DimDireAsString
'窗体Load事件
PrivateSubForm_Load()
Dire="向左"
EndSub
'定时器事件
PrivateSubTimer1_Timer()
DimNewColorAsLong
Randomize
NewColor=RGB(Rnd()*256,Rnd()*256,Rnd()*256)
Label1.ForeColor=NewColor
IfDire="向左"Then
Label1.Left=Label1.Left-10
IfLabel1.Left<0ThenDire="向右"
ElseIfDire="向右"Then
Label1.Left=Label1.Left+10
IfLabel1.Left+Label1.Width>Me.ScaleWidthThenDire="向左"
EndIf
EndSub