请教如何得到一个窗口内所有控件的句柄列表？

[inter913]

请指教！

[大智 Kevin]

On Error Resume Next
Dim ct As Control
For Each ct In Me.Controls
Debug.Print ct.Name & " ---> " & ct.hWnd
Next
'不是所有的控件都能得到句柄的哦.

[大智 Kevin]

上面的me 可用任何窗体的名称代替。

[TechnoFantasy]

1、在工程中添加一个Module，代码：
Option Explicit

Public Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As _
Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Public Function EnumWindows_CBK(ByVal hWnd As Long, ByVal lParam As Long) As Long
Form1.List1.AddItem Str(hWnd)
EnumWindows_CBK = 1
End Function


2、在Form1中添加一个List控件，一个CommandButton控件以及其它控件，代码：
Option Explicit

Private Sub Command1_Click()
EnumChildWindows Me.hWnd, AddressOf EnumWindows_CBK, 1
End Sub

运行程序，点击Command1，可以看到List1中列出全部控件的句柄。

[TechnoFantasy]

上面的代码可以获得任意窗口的控件句柄列表。

[做一个码农都是奢望]

up

[tgc99]

1、在工程中添加一个Module，代码：
Option Explicit

Public Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As _
Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Public Function EnumWindows_CBK(ByVal hWnd As Long, ByVal lParam As Long) As Long
Form1.List1.AddItem Str(hWnd)
EnumWindows_CBK = 1
End Function


2、在Form1中添加一个List控件，一个CommandButton控件以及其它控件，代码：
Option Explicit

Private Sub Command1_Click()
EnumChildWindows Me.hWnd, AddressOf EnumWindows_CBK, 1
End Sub

运行程序，点击Command1，可以看到List1中列出全部控件的句柄。