WebBrowser实现文字上下滚动一例.

ningyong58 · 发表于 2010-2-10 06:02

<框形动画---怪异窗体>动画效果见这个帖子
http://club.excelhome.net/viewth ... hlight=%B6%AF%BB%AD

Private Sub UserForm_Activate()
Dim ss
ss = Sheets(1).Range("a1").Value
  WebBrowser1.Navigate "about:blank"
  WebBrowser1.Document.Open
  WebBrowser1.Document.writeln ss '经过测试,这是文字由下向上滚动的语句.
  MsgBox "按下黄色区域可拖动窗体" & Chr(10) & "单击兰色边框可关闭窗体", vbDefaultButton2, "提示"

End Sub
问: WebBrowser1.Document.writeln ss文字上下滚动关键语句. 与For  next语句相比
1 简单实用??功能模块.
2 没有For Next效果好,图面效果不好.

ningyong58 · 发表于 2010-2-10 06:08

在这个帖子
http://club.excelhome.net/redire ... amp;goto=nextoldset
<WebBrowser控件内字号如何设置？>
读了下面程序,WebBrowser实现滚动字太简单了.

Private Sub UserForm_Initialize()
WebBrowser1.Navigate "about:blank"
  WebBrowser1.Document.Open
  WebBrowser1.Document.writeln "<HTML>"
  WebBrowser1.Document.writeln "<BODY scroll=" & VBA.Chr(34) & "no" & VBA.Chr(34) & " oncontextmenu=self.event.returnValue=false>"
  WebBrowser1.Document.writeln "<marquee behavior=" & " alternate" & ">滚动的字号如何设置？？</marquee></p>" '核心代码，此句控制滚动方式，还可以加入速度。
  WebBrowser1.Document.writeln "</BODY>"
  WebBrowser1.Document.writeln "</HTML>"
End Sub

其它语句基本懂,
那条是控制滚动速度的语句

[ 本帖最后由 ningyong58 于 2010-2-10 06:17 编辑 ]

		自动登录	找回密码
密码			免费注册

[转帖] WebBrowser实现文字上下滚动一例.