Intercepter le clic sur une image dans un WebBrowser

[modus57]

Bonjour,

Comment déclencher un évènement au clic sur une image dans un WebBrowser comportant plusieurs images.
Est-ce possible ?

Option Explicit
'activer la reference Microsoft Html Object Library
Dim WithEvents maPageHtml As HTMLDocument
 
Private Sub userForm_Initialize()
    'Me.WebBrowser1.Navigate "C:\Users\...\Documents\...\batterie samsung galaxy s3.jpg"
    Me.WebBrowser1.Navigate "C:\Users\...\Documents\...\"
    'Set maPageHtml = WebBrowser1.Document
End Sub
 
Private Function maPageHtml_onClick() As Boolean
    MsgBox "clic"
End Function

Mon code fonctionne pour une seule image (code commenté) mais ne fonctionne pas avec plusieurs images.

J'ai cherché et ne trouve pas la solution, une petite idée pour m'aider.

Merci d'avance.

 

[modus57]

Re : Intercepter le clic sur une image dans un WebBrowser

Bonjour à tous,

Je reviens sur cette discussion pour préciser que le répertoire contient plusieurs types de fichiers JPG, PDF ...

J'espère avoir une petite réponse svp.