16,555
社区成员
发帖
与我相关
我的任务
分享
Dim strURL As String
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
WebBrowser1.Navigate strURL
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
strURL = Text
End Sub
Private Sub Command1_Click()
WebBrowser1.Navigate "www.163.com"
End Sub