Question

vb webbrowser如何根据链接内容按链接

Answer 1

举个简单的例子吧
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

Answer 2

b Form_Load()
WebBrowser1.Navigate ("")
End Sub

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
WebBrowser1.Navigate WebBrowser1.Document.activeelement.href
End Sub