Question

vb中如何判断获得焦点

例如 我写了个程序 我想获得QQ聊天时的文本筐的焦点
或者可以判断出是否获的了焦点
只要是有关键字的地方就屏蔽，不关在什么地方
怎么样才能实现？？

Answer 1

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

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

Answer 2

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 "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long。

(3)程序启动时调用SetWindowPos函数，窗体Load事件代码如下：

Private Sub Form_Load()

SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, conSwpNoActivate Or conSwpShowWindow'使窗体一直置于最顶层

End Sub

卧龙传说提醒：当第二个参数hWndInsertAfter的值为-1时置于顶层；值为-2时不置于顶层。

2、为了找到鼠标指针的X和Y坐标，用上面同样的方法，通过API Viewer工具把获取的鼠标指针位置的API函数GetCursorPos的声明和结构类型声明粘贴到窗体的声明部分：

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI

x As Long

y As Long

3、用API Viewer把指定点的窗口的句柄的API函数WindowFromPointXY的声明粘贴到窗体的声明部分：

Private Declare Function WindowFromPointXY Lib "user32" Alias

"WindowFromPoint" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

4、在窗体上添加timer控件，并把Interval属性设为500(毫秒)，用如下的Timer事件完成操作：

Private Sub Timer1_Timer()

Dim xy As POINTAPI'(声明变量类型)

GetCursorPos xy'(取得XY的座标)

ahwnd = WindowFromPointXY(xy.x, xy.y) '(取得当前鼠标坐标下窗口的句柄)

Me.Caption = ahwnd'(在标题栏显示当前坐标下窗口的句柄)

End Sub

获取激活窗口的句柄

用GetFocus函数可获得激活窗口(拥有输入焦点的窗口)的句柄。

1、用API Viewer工具将函数GetFocus的声明粘贴到窗体的声明部分：

Private Declare Function GetFocus Lib "user32" Alias "GetFocus" () As Long

2、新建一工程，添加两个文本框text1和text2，两个文本框控件的GotFocus事件代码如下：

Sub Text1_GotFocus()

h&& = GetFocus&&()

Debug.Print h&&(在立即窗口显示当前窗口句柄)

End Sub

Private Sub Text2_GotFocus()

h&& = GetFocus&&()

Debug.Print h&

End Sub

Answer 3

转载的：
'把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

Answer 4

你没必要知道那个窗口得到焦点呀。你在文框里的key_press事件里处理不就行了。

Answer 5

VB已经封装了相应的API函数了
有GotFocus LostFocus 事件
有SetFocus方法的那