vb中如何判断获得焦点

转载的：
'把sng传给子窗体
Set frmX = Forms.Item("FrmWeekFood").Form
Set frmChild = frmX.chdFrmRecipeFood.Form
If frmChild.ActiveControl Is frmChild.数量 Then frmChild.数量 = sngQuant
If frmChild.ActiveControl Is frmChild.单位营养量 Then frmChild.单位营养量 = sngQuant

Set frmX = Nothing
Set frmChild = Nothing

每个控件都会有这么一个事件XXX_GetFous()
我不知道写对没有，这里没有VB。
你在VB代码窗里选中那个控件，在事件列表里就会有的
你可以用这个事件来实现你想要的功能。
如果想让某个控件获得焦点，可以用XXX.SetFous

补充：“If XXX.GetFous Then”也可以用来判断是否获得焦点的。

Windows通过句柄(Handle)识别每个窗体、控件、菜单和菜单项，当程序运行时,它所包含的每个部件都有一个惟一确定的句柄同其他的部件相区别句柄在Windows API中具有举足轻重的作用，现举三例，有兴趣的读者不妨一试。

获取窗体和控件的句柄

步骤如下：

1、为了看到显示于屏幕上所有的窗体和控件的句柄，用SetWindowPos函数设置窗口始终在最上面，其他窗口不能覆盖它，并使其只以标题显示于屏幕左上角。

(1)新建一工程，打开API Viwer：Add-ins→API Viewer→File→Load text file→Win32api.txt。

(2)将SetWindowPos函数的声明粘贴到窗体的声明部分：Private Declare Function SetWindowPos Lib "