1. 程式人生 > 實用技巧 >視窗類API函式測試題

視窗類API函式測試題

本題考查了FindWindowEx、GetParent、GetNextWindow這3個API函式的理解和掌握程度。

假設有一個視窗的控制代碼結構樹如下圖所示:

執行下面的Test()過程,立即視窗中的4個結果分別是什麼?

讀者可以把自己的答案回覆本帖,也可以加QQ群61840693與題目作者交流。

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As
String) As Long Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wFlag As Long) As Long Private Const GW_HWNDFIRST = 0 Private Const GW_HWNDLAST = 1 Private Const GW_HWNDNEXT = 2
Private Const GW_HWNDPREV = 3 Sub Test() Dim h(0 To 10) As Long h(0) = 264990 h(1) = FindWindowEx(h(0), 264988, "Button", vbNullString) h(2) = GetParent(h(0)) h(3) = GetNextWindow(264988, GW_HWNDPREV) h(4) = GetNextWindow(264988, GW_HWNDFIRST) Debug.Print h(1), h(2), h(3), h(4
) End Sub