|
|
如何利用 WebBrowser 控件,显示 .GIF 动画? |
|
|
作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站 |
要有一定的网页知识(HTML、JavaScript、CSS) 注意细节: 没有"滚动条"和"鼠标右键弹出的 IE 上下文菜单",".HTM 源文件" ... 我写了一个,效果还真不错!
'Objects: Form1、Command1、CommonDialog1、WebBrowser1 Option Explicit Private Sub Command1_Click() CommonDialog1.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 "<HTML>" WebBrowser1.Document.writeln "<HEAD>" WebBrowser1.Document.writeln "<TITLE>" WebBrowser1.Document.writeln "</TITLE>" WebBrowser1.Document.writeln "</HEAD>" WebBrowser1.Document.writeln "<BODY scroll=" & VBA.Chr(34) & "no" & VBA.Chr(34) & " oncontextmenu=self.event.returnValue=false>" WebBrowser1.Document.writeln "<div style=" & VBA.Chr(34) & "position:absolute; left: 0; top: 0" & VBA.Chr(34) & ">" WebBrowser1.Document.writeln "<IMG SRC=" & VBA.Chr(34) & sPath & VBA.Chr(34) & " BORDER=" & VBA.Chr(34) & "0" & VBA.Chr(34) & ">" WebBrowser1.Document.writeln "</div>" WebBrowser1.Document.writeln "</BODY>" WebBrowser1.Document.writeln "</HTML>" End If End Sub Private Sub Form_Load() Command1.Caption = "&Open" WebBrowser1.Navigate "about:blank" WebBrowser1.Document.open WebBrowser1.Document.writeln "<HTML>" WebBrowser1.Document.writeln "<HEAD>" WebBrowser1.Document.writeln "<TITLE>" WebBrowser1.Document.writeln "</TITLE>" WebBrowser1.Document.writeln "</HEAD>" WebBrowser1.Document.writeln "<BODY scroll=" & VBA.Chr(34) & "no" & VBA.Chr(34) & " oncontextmenu=self.event.returnValue=false>" WebBrowser1.Document.writeln "</BODY>" WebBrowser1.Document.writeln "</HTML>" WebBrowser1.Document.Close End Sub 
|
|
相关文章:相关软件: |
|