dovrebbe essere cosi? notare che solo go_click ha l'handles
'questo sub è in un form
Private Sub Go_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Go.Click
Dim tth As String
tth="http:\\www.sito.it"; 'esempio
Form_internet.Wb.Navigate(New System.Uri((tth)))
Form_internet.Show()
End Sub
'questo è in un altro form
Private wbb As WebBrowser
Private Sub Wb_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
wbb = New WebBrowser()
wbb.Url = Wb.Document.Window.Frames(0).Url
AddHandler wbb.DocumentCompleted, AddressOf wbb_DocumentCompleted
End Sub
Private Sub wbb_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
MessageBox.Show("fatto")
End Sub
|