J'utilise une petite routine, trouvée sur le net,
pour empêcher certaines pages de s'ouvrir.
Tout fonctionne bien au départ d'un click
sur la listebox qui contient quelques liens.
Mais comment actionner la routine au départ
d'un click sur un lien d'une page déjà ouverte ?
Merci d'avance.
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
at
David a exposé le 11/02/2010 :
Bonjour à tous,
J'utilise une petite routine, trouvée sur le net, pour empêcher certaines pages de s'ouvrir. Tout fonctionne bien au départ d'un click sur la listebox qui contient quelques liens.
Mais comment actionner la routine au départ d'un click sur un lien d'une page déjà ouverte ?
Merci d'avance.
Avec BeforeNavigate2:
Private Sub web_BeforeNavigate2(ByVal pDisp As Object, _ URL As Variant, Flags As Variant, TargetFrameName As Variant, _ PostData As Variant, Headers As Variant, Cancel As Boolean)
Text1.Text = URL
End Sub
ci-dessus web est le composant webbroswer1
après une fois l'intercption faite tu peux faire un web.GoBack ou stop, ou ...
a+
David a exposé le 11/02/2010 :
Bonjour à tous,
J'utilise une petite routine, trouvée sur le net,
pour empêcher certaines pages de s'ouvrir.
Tout fonctionne bien au départ d'un click
sur la listebox qui contient quelques liens.
Mais comment actionner la routine au départ
d'un click sur un lien d'une page déjà ouverte ?
Merci d'avance.
Avec BeforeNavigate2:
Private Sub web_BeforeNavigate2(ByVal pDisp As Object, _
URL As Variant, Flags As Variant, TargetFrameName As Variant, _
PostData As Variant, Headers As Variant, Cancel As Boolean)
Text1.Text = URL
End Sub
ci-dessus web est le composant webbroswer1
après une fois l'intercption faite tu peux faire un web.GoBack ou stop,
ou ...
J'utilise une petite routine, trouvée sur le net, pour empêcher certaines pages de s'ouvrir. Tout fonctionne bien au départ d'un click sur la listebox qui contient quelques liens.
Mais comment actionner la routine au départ d'un click sur un lien d'une page déjà ouverte ?
Merci d'avance.
Avec BeforeNavigate2:
Private Sub web_BeforeNavigate2(ByVal pDisp As Object, _ URL As Variant, Flags As Variant, TargetFrameName As Variant, _ PostData As Variant, Headers As Variant, Cancel As Boolean)
Text1.Text = URL
End Sub
ci-dessus web est le composant webbroswer1
après une fois l'intercption faite tu peux faire un web.GoBack ou stop, ou ...
a+
David
Bonjour,
et Merci pour la réponse qui m'a permis d'avancer.
-- a+ Jean-Pol Site Web : www.colovid.be Site Web perso pour le fun : http://users.skynet.be/DAVID/ Cette page est transmise avec des électrons 100% recyclés.
"at" a écrit dans le message de news: 4b76a1d8$0$915$
David a exposé le 11/02/2010 :
Bonjour à tous,
J'utilise une petite routine, trouvée sur le net, pour empêcher certaines pages de s'ouvrir. Tout fonctionne bien au départ d'un click sur la listebox qui contient quelques liens.
Mais comment actionner la routine au départ d'un click sur un lien d'une page déjà ouverte ?
Merci d'avance.
Avec BeforeNavigate2:
Private Sub web_BeforeNavigate2(ByVal pDisp As Object, _ URL As Variant, Flags As Variant, TargetFrameName As Variant, _ PostData As Variant, Headers As Variant, Cancel As Boolean)
Text1.Text = URL
End Sub
ci-dessus web est le composant webbroswer1
après une fois l'intercption faite tu peux faire un web.GoBack ou stop, ou ...
a+
Bonjour,
et Merci pour la réponse
qui m'a permis d'avancer.
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.
"at" <at@noemail.fr> a écrit dans le message de news:
4b76a1d8$0$915$ba4acef3@news.orange.fr...
David a exposé le 11/02/2010 :
Bonjour à tous,
J'utilise une petite routine, trouvée sur le net,
pour empêcher certaines pages de s'ouvrir.
Tout fonctionne bien au départ d'un click
sur la listebox qui contient quelques liens.
Mais comment actionner la routine au départ
d'un click sur un lien d'une page déjà ouverte ?
Merci d'avance.
Avec BeforeNavigate2:
Private Sub web_BeforeNavigate2(ByVal pDisp As Object, _
URL As Variant, Flags As Variant, TargetFrameName As Variant, _
PostData As Variant, Headers As Variant, Cancel As Boolean)
Text1.Text = URL
End Sub
ci-dessus web est le composant webbroswer1
après une fois l'intercption faite tu peux faire un web.GoBack ou stop, ou
...
et Merci pour la réponse qui m'a permis d'avancer.
-- a+ Jean-Pol Site Web : www.colovid.be Site Web perso pour le fun : http://users.skynet.be/DAVID/ Cette page est transmise avec des électrons 100% recyclés.
"at" a écrit dans le message de news: 4b76a1d8$0$915$
David a exposé le 11/02/2010 :
Bonjour à tous,
J'utilise une petite routine, trouvée sur le net, pour empêcher certaines pages de s'ouvrir. Tout fonctionne bien au départ d'un click sur la listebox qui contient quelques liens.
Mais comment actionner la routine au départ d'un click sur un lien d'une page déjà ouverte ?
Merci d'avance.
Avec BeforeNavigate2:
Private Sub web_BeforeNavigate2(ByVal pDisp As Object, _ URL As Variant, Flags As Variant, TargetFrameName As Variant, _ PostData As Variant, Headers As Variant, Cancel As Boolean)
Text1.Text = URL
End Sub
ci-dessus web est le composant webbroswer1
après une fois l'intercption faite tu peux faire un web.GoBack ou stop, ou ...
