在vb中怎么判断焦点在哪个控件上呢？哪位大侠知道请回帖 非常感谢

一个控件的焦点获得与失去都是有事件的.
是不是可以用它来实现?就是每个控件都写一个获得的事件程序,把控件名写进一个全局变量?
我想应该行的吧?

上面的方法是可行的，可以把你所有的控件名都写到一个数组里，然后用FOR循环，如果过程中哪个控件GotFoucs了，就从数组中得到这个控件名字，就OK了。

还有一zhopng方法，你写一个得到光标的函数。
Private Function GotFoucs(ByVal strName as string)
MsgBox "strName Get the foucs!"
End Function

然后：哪个控件得到光标了就调用这个函数声明一下自己得到光标了
Private Sub txtOkMNID_GotFocus()
Call GotFoucs(txtOkMNID)
End Sub

最后你只要去GotFoucs(txtOkMNID)就可以了。

要把strName定义成全局变量，在你判断那个控件得到了光标的时候只要判断strName的值就可以了

if strName="txtOkMNID" then
……
end if

[此贴子已经被作者于2006-12-15 14:44:49编辑过]

简化一下:
直接定义一个全局变量，然后每次谁得到光标了，就把自己的名字赋给这个全局变量，然后在你判断哪个控件得到了光标的时候只要判断strName的值就可以了，呵呵，上面想的复杂了

不用这么复杂,如果你想在某个时间检查获取焦点的控件是哪个可以使用form的ActiveControl属性
例如:
Private Sub Timer1_Timer()
Text1.Text = Me.ActiveControl.Name
End Sub

Me.ActiveControl.Name



就是这个样子的

学到一招..谢谢

呵呵，谢谢各位的“指教”拉