Dim lvstr As String
lvstr = "这是一个滚动字幕"
WebBrowser1.DocumentText = _
"<html><body>" & _
"<marquee direction='left' bgcolor=black behavior='scroll' scrollamount='5' scrolldelay='15'> <font color=green size=20 style='font-weight: bolder'>" & lvstr & " </font></marquee>" & _
lvstr = "这是一个滚动字幕"
WebBrowser1.DocumentText = _
"<html><body>" & _
"<marquee direction='left' bgcolor=black behavior='scroll' scrollamount='5' scrolldelay='15'> <font color=green size=20 style='font-weight: bolder'>" & lvstr & " </font></marquee>" & _
"</body></html> "
文字滚动设置
从右往左
代码:<MARQUEE scrollAmount=2 direction=left>从右向左滚动</MARQUEE>
2.从左往右
代码:<MARQUEE scrollAmount=2 direction=right>从左向右滚动</MARQUEE>
3.左右反弹
代码:<MARQUEE scrollAmount=3 behavior=alternate>文字来回滚动</MARQUEE>
4.自上往下
代码:<MARQUEE style="WIDTH: 250p