السلام عليكم ورحمة الله
أتمنى منكم مساعدتي في فهم هذا الكود وهو في التعامل مع أداة webbrowser
هل هذا الكود خاص بفتح الروابط الموجودة في صفحة ما أم مذا أرجووووووووووو المساااعدة وشكرا
الكود
Private url As String
Private Sub webControl_DocumentCompleted(ByVal sender As Object, _
ByVal e As WebBrowserDocumentCompletedEventArgs) _
Handles WebBrowser1.DocumentCompleted
Dim link As HtmlElement
Dim links As HtmlElementCollection = WebBrowser1.Document.Links
For Each link In links
link.AttachEventHandler("onclick", AddressOf LinkClicked)
Next
End Sub
Private Sub LinkClicked(ByVal sender As Object, ByVal e As EventArgs)
Dim link As HtmlElement = WebBrowser1.Document.ActiveElement
url = link.GetAttribute("href")
End Sub
Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
e.Cancel = True
WebBrowser1.Navigate(url)
End Sub
