读书人

(一个关于焦点的有关问题)多谢

发布时间: 2012-03-14 12:01:12 作者: rapoo

求助(一个关于焦点的问题),谢谢!
我一个界面上有几个Text1(i) :i=0 to 2
我想当焦点在Text1(0)上时BackColor颜色跟 其它几个txt不同,除了用以下这种方法还有没有更好的方法啊?
'-----------------------
Private Sub Text1_GotFocus(Index As Integer)
Text1(Index).BackColor = &HC0E0FF
End Sub
'-----------------------
Private Sub Text1_LostFocus(Index As Integer)
Text1(Index).BackColor = &H80000005
End Sub
'-----------------------
怎么判断一个窗口上的焦点当前光标是在哪个控件上啊?谢谢。。。



[解决办法]
me.activecontrol

读书人网 >VB

热点推荐