Zdravím, vo formulári mám WebBrowser v ktorom otváram stránku www.zrsr.sk. Po vyhľadaní dostávam výsledky vo forme tabuľky ktorá má v sebe hypertextové odkazy na konkrétne výsledky. Problém mám stým že po kliknutí na link sa odkaz otvára v novom okne (internet explorer) čo nechcem. cez procedúru
Private Sub Document_Click(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
Const vysledkyZR As String = "http://www.zrsr.sk/zr_vypis.aspx?ID="
Dim elem As HtmlElement = WB.Document.GetElementFromPoint(e.ClientMousePosition)
elem.DetachEventHandler("Click", AddressOf Document_Click)
Dim odkaz As String
odkaz = elem.GetAttribute("href")
If odkaz.Contains(vysledkyZR) And Strings.Right(odkaz, 1) = "A" Then
WB.Navigate(odkaz)
End If
End Sub
si viem otvoriť výsledok vo svojom WebBrowseri ale neviem zamedziť tomu aby sa mi odkaz neotvoril v novom okne (internet explorer) Ďakujem
|