Question

VB如何获得网页中控件的焦点

VB如何获得网页中控件的焦点

Answer 1

定义一个窗体变量
dim listindex as integer
'初始化为-1表示未选取任何列表
Private Sub Form_Load()
'防止lstfile(0)的tabindex=0而自动获得焦点
For i = 0 To 1
lstfile(i).TabStop = False
Next
listindex = -1
End Sub
'判断得到焦点并存储INDEX值
Private Sub lstfile_GotFocus(Index As Integer)
listindex = Index
End Sub

'测试
Private Sub Command1_Click()
MsgBox listindex
End Sub

不可以用ActiveControl,因为command_click的时候，焦点就转移了，click后的activeControl=command1

Answer 2

这是别人回答我的问题说的：

如果你的程序包含一个浏览器的话，可以从IHtmlDocument2接口遍历网页元素获得每个元素的接口，然后调用IHtmlElement2接口的getProperty方法