VB webbrowser 与form的大小问题

Question

webbrowser的大小不能改变
加载的是一个视频播放    根据片源不同 WEBB的大小也不同
所以 有些超出了FORM  有些只有半个FORM对WEBB指定大小都不行
所以我想能不能等程序加载完毕了视频后   在根据这个时候的WEBB大小 来控制FORM的大小
比如WEBB加载完毕后的大小为300*400
然后我们form的大小让他变为300*400 上下左右各加20这样一样一来    是否可以是每次的FORM的大小都能满足视频的需求    而不需要每次去拖大拖小呢

Answer 1

Private Sub Form_Load()
WebBrowser1.Left = 10
WebBrowser1.Top = 10
WebBrowser1.Width = 3300
WebBrowser1.Height = 2400
WebBrowser1.Navigate "www.HAO123.COM"
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Form1.Width = WebBrowser1.Width + 20
Form1.Height = WebBrowser1.Height + 20MsgBox Form1.Width
End Sub

Answer 2

然后我们form的大小让他变为300*400 上下左右各加20,300*400太小无法测试
Private Sub Form_Load()
WebBrowser1.Left = 20
WebBrowser1.Top = 20
WebBrowser1.Width = 3000
WebBrowser1.Height = 400
WebBrowser1.Navigate "www.HAO123.COM"
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Form1.Width = WebBrowser1.Width + 40
Form1.Height = WebBrowser1.Height + 40MsgBox Form1.Width
End Sub

Answer 3

似乎好像不行  返回好像只有我添加WEBB控件时候的大小
但是我每次加载网页的时候WEBB的大小是变化的 就是怎么样来返回 我程序加载以后的WEBB的大小 这个时候在FORM+100  我想可以了