给form2加上Parent属性,在调用前设置Paret属性,判断Parent类名即可
Private mfrmParent As Form
Public Property Get Parent() As Form
Set Parent=mfrmParent
End Property
Public Property Set Parent(Byval vData As Form)
Set mfrmParent=vData
End Property
Private mfrmParent As Form
Public Property Get Parent() As Form
Set Parent=mfrmParent
End Property
Public Property Set Parent(Byval vData As Form)
Set mfrmParent=vData
End Property
frm1.tag=me.name
frm1.show然后, 在form1可以随时读me.tag得到调用者的名称。
创建窗体时,窗体名可以用frm1,frm2,frm3...在函数那里加上变量,执行时将窗体名记录到一个变量里。
另问题我已经解决了,ltpao(啊炮):说的极是。