关于PB嵌入浏览器鼠标点击交互的问题
柯芺 2018-02-01 03:04:15 在ole_1的clicked事件中写入如下代码:
string ls_tagName, ls_id, ls_href
ls_tagName=ole_1.object.document.activeElement.tagName
messagebox("",ls_tagName)
if upper(trim(ls_tagName))="A" then
ls_id = ole_1.object.document.activeElement.id
ls_href =ole_1.object.Document.activeElement.href
messagebox('', ls_tagName + '/' + ls_id + '/' + ls_href)
ole_1.object.Navigate(ls_href)
end if
问题描述:
第一次鼠标点击正常,即点击非链接弹出对话框 :BODY ; 点击链接弹出对话框 A
第一次鼠标点击就不正常,即点击非链接弹出对话框 :A ; 点击链接同样弹出对话框 A
除非重新刷新网页就恢复正常,请教大师们怎么解决,谢谢!!!