如何在程序运行当中随时知道Form中的当前具有焦点的控件的名字,并且知道上一个具有焦点的控件的名字

Question

ActiveControl 属性 返回拥有焦点的控件,例如你在每一个控件的Tag属性都添加上控件的名字，那么可用下面方法得到当前有焦点的控件的名字：
dim mName as string
mName=Form1.ActiveControl.Tag
要得到上一控件的名称，先定义一个全局变量，在每个控件的LostFocus 事件加上一句，例：
public gName as string
Private Sub text1_LostFocus ()
 gName=me.text1.name
End Sub
那么当你要知道上一控件时就可以了。
例：
当前控件 mName=Form1.ActiveControl.Tag
debug.print mname
上一控件
debug.print gname