VB中如何获得具有焦点的数组控件

来源：百度知道 编辑：UC知道 时间：2024/05/09 11:06:39
我在一个程序里定义了lstfile(0)和lstfile(1)两个文件列表框。我现在想在按“移动”按钮时知道是哪个（0或1）列表框里的文件被选中，能不能获得它的索引值（0或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

貌似有个ActiveControl 属性，可以获得具有焦点的控件。