Access或VB VBA 穫取瞭窗體或控件的句柄 Hwnd, 如果用API 設置焦點到這箇控件或窗體上

可使用以下的代碼，要準確定位焦點

1. 使用VB API SendMessage來實現

簡易使用SendMessage,比SetFocus更爲底層,調用速度快
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETFOCUS = &H7
SendMessage childhwnd, WM_SETFOCUS, 0, ByVal 0&

2. 如果用API Setfocus也是可以的。

VB SetFocus方法的介紹

將焦點移至指定的控件或窗體。

語法

object.SetFocus

object 所在處代錶對象錶達式，其值是“應用於”列錶中的一箇對象。

説明

對象必鬚是 Form 對象、MDIForm 對象或者能夠接收焦點的控件。調用 SetFocus 方法以後，任何的用戶輸入將指曏指定的窗體或控件。

焦點隻能移到可視的窗體或控件。因爲在窗體的 Load 事件完成前窗體或窗體上的控件是不可視的，所以如果不是在 Form_Load 事件過程完成之前首先使用 Show 方法顯示窗體的話，是不能使用 SetFocus 方法將焦點移至正在自己的 Load 事件中加載的窗體的。

也不能把焦點移到 Enabled 屬性被設置爲 False 的窗體或控件。如果已在設計時將 Enabled 屬性設置爲 False，必鬚在使用 SetFocus 方法使其接收焦點前將 Enabled 屬性設置爲 True。

可使用SetFocus的部分控件

1.MDI窗體。

2.窗體

3.ADODATA 控件

4.Animation 控件

5.CheckBox 控件

6.ComboBox 控件

7.CommandButton 控件

8.所有數據（Data）控件

9.DateTimePicker 控件

10.DirListBox 控件

11.DriveListBox 控件

12.FileListBox 控件

13.HScrollBar 、VScrollbar 控件

14.FlatScrollbar 控件

15.ListBox 和 ListView 控件

16.TextBox 控件

17.Imagecombo 控件

18.Masked Edit 控件

19.OLE 容器控件

20.MSFlexGrid 和 MSHFlexGrid 控件（彆把兩箇控件混一起瞭）

21.OptionButton 控件

22.PictureBox 控件

23. 屬性頁對象（Property Page ）

24.RichTextBox 控件

25.Silder 控件

26. 用戶自定義控件對象（UserControl ）

27.ActiveX 文檔（UserDocument）

28.TabStrip 控件

29.TreeView 控件

30.updown 控件

31.Window 對象

聯繫人：	王先生
Email：	18449932@qq.com
QQ：	18449932
微博：	officecn01

聯繫人：

王先生

Email：

18449932@qq.com

QQ：

18449932

微博：

officecn01