如何求得一个窗口的父窗口？

[glvicky]

例如有三个窗口；
form1,form2,form3
点击form1,form2都能打开form3~
那我操作form3的时候要返回信息，但怎么知道是form1还是form2打开它呢？

[faysky2]

Public Declare Function GetParent Lib "user32" Alias "GetParent" (ByVal hwnd As Long) As Long

[xDAVIDx]

利用form3的Tag信息也可以,用form1打开设置一个值,form2打开设置一个值.返回时先判断Tag值再返回 :)

[rainstormmaster]

楼主的情况不适宜用getparent,应该这样做:

窗体1:
Option Explicit

Private Sub Command1_Click()
Form3.Show , Me '参数me一定要加上，不加的话其onwer为vb的虚拟机
End Sub

窗体2:
Option Explicit

Private Sub Command1_Click()
Form3.Show , Me '参数me一定要加上，不加的话其onwer为vb的虚拟机
End Sub

窗体3:
Option Explicit
Private Const GW_OWNER = 4
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Private Sub Command1_Click()
Dim mhwnd As Long
mhwnd = GetWindow(Me.hwnd, GW_OWNER)
Dim a As Form
For Each a In Forms
If a.hwnd = mhwnd Then
MsgBox "打开我的是：" + a.Name
Exit For
End If
Next
Set a = Nothing
End Sub

[rainstormmaster]

//不加的话其onwer为vb的虚拟机

拼错了,应为owner

[glvicky]

呵，我的问题就是这样，谢谢rainstormmaster(暴风雨 v2.0)~