一个COMBO控件数组,有5个同名控件,索引号依次为1-5,如何用程序判断,当前光标在哪个COMBO上?
一个COMBO控件数组,有5个同名控件,索引号依次为1-5,如何用程序判断,当前光标在哪个COMBO上?
[解决办法]
可以根据COMBO控件数组的索引号,设置一全局变量com_select,在COMBO控件GotFocus事件中加语句:com_select=index,然后在程序中根据com_select的值知道光标在那个COMBO上。
[解决办法]
本帖最后由 bcrun 于 2013-06-13 16:34:49 编辑 使用-1表示焦点不在combo控件上
Dim cIndex As Long
Private Sub Combo1_GotFocus(Index As Integer)
cIndex = Index
End Sub
Private Sub Combo1_LostFocus(Index As Integer)
cIndex = -1
End Sub
Private Sub Timer1_Timer()
Text1 = cIndex
End Sub
Private Sub Timer1_Timer()
If Me.ActiveControl.Name = "Combo1" Then Label1 = Me.ActiveControl.Index
End Sub