📄 181.htm
字号:
<p>如何利用 WebBrowser 控件,显示 .GIF 动画? </p>
<p></p>
<p></p>
<p>要有一定的网页知识(HTML、JavaScript、CSS)</p>
<p>注意细节:</p>
<p>没有"滚动条"和"鼠标右键弹出的 IE 上下文菜单",".HTM 源文件" ...</p>
<p>我写了一个,效果还真不错!</p>
<p></p>
<p>注释：Objects: Form1、Command1、CommonDialog1、WebBrowser1</p>
<p>Option Explicit</p>
<p>Private Sub Command1_Click()</p>
<p>CommonDialog1.ShowOpen</p>
<p>If VBA.Len(VBA.Trim(CommonDialog1.FileName)) > 0 Then</p>
<p> Dim p As stdole.StdPicture</p>
<p> Dim sPath As String</p>
<p> sPath = VBA.Trim(VBA.Trim(CommonDialog1.FileName))</p>
<p> Set p = VB.LoadPicture(sPath)</p>
<p> WebBrowser1.Width = p.Width * 16 / 26</p>
<p> WebBrowser1.Height = p.Height * 16 / 26</p>
<p>注释： WebBrowser1.Navigate "about:blank"</p>
<p> WebBrowser1.Document.open</p>
<p> WebBrowser1.Document.writeln "<HTML>"</p>
<p> WebBrowser1.Document.writeln "<HEAD>"</p>
<p> WebBrowser1.Document.writeln "<TITLE>"</p>
<p> WebBrowser1.Document.writeln "</TITLE>"</p>
<p> WebBrowser1.Document.writeln "</HEAD>"</p>
<p> WebBrowser1.Document.writeln "<BODY scroll=" & VBA.Chr(34) & "no" & VBA.Chr(34) & " oncontextmenu=self.event.returnValue=false>"</p>
<p> WebBrowser1.Document.writeln "<div style=" & VBA.Chr(34) & "position:absolute; left: 0; top: 0" & VBA.Chr(34) & ">"</p>
<p> WebBrowser1.Document.writeln "<IMG SRC=" & VBA.Chr(34) & sPath & VBA.Chr(34) & " BORDER=" & VBA.Chr(34) & "0" & VBA.Chr(34) & ">"</p>
<p> WebBrowser1.Document.writeln "</div>"</p>
<p> WebBrowser1.Document.writeln "</BODY>"</p>
<p> WebBrowser1.Document.writeln "</HTML>"</p>
<p>End If</p>
<p>End Sub</p>
<p>Private Sub Form_Load()</p>
<p>Command1.Caption = "&Open"</p>
<p>WebBrowser1.Navigate "about:blank"</p>
<p>WebBrowser1.Document.open</p>
<p>WebBrowser1.Document.writeln "<HTML>"</p>
<p>WebBrowser1.Document.writeln "<HEAD>"</p>
<p>WebBrowser1.Document.writeln "<TITLE>"</p>
<p>WebBrowser1.Document.writeln "</TITLE>"</p>
<p>WebBrowser1.Document.writeln "</HEAD>"</p>
<p>WebBrowser1.Document.writeln "<BODY scroll=" & VBA.Chr(34) & "no" & VBA.Chr(34) & " oncontextmenu=self.event.returnValue=false>"</p>
<p>WebBrowser1.Document.writeln "</BODY>"</p>
<p>WebBrowser1.Document.writeln "</HTML>"</p>
<p>WebBrowser1.Document.Close</p>
<p>End Sub </p>
<p> </p>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -