<form id="hz9zz"></form>
    • <form id="hz9zz"></form>
    

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      怎么使用WebBrowser控件顯示GIF動畫
                
                  發表時間：2023-07-14             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]作者: playyuer 　要有一定的網頁知識(HTML、JavaScript、CSS)注意細節:沒有"滾動條"和"鼠標右鍵彈出的 IE 上下文菜單",&qu...
      作者: playyuer 　


      要有一定的網頁知識(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


              
              
                 
              
                                            
                              		       
                          
                           		  
        
                            
      
日韩精品一区二区三区高清