Acerca de FindWindowsEx de VB, entran los expertos

1. Proporcionarle una función para encontrar el hwd del control Nth:

Función FindWnd(Phwnd As Long, ClassName As String, Index) As Long

Atenuar i como entero, ChildHwnd mientras

ChildHwnd = FindWindowEx(Phwnd, 0, ClassName, vbNullString)

Hacer mientras ChildHwnd

i = i + 1

Si i = Índice entonces

FindWnd = ChildHwnd

Salir Do

Finalizar si

ChildHwnd = FindWindowEx ( Phwnd, ChildHwnd, ClassName, vbNullString)

Bucle

Finalizar función

2. Ejemplos de llamadas a funciones:

Si lo deseas. para encontrar el cálculo El cuarto "Botón" en la calculadora, independientemente de su título, llámelo así:

atenuar i tan largo,Phwnd tan largo

Phwnd = FindWindow(vbNullString , "Calculadora" )

i=FindWnd(Phwnd, "Botón", 4)