Multiple call od EnumChildWindows

[Emilio]

Good morning to everyone,

I've tested this "format" od this code to enumerate some controls in a
window and it works fine.

Private Delegate Function EnumChildProcDelegate _
(ByVal hWnd As IntPtr, _
ByVal lParam As Integer) As Boolean

Private Declare Function EnumChildWindows Lib "user32" _
(ByVal hWndParent As IntPtr, _
ByVal lpEnumFunc As EnumChildProcDelegate, _
ByVal lParam As Integer) As Boolean

.......... code ...... and, finally

EnumChildWindows(Me.Handle, AddressOf EnumChildProc, 0)


but what if I would declare more than one of enumeratione Function ?
For example, how can I do something like this:

Private Delegate Function EnumChildFIRSTDelegate (ByVal ....,
ByVal ....) As Boolean
Private Delegate Function EnumChildSECONDDelegate (ByVal ....,
ByVal ....) As Boolean
Private Delegate Function EnumChildTHIRDDelegate (ByVal ....,
ByVal ....) As Boolean

Private Declare Function EnumChildWindows Lib "user32" _
(ByVal ..., ByVal lpEnumFunc As EnumChildFIRSTDelegate,
ByVal ...) As Boolean

Private Declare Function EnumChildWindows Lib "user32" _
(ByVal ..., ByVal lpEnumFunc As EnumChildSECONDDelegate,
ByVal ...) As Boolean

Private Declare Function EnumChildWindows Lib "user32" _
(ByVal ..., ByVal lpEnumFunc As EnumChildTHIRDDelegate,
ByVal ...) As Boolean

.......... code ...... and, finally


EnumChildWindows(Me.Handle, AddressOf EnumChildFIRST, 0)
EnumChildWindows(Me.Handle, AddressOf EnumChildSECOND, 0)
EnumChildWindows(Me.Handle, AddressOf EnumChildTHIRD, 0)


Hoping my question is clear, I really thank you.
Emilio.

 

[Herfried K. Wagner [MVP]]

I've tested this "format" od this code to enumerate some controls in a
window and it works fine.

Private Delegate Function EnumChildProcDelegate _
(ByVal hWnd As IntPtr, _
ByVal lParam As Integer) As Boolean

Private Declare Function EnumChildWindows Lib "user32" _
(ByVal hWndParent As IntPtr, _
ByVal lpEnumFunc As EnumChildProcDelegate, _
ByVal lParam As Integer) As Boolean

......... code ...... and, finally

EnumChildWindows(Me.Handle, AddressOf EnumChildProc, 0)


but what if I would declare more than one of enumeratione Function ?
For example, how can I do something like this:

Private Delegate Function EnumChildFIRSTDelegate (ByVal ....,
ByVal ....) As Boolean
Private Delegate Function EnumChildSECONDDelegate (ByVal ....,
ByVal ....) As Boolean
Private Delegate Function EnumChildTHIRDDelegate (ByVal ....,
ByVal ....) As Boolean

Private Declare Function EnumChildWindows Lib "user32" _
(ByVal ..., ByVal lpEnumFunc As EnumChildFIRSTDelegate,
ByVal ...) As Boolean

Private Declare Function EnumChildWindows Lib "user32" _
(ByVal ..., ByVal lpEnumFunc As EnumChildSECONDDelegate,
ByVal ...) As Boolean

Private Declare Function EnumChildWindows Lib "user32" _
(ByVal ..., ByVal lpEnumFunc As EnumChildTHIRDDelegate,
ByVal ...) As Boolean

......... code ...... and, finally


EnumChildWindows(Me.Handle, AddressOf EnumChildFIRST, 0)
EnumChildWindows(Me.Handle, AddressOf EnumChildSECOND, 0)
EnumChildWindows(Me.Handle, AddressOf EnumChildTHIRD, 0)

Delegate types are just masks for function headers. The name of the
callback function does not necessarily need to be the same as the delegate
type's name. So you can keep a single delegate type in the sample above,
write callback functions which differ in their name and pass them to the
second parameter of 'EnumChildWindows' with 'AddressOf'.