zoukankan      html  css  js  c++  java
  • 如何利用 WebBrowser 控件,显示 .GIF 动画?

    要有一定的网页知识(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 ""
      WebBrowser1.Document.writeln ""
      WebBrowser1.Document.writeln ""
      WebBrowser1.Document.writeln ""
      WebBrowser1.Document.writeln "  WebBrowser1.Document.writeln "
      WebBrowser1.Document.writeln "  WebBrowser1.Document.writeln "
    "
      WebBrowser1.Document.writeln ""
      WebBrowser1.Document.writeln ""
    End If
    End Sub
    Private Sub Form_Load()
    Command1.Caption = "&Open"
    WebBrowser1.Navigate "about:blank"
    WebBrowser1.Document.open
    WebBrowser1.Document.writeln ""
    WebBrowser1.Document.writeln ""
    WebBrowser1.Document.writeln ""
    WebBrowser1.Document.writeln ""
    WebBrowser1.Document.writeln "WebBrowser1.Document.writeln ""
    WebBrowser1.Document.writeln ""
    WebBrowser1.Document.Close
    End Sub

  • 相关阅读:
    IsDefined的问题
    设计匠艺模型
    真实案例引起的对系统健壮性的思考
    软件系统的稳定性
    LA工作第二周体会
    LA工作第一周体会
    https://blog.csdn.net/qq_26264237/article/details/90575165
    Maven项目配置logback
    Java 工具 Hutool4.0.0 正式发布:从懵懂到成熟
    IDEAidea中解决Java程序包不存在问题
  • 原文地址:https://www.cnblogs.com/Microshaoft/p/2485797.html
Copyright © 2011-2022 走看看