vb.net查所有子窗口 vbs查看窗口是否存在

vb.net怎么枚举父窗口下所有子窗口

Dim HanStr As String = ""

For Each Form In Me.MdiChildren

HanStr += Form.Handle.ToString

Next

MsgBox(HanStr)

vb.net如何查找打开的窗口

将NewForm设置为全局变量就可以了，如果新建窗口比较多，就设置为数组，例如：

Public Class Form1

Dim NewForm(10) As Form

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

NewForm(0) = New Form

NewForm(0).Show()

End Sub

End Class

VB怎么枚举窗体中所有子窗体句柄

VB 遍历窗口所有子窗体句柄

Private Const GW_CHILD = 5

Private Const GW_HWNDFIRST = 0

Private Const GW_HWNDNEXT = 2

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Private Declare Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Private Sub FillChild(hWndParent As Long)

Dim hWndChild As Long

Dim szCaption As String

Dim buffer As String

Dim i As Long

hWndChild = GetWindow(hWndParent, GW_CHILD)

If (hWndChild = 0) Then Exit Sub

hWndChild = GetWindow(hWndChild, GW_HWNDFIRST)

If hWndChild = 0 Then Exit Sub

While (hWndChild 0)

szCaption = String$(255, 0)

GetClassName hWndChild, szCaption, 250

szCaption = Left$(szCaption, InStr(szCaption, String$(1, 0)) - 1)

buffer = CStr(hWndChild) "--" szCaption

i = GetWindowTextLength(hWndChild)

szCaption = String$(255, 0)

GetWindowText hWndChild, szCaption, 250

szCaption = Left$(szCaption, i)

buffer = buffer "--" szCaption

List1.AddItem buffer

FillChild hWndChild

hWndChild = GetWindow(hWndChild, GW_HWNDNEXT)

Wend

End Sub

Private Sub GetChildWindow(hwnd As Long)

Dim szCaption As String

Dim buffer As String

Dim i As Long

List1.Clear

szCaption = String$(255, 0)

GetClassName hwnd, szCaption, 250

szCaption = Left$(szCaption, InStr(szCaption, String$(1, 0)) - 1)

buffer = CStr(hwnd)

buffer = buffer "--" szCaption

i = GetWindowTextLength(hwnd)

szCaption = String$(255, 0)

GetWindowText hwnd, szCaption, 250

szCaption = Left$(szCaption, i)

buffer = buffer "--" szCaption

List1.AddItem buffer

FillChild hwnd

End Sub

调用方法

GetChildWindow hwnd'hwnd是指定的窗口句柄

结果以

窗体句柄--窗体类名称--窗体Text

形式列在列表框List1中

VB怎么寻找子窗口

根据补充信息，修改如下：

在窗体上加入控件command1,然后复制下面代码，运行，启动画图程序，单击command1，即可找到你要的画纸的句柄！

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

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 Sub Command1_Click()

Dim huatu, huazi

Dim i As Integer

huatu = FindWindowEx(0, 0, vbNullString, "未命名 - 画图")

Do Until huatu = 0

huazi = FindWindowEx(huatu, 0, "AfxFrameOrView42u", vbNullString)

huazi = FindWindowEx(huazi, 0, "Afx:1000000:8", vbNullString)

i = i + 1

MsgBox "找到第" i "个画纸，它的句柄是：" huazi

huatu = FindWindowEx(0, huatu, vbNullString, "未命名 - 画图")

Loop

End Sub

vb.net查所有子窗口的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs查看窗口是否存在、vb.net查所有子窗口的信息别忘了在本站进行查找喔。