7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
'直接显示即可'
Dim frm As New Form2
frm.Show()
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
'需要时可以从 OpenForms 中选取 Form2 集合'
Dim pm = Application.OpenForms.OfType(Of Form2)()
'Debug: 列出所有 Form2 实例的窗口句柄'
For Each frm In pm
Debug.Print(frm.Handle)
Next
End Sub