天天看點
傳回

如何利用 WebBrowser 控件,顯示 .GIF 動畫?

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> <script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> 要有一定的網頁知識(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) & " οncοntextmenu=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) & " 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) & " οncοntextmenu=self.event.returnValue=false>"

WebBrowser1.Document.writeln "</BODY>"

WebBrowser1.Document.writeln "</HTML>"

WebBrowser1.Document.Close

End Sub <script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> <script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

vb webbrowser command scroll html javascript border
上一篇: 幾個WebBrowser相關的函數
下一篇: WebBrowser控件使用詳解WebBrowser控件使用詳解

繼續閱讀