VB의 FindWindowsEx에 대해 전문가들이 입력했습니다.

1. N번째 컨트롤의 hwd를 찾는 함수를 제공합니다:

Function FindWnd(Phwnd As Long, ClassName As String, Index) As Long

i를 정수로, ChildHwnd를 길게

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

ChildHwnd 동안 수행

i = i 1

If i = Index Then

FindWnd = ChildHwnd

Exit Do

End If

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

루프

함수 종료

2. 함수 호출의 예:

계산기를 찾고 있습니다. 제목에 관계없이 상자에 있는 네 번째 "버튼"을 다음과 같이 호출하세요.

dim i as long, Phwnd as long

Phwnd = FindWindow (vbNullString, "계산기")

i=FindWnd(Phwnd, "Button", 4)