获取弹出式窗口（对话框）句柄

最新推荐文章于 2020-10-23 09:58:53 发布

原创最新推荐文章于 2020-10-23 09:58:53 发布 · 6k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#function #user

VB6 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了如何使用API函数在VB中获取弹出式窗口（如Notepad的消息框）的句柄，包括IsWindow、GetWindow和GetLastActivePopup等函数的用法，提供两种不同的查找方法。

原文：

获取弹出式窗口（对话框）句柄

http://www.vbgood.com/thread-103057-1-1.html

昨天遇到了这个问题；碰巧今天在MSDN上看到了这方面的内容，记录下。假设要获取 Notepad 的弹出消息框，那么可以这样做： Public Declare Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Public Const GW_CHILD = 5 Public Const GW_HWNDFIRST = 0 Public Const GW_HWNDLAST = 1 Public Const GW_HWNDNEXT = 2 Public Const GW_HWNDPREV = 3 Public Const GW_OWNER = 4 Public Const GW_ENABLEDPOPUP = 6 Public Declare Function GetLastActivePopup Lib "user32" (ByVal hwndOwnder As Long) As Long Public hNotepad As Long, hPopup As Long '=========================================== hNotepad = FindWindow("Notepad", vbNullString) If IsWindow(hNotepad) Then 'method 1st hPopup = GetWindow(hNotepad, GW_ENABLEDPOPUP) Debug.Assert hPopup <> 0 'popup window found 'method 2ed hPopup = GetLastActivePopup(hNotepad) Debug.Assert hPopup <> hNotepad 'popup window found End If 复制代码上面我认为是比较好的做法，当然也可以通过其它方法查找。以后有新发现我会再添加的。参考链接：http://msdn.microsoft.com/en-us/library/ms632595(v=vs.85).aspx