Question

vb6做的浏览器如何实现全屏和IE浏览器一样？

以下是源码：
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComct1Lib.Button)
Select Case Button.Index
Case 1 '后退
On Error Go To ErrBack
WebBrowser1.GoBack
Exit Sub
ErrBack:
MsgBox "没有可后退的页！",vbCritical, "提示"
Case 2
On Error Go To ErrForward
WebBrowser1.GoForward '前进到前一网页
Exir Sub
ErrForward:
MsgBox "没有可加载的页！",vbCritical,"提示"
Case 3 '停止
WebBrowser1.Stop
Case 4 '刷新
WebBrowser1.Refresh
Case 5 搜索
On Error Go To ErrSearch
WebBrowser1.GoSearch
Exit Sub
ErrSearch:
MsgBox "没有找到相关的页！",vbInformation,"提示"
Case 6 ‘主页
WebBrowser1.GoHome
End Select
End Sub
如何加入新建窗口和收藏夹有点像IE最好像360采纳答案+5悬赏分

Answer 1

全屏是指F11？

追问

最大化就行了！

追答

设置Dock属性