Опять WebBrowser

[Sirik]

Допустим у меня есть страница (в старнице есть рисунки).
Как мне узнать на каком рисунке произошёл клик?

[alibek]

Если рисунок является гиперссылкой, просто сделай их все разными (например, добавь закладки). Или вешай на рисунок скрипт (onclick).

[Sirik]

Если рисунок является гиперссылкой, просто сделай их все разными (например, добавь закладки). Или вешай на рисунок скрипт (onclick).

Значится так:
у меня на форме есть данный компонент (в нём есть картинки). При нажатии на кртинку форма должна "знать": на каком рисунке произошёл клик.

Если есть идеи, напишите код, я в программировании web немного слабоват

[marvan]

'References: Microsoft HTML Object Library
'Components: Microsoft Internet Controls
'На форме WebBrowser1
Dim WithEvents mDoc As MSHTML.HTMLDocument
Dim WithEvents mImg As MSHTML.HTMLImg

Private Sub Form_Load()
    Dim mStr As String
    WebBrowser1.Navigate "about:<img id=num1 src=""http://www.google.ru/images/hp0.gif"">"
    While WebBrowser1.Document Is Nothing
        DoEvents
    Wend
    Set mDoc = WebBrowser1.Document
    While mImg Is Nothing
    'присваивем mImg - дабы ловить события конкретно от него
        DoEvents
        Set mImg = mDoc.getElementById("num1")
    Wend
End Sub

Private Sub mDoc_onmousedown()
    'здесь мы ловим все события, и определяем элемент для которого оно произошло
    Dim objElement As MSHTML.IHTMLElement
    Set objElement = mDoc.parentWindow.event.srcElement
    If objElement.Id = "num1" Then MsgBox ("mDoc_onmousedown")
End Sub

Private Sub mImg_onmousedown()
    'событие mImg
    MsgBox ("mImg_onmousedown")
End Sub

Как отформатирован этот код?

[Sirik]

2 marvan
Большое спасибо!