VB语言

本类阅读TOP10

·Visual Basic 安装程序的制作!!
·VB中使用EXCEL输出
·一个简单的MP3播放器
·VB程序实现WindowsXP效果的界面!!
·VB打造超酷个性化菜单(六)
·透明位图
·平铺与拉伸MDI窗口的背景图 ~!~
·对《VB程序实现WindowsXP效果的界面》一文的补遗
·从Windows资源管理器中拖动文件
·VB打造超酷个性化菜单(一)

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
如何利用 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


相关文章

相关软件