Webbrowser funktion
- VB.NET
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 18 Antworten in diesem Thema. Der letzte Beitrag () ist von xtts02.
-
-
-
-
Mit:
bekommst du die geklickte Url heraus.
Und so musst du dann für jeden geklickten Link ein neues Fenster öffnen können:
Oder im Standardbrowser mit:
MFG Andi2572 -
-
-
-
-
-
-
-
Das isses: (glaube muss deklarieren oda^^?)
VB.NET-Quellcode
- Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
- While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
- Application.DoEvents()
- End While
- Process.Start(WebBrowser1.Document.Url.ToString())
- End Sub
@xtts02: ne funk. au net -
-
-
ShoX schrieb:
@xtts02: ne funk. au net
Hab falsch verstanden. Dachte, Du wolltest, dass der Link im selben Webbrowser geöffnet werden soll. -
-
Die Lösung steht schon in Post #6 von pico
Hier mal ausführlich
VB.NET-Quellcode
- Public Class Form1
- Private _openInDefaultBrowser As Boolean = False
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- WebBrowser1.Navigate("www.vb-paradise.de")
- End Sub
- Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
- _openInDefaultBrowser = DirectCast(sender, CheckBox).Checked
- End Sub
- Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
- If _openInDefaultBrowser Then
- e.Cancel = True
- Process.Start(e.Url.ToString)
- End If
- End Sub
- End Class
-
Geht noch "besser" (imho):
VB.NET-Quellcode
- Public Class Form1
- Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- WebBrowser1.Navigate("http://www.heise.de")
- End Sub
- Private Sub SomeHandler(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
- If TypeOf sender Is HtmlElement Then
- Dim he = DirectCast(sender, HtmlElement)
- Debug.Print("Wants to go to: " & he.DomElement.ToString)
- e.ReturnValue = False ' NO!!!
- End If
- End Sub
- Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
- For Each f As HtmlElement In WebBrowser1.Document.Links
- AddHandler f.Click, AddressOf SomeHandler
- Next
- End Sub
- End Class
So kann man halt direkt "Click auf Link" unterdrücken ... oder hahlt nicht, wie man eben will -
picoflop schrieb:
Geht noch "besser" (imho):
Gut zu wissen, danke.
-
Ähnliche Themen
-
ComputerNoob - - Sonstige Problemstellungen
-
TheMetalfather - - Sonstige Problemstellungen
-
Webbrowser Favoriten....GeckoFX
CoPHeader - - Sonstige Problemstellungen
-
2 Benutzer haben hier geschrieben
- Gast (15)
- xtts02 (4)