vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2014
 
zurück
Rubrik: HTML/Internet/Netzwerk · WebBrowser   |   VB-Versionen: VB4, VB5, VB628.10.04
Link-Klick im WebBrowser-Control abfangen

Hier erfahren Sie, wie man Mausklicks auf externe Links, wie Download- oder EMail-Adressen, im WebBrowser-Control abfangen kann.

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  10.026 
www.tools4vb.deSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8 Beispielprojekt auf CD 

Sie haben Ihren eigenen Browser programmiert? Dann wäre es doch schön, auch entsprechend auf Mausklicks auf externe Links reagieren zu können, um so bspw. beim Klick auf einen EMail-Link ein eigenes Fenster zu öffnen, um eine Nachricht zu versenden.

Hierzu brauchen Sie lediglich den URL-Parameter im BeforeNavigate2-Ereignis auszuwerten.
Gleichzeitig zeigt nachfolgender Code auch, wie man einen EMail-Link in seine Bestandteile "Empfänger" und evtl. zusätzlich angegebene Parameter, wie "Subject", "Body", etc. zerlegen kann.

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, _
  Flags As Variant, TargetFrameName As Variant, PostData As Variant, _
  Headers As Variant, Cancel As Boolean)
 
  ' Klick auf EMail-Adresse?
  If LCase$(Left$(URL, 7)) = "mailto:" Then
    ' Vorgang abbrechen
    Cancel = True
 
    Dim sEMail As String
    Dim sParam As Variant
    Dim i As Long
    Dim nPos As Long
 
    ' EMail-Adresse extrahieren
    sEMail = Mid$(URL, 8)
 
    ' Parameter extrahieren
    If InStr(sEMail, "?") > 0 Then
      sParam = Split(Mid$(sEMail, InStr(sEMail, "?") + 1), "&")
      sEMail = Left$(sEMail, InStr(sEMail, "?") - 1)
    End If
 
    ' Eigenen Dialog zum Versenden von Nachrichten anzeigen
    Load frmNewMail
    With frmNewMail
      ' Empfänger
      .txtTo.Text = sEMail
 
      ' Zusätzliche Parameter, wie Subject etc. auswerten
      If IsArray(sParam) Then
        For i = 0 To UBound(sParam)
          nPos = InStr(sParam(i), "=")
          If nPos > 0 Then
            Select Case LCase$(Left$(sParam(i), nPos - 1))
              Case "subject"
                .txtSubject = Mid$(sParam(i), nPos + 1)
              Case "body"
                .txtBody = Mid$(sParam(i), nPos + 1)
            End Select
          End If
        Next i
 
        ' Dialog anzeigen
        .Show
      End If
    End With
 
  ElseIf UCase$(Right$(URL, 4)) = ".EXE" Or UCase$(Right$(URL, 4)) = ".ZIP" Then
    ' File-Download
    If MsgBox("File-Download: " & URL & vbCrLf & vbCrLf & _
      "Download jetzt starten?", vbQuestion + vbYesNo) = vbNo Then
      ' Vorgang abbrechen
      Cancel = True
    End If
 
  Else
    ' Sonstiger Link
    If Me.Visible Then
      If MsgBox("Link: " & URL & vbCrLf & vbCrLf & _
        "Jetzt ausführen?", vbQuestion + vbYesNo) = vbNo Then
        ' Vorgang abbrechen
        Cancel = True
      End If
    End If
  End If
End Sub

Dieser Tipp wurde bereits 10.026 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2014 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel