首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

控件数组里如何区分焦点

2013-02-05 
求教:控件数组里怎么区分焦点?我用了个text控件数组,但彼此怎么区分焦点呢?我的意思是当我按下回车键那么

求教:控件数组里怎么区分焦点?
我用了个text控件数组,但彼此怎么区分焦点呢?我的意思是当我按下回车键那么焦点将要到炸个控件的下一个文本框。
如text1(index),我按下回车键后想让焦点转到text1(index+1)这上面,该怎么做了?
[解决办法]

Dim Focus As Integer
Private Sub Text1_GotFocus(Index As Integer)
    Focus = Index '设置当前焦点
End Sub
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
    If KeyAscii = 13 Then
        Focus = Focus + 1
        If Focus > 5 Then Focus = 0  '下标界限
        Text1(Focus).SetFocus
    End If
End Sub

另外 不知道有没有办法知道当前焦点是在哪个控件上?
[解决办法]
那是自然,焦点控件有个黑色框框,如果是文本框就闪烁光标.

好像有些控件得到焦点也没变化,呵呵

热点排行