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. 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 15.943 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
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. |
TOP! Unser Nr. 1 Neu! sevDataGrid 3.0 Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
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. |