WebBrowser里如何去掉滑动条使得gif显示的时候无边框？

如题。

解决方案 »

  1.   

    让嵌入窗体的 WebBrowser 控件无边框　　前一段时间升级了一个程序，将程序的主界面用网页来设计，效果非常好，用 HTML+CSS 可以实现更加丰富的界面效果，比直接用 Delphi 来得容易。　　实现的方法很简单，在窗体添加一个 WebBrowser 组件，然后执行以下代码：　　WebBrowser1.Navigate('D:\Soft\HomePage.html'); 
    　　但随之而来出现了一个问题：WebBrowser 组件在未载入 HTML 之前是无边框的，当载入 HTML 之后，WebBrowser 四周出现了一个三维边框，和程序本身的风格极不协调，查看了 WebBrowser 的所有属性，没有属性可以改变这一设置。　　经过测试以后发现，该边框并不是 WebBrowser 产生的，而是 WebBrowser 中载入的 HTML 产生的，如果是这样的话，那问题就好解决了，真接用 CSS 去掉边框：　　body { border: 0px; overflow: auto; /*可自动隐藏或显示滚动条；设为 hidden 完全隐藏滚动条*/ } 
    　　当你高兴地设置以上 CSS 后，却发现 WebBrowser 的边框却依然存在，是 CSS 错了吗？NO，是你的 DOCTYPE 出了问题，以上的 CSS 在 XHTML 下是无效果的，将 DOCTYPE 设为 HTML4 即可：　　<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
      

  2.   

    在webbrowser的documentcomplete事件之后用下面的代码禁止显示滚动条：
    webbrowser1.document.body.scroll="no"
      

  3.   

    如果嫌写代码麻烦，还有更简单的，就是把webbrowser放在一个picture里面，让picture的边框正好遮住webbrowser的边框，明白了吧？
      

  4.   

    .Document.Write "<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">"
    上面一句报错，说是“缺少表达式”在“-//”的横杠处
    注释这句，执行其他代码后，WebBrowser1和gif之间有一圈白色边框？代码如下：With WebBrowser1
            .Navigate "about:blank"
            .Document.Open
            '.Document.Write "<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">"
            .Document.Write "<style>"
            .Document.Write "body { border: 0px; overflow: hidden; /*可自动隐藏或显示滚动条；设为 hidden 完全隐藏滚动条*/ }"
            .Document.Write "</style>"
            .Document.Write "<img border='0' src='" & App.Path & "\2.gif' width='100%' height='100%'>"
            .Document.Close
        End With
      

  5.   

    只是要显示一个gif图片，出错的那句本身就是没必要的，而且为什么一定要用复杂的方法来实现？
      

  6.   

    .Document.Write " <!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN'>" 
      

  7.   

    WebBrowser1和gif之间留有一圈白色边框？
    怎么除去？With WebBrowser1
            .Navigate "about:blank"
            .Document.Open
            .Document.Write " <!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN'>"
            .Document.Write " <style>"
            .Document.Write "body { border: 0px; overflow: hidden; /*可自动隐藏或显示滚动条；设为 hidden 完全隐藏滚动条*/ }"
            .Document.Write " </style>"
            .Document.Write " <img border='0' src='" & App.Path & "\2.gif' width='100%' height='100%'>"
            .Document.Close
        End With