这是vb6的写法,你参考一下,vb6是可以的Dim strURL As String Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) Cancel = True WebBrowser1.Navigate strURL End SubPrivate Sub WebBrowser1_StatusTextChange(ByVal Text As String) strURL = Text End SubPrivate Sub Command1_Click() WebBrowser1.Navigate "www.163.com" End Sub
e.Cancel = true;
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
WebBrowser1.Navigate strURL
End SubPrivate Sub WebBrowser1_StatusTextChange(ByVal Text As String)
strURL = Text
End SubPrivate Sub Command1_Click()
WebBrowser1.Navigate "www.163.com"
End Sub
http://blog.csdn.net/dailen_liao/article/details/8135826