PB 9.0中加入Web browser的OLE控件，控件加载index.html网页，网页中含有一个名称为image1的图片，现在拟实现在点击网页中image1图片时，能够在ole中click事件中取得image1这个文件名，谢谢！
------解决方案--------------------
可能不会触发clicked事件，你可以试一下
建议放到documentcomplete事件中处理
string ls_data
ls_data = ole_parm.Object.document.All[1].innerHTML
------解决方案--------------------
这个问题我今天又研究了一下，仍然没有解决，下面是其他的一些例子。lz可以参考其思路，共同研究：
vb的
- VB code
程序中如何监控网页中元素的事件 对编写脚本熟悉的读者都知道页面中可以添加脚本响应元素的事件，例如超链接的OnClick事件，图片的OnMouseMove事件，我们也可以使VB程序响应这些事件。下面是一个VB响应页面中按钮的Click事件的代码： 首先建立一个新工程，在Form1中加入一个Webbrowser控件，然后在Form1中加入以下代码： Option Explicit Public Sub Some_Procedure() MsgBox "你点击了按钮." End Sub Private Sub Form_Load() '下载空页面 WebBrowser1.Navigate2 "about:blank" End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) '建立事件响应类 Dim cfForward As clsForward '定义在浏览器中显示的HTML代码，其中包含一个按钮btnMyButton Dim sHTML As String sHTML = "<P>This is some text.</P>" sHTML = sHTML & "<P>And here is a button.</P>" sHTML = sHTML & "<BUTTON ID=btnMyButton>" sHTML = sHTML & "Click this button.</BUTTON>" '将HTML代码写入浏览器 WebBrowser1.Document.body.innerHTML = sHTML '将事件响应类连接到页面的按钮btnMyButton上 Set cfForward = New clsForward cfForward.Set_Destination Me, "Some_Procedure" WebBrowser1.Document.All("btnMyButton").onclick = cfForward End Sub 向工程中添加一个Class Module，Class Module的Name属性设定为clsForward，在clsForward中添加以下代码： Option Explicit Dim oObject As Object Dim sMethod As String Dim bInstantiated As Boolean Private Sub Class_Initialize() bInstantiated = False End Sub Public Sub Set_Destination(oInObject As Object, sInMethod As String) Set oObject = oInObject sMethod = sInMethod bInstantiated = True End Sub Public Sub My_Default_Method() If bInstantiated Then CallByName oObject, sMethod, VbMethod End If End Sub 运行程序，点击Webbrowser中的“Click this button”按钮。程序就会弹出消息框提示“你点击了按钮.”