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

最新推荐文章于 2025-01-14 18:18:40 发布

原创最新推荐文章于 2025-01-14 18:18:40 发布 · 6.3k 阅读

2 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

VB6

当前文章被收录于：

VB6

4 篇文章 0 人学习

订阅专栏查看详情

当前文章被以下社区和专栏收录：

本文介绍了如何使用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

标签

#function #user