快捷搜索:  as  test  1111  test aNd 8=8  test++aNd+8=8  as++aNd+8=8  as aNd 8=8

千亿国际qy88vip:如何利用WebBrowser控件显示.GIF动画



要有必然的网页常识(千亿国际qy88vipHTML、JavaScript、CSS)

留意细节:

没有"滚动条"和"鼠标右键弹出的 IE 高低文菜单",".HTM 源文件千亿国际qy88vip" ...

我写了一个,效果还真不错!

'Objects: Form1、Command1、CommonDialog1、WebBrowser1

Option Explicit

Private Sub Command1_Click()

CommonDialog千亿国际qy88vip1.ShowOpen

If VBA.Len(VBA.Trim(CommonDialog1.FileName)) > 0 Then

Dim p As stdole.StdPicture

Dim sPath As String

sPath = VBA.Trim(VBA.Trim(CommonDialog1.FileName))

Set p = VB.LoadPicture(sPath)

WebBrowser1.Width = p.Width * 16 / 26

WebBrowser1.Height = p.Height * 16 / 26

'WebBrowser1.Navigate "about:blank"

WebBrowser1.Document.open

WebBrowser1.Document.writeln ""

WebBrowser1.Document.writeln ""

WebBrowser1.Document.writeln ""

WebBrowser1.Document.writeln ""

WebBrowser1.Document.writeln ""

WebBrows千亿国际qy88viper1.Document.writeln ""

WebBrowser1.Document.writeln "

"

WebBrowser1.Document.writeln ""

WebBrowser1.Document.writeln "

"

WebBrowser1.Document.writeln ""

WebBrowser1.Document.writeln ""

End If

End Sub

Private S千亿国际qy88vipub Form_Load()

Command1.Caption = "&Open"

WebBrowser1.Navigate "about:blank"

WebBrowser1.Document.open

WebBrowser1.Document.writeln ""

WebBrowser1.Document.writeln ""

WebBrowser1.Document.writeln ""

WebBrowser1.Document.writeln ""

WebBrowser1.Document.writeln ""

WebBrowser1.Document.writeln ""

WebBrowser1.Document.writeln ""

WebBrowser1.Document.writeln ""

WebBrowser1.Document.Close

End Sub

免责声明:以上内容源自网络,版权归原作者所有,如有侵犯您的原创版权请告知,我们将尽快删除相关内容。

您可能还会对下面的文章感兴趣: