xGodModzPTG
Messages postés15Date d'inscriptionmercredi 12 janvier 2011StatutMembreDernière intervention26 février 2011
-
24 févr. 2011 à 23:59
cs_bidouille007
Messages postés257Date d'inscriptionjeudi 11 septembre 2008StatutMembreDernière intervention22 décembre 2012
-
26 févr. 2011 à 12:11
Bonjour à tous :)
Alors j'ai fait un navigateur a multionglet avec système de Favoris, Historique enffin pas mal de chose sauf que :
Quand je clique sur un lien sur un page dans mon webbrowser sa m'ouvre le navigateur par défaut.
Donc sa je l'ai régler par:
Private Sub WebBrowser_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser.NewWindow
e.Cancel = True
End Sub
Donc jusque la pas de soucis mais moi j'aimerais que sa ouvre une nouvelle tabpage est surtout que sa me mette la page du lien concerner car j'ai réussi a faire afficher une nouvelle tabpage quand je clique sur un lien mais le problème est que dans la nouvelle tabpage j'ai la page d'accueil (google) qui s'affiche et non la page du lien.
Voici mon code en entier actuel:
Private Sub WebBrowser_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser.NewWindow
e.Cancel = True
Dim Wfrm As New WebForm
Accueil.TabControl1.TabPages.Add(Wfrm)
End Sub
Alors j'ai regarder sur pas mal de site, essayer pas mal de truc mais sans aucun résultat...
cs_bidouille007
Messages postés257Date d'inscriptionjeudi 11 septembre 2008StatutMembreDernière intervention22 décembre 20121 26 févr. 2011 à 12:11
moi aussi je bloque sur ce point là, le fait de recuperer l'url qui se trouve dans un lien ne suffira pas car tu as des sites qui utilisent des requêtes PHP pour envoyer l'url et là c'est une autre histoire.
Dim olink As HtmlElement
Dim olinks As Windows.Forms.HtmlElementCollection = smurf.Document.Links
For Each olink In olinks
olink.AttachEventHandler("onclick", AddressOf LinkClicked)
Next
Private Sub LinkClicked(ByVal sender As Object, ByVal e As EventArgs)
Dim link As HtmlElement = webbrowser.Document.ActiveElement
Dim url2 As String
'Dim url As String = link.GetAttribute("href")
url2 = link.GetAttribute("href")
If Trim(url2) = "" Then Exit Sub
newurl = url2
End Sub