VB中怎么让webbrowser控件跟着窗口变化来改变大小?

Question

Private Sub Command1_Click()
linkstr = Text1.Text '获取URL位置
WebBrowser1.Navigate linkstr '使用浏览器控件浏览指定的页面
End Sub

Private Sub Text1_keypress(keyascii As Integer)
If keyascii = 13 Then
linkstr = Text1.Text
WebBrowser1.Navigate linkstr
End If
End Sub
这是我目前的代码 请问怎么加才会跟着窗口的大小变化 搜了一些代码 添加上去窗口不会跟着变化。。请问怎么弄

Answer 1

跟随窗体变化大小要在resize事件中，举例说明
Private Sub Form_Resize()
WebBrowser1.Move 10, 10, Me.ScaleWidth - 20, Me.ScaleHeight - 20
End Sub

追问

。。为什么我加上去窗口上面的所有控件都消失了

追答

呵呵，不是消失了，是被webbrowser挡住了
要注意，我给你的是举例，我设定webbrowser的坐标是10，10，宽度高度和窗口一致（分别减去10）你要按照自己的位置修改坐标和大小啊！！！

追问

哦 谢谢

Answer 2

把属性Dock设为Fill（中间的大按钮）