1 2 3 4 5 6 7 8 9 10 11 12
| Public Class Form1
Friend WithEvents webBrowser As WebBrowser = New WebBrowser()
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
AddHandler webBrowser.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf WebBrowser1_DocumentCompleted)
webBrowser.Navigate("http://www.google.be")
End Sub
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
MessageBox.Show(webBrowser.DocumentText)
End Sub
End Class |
Partager