如何使得图片或者gif缩放以适应WebBrowser窗口的大小？

Question

如题，WebBrowser是嵌在frame里的。

Answer 1

<img border="0" src="Image.gif" width="100%" height="100%">

Answer 2

可能是我没说清楚，我是指图片适应vb中的WebBrowser控件

Answer 3

图片怎样加载到Web控件中的？贴上来。

Answer 4

WebBrowser1.Navigate (App.Path & "\2.gif")这样的话，可以显示gif动画，但是，gif的尺寸不受约束，而且WebBrowser1还有滑动条。
请问： 1. 如何约束gif的尺寸以适应WebBrowser1
      2. 如何是的WebBrowser1没有滑动条
谢谢！

Answer 5

Private Sub Form_Load()
    Dim html As String
    html = "<img border='0' src='2.gif' width='100%' height='100%'>"
    With WebBrowser1
        .Navigate "about:blank"
        .Document.Open
        .Document.Write html
        .Document.Close
    End With
End Sub

Answer 6

修改这行：
html = "<img border='0' src='2.gif' width='100%' height='100%'>"
为：
html = "<img border='0' src='" & App.Path & "\2.gif' width='100%' height='100%'>"