展开全部
右击工具箱窗口--->部件--->选上Microsoft Internet Controls--->确定
基本操作:
goforward 前进
goback 后退
gohome 回主页
navigate 浏览
stop 停止
gosearch 搜索
属性:
LocationURL网页地址
LocationName网页标题
在新窗口打开链接:
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim NewForm As Form1
Set NewForm = New Form1
NewForm.WebBrowser1.RegisterAsBrowser = True '防止名称相同
Set ppDisp = NewForm.WebBrowser1.Object
NewForm.Visible = True
End Sub
基本操作:
goforward 前进
goback 后退
gohome 回主页
navigate 浏览
stop 停止
gosearch 搜索
属性:
LocationURL网页地址
LocationName网页标题
在新窗口打开链接:
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim NewForm As Form1
Set NewForm = New Form1
NewForm.WebBrowser1.RegisterAsBrowser = True '防止名称相同
Set ppDisp = NewForm.WebBrowser1.Object
NewForm.Visible = True
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询