Question

vb，关于MDI子窗体调用其父窗体的问题

假如A是父窗体，B是子窗体，B中有一个按钮。我想在点击这个按钮后调用父窗体中的一个函数，但是不能使用 A.函数名，请问各位高手，有没有其他方法可以达到这个目的？就像控件有一个parent属性可以返回它所在的窗体一样，子窗体是否也有一个属性可以返回其所在的父窗体？
其实我的目的是为了响应子窗体中的一个自定义事件。或者说在父窗体中定义这个事件，让子窗体触发也可。

Answer 1

你把要调用的函数前的声明Private 改成Public,就可以使用 A.函数名调用了
一个程序只有一个MDIFORM,所以子窗体没有也不大需要有parent类似的属性
封装一个ACTIVEX 公布的方法，将此函数发布出来。不过不建议这么做，这个需求本身有点问题，让子窗体和父窗体紧耦合了
子类化父窗口，自己处理父窗口的消息，由MDI子窗体用SendMessage往父窗体发自定义消息（比如WM_USER+100），在父窗口的子类化过程中来处理这个消息就可以了
如果不会做子类化，我可以给你写个例子

很高兴能够帮助到你,如果回答解决了你的问题的话,请"采纳"我的答案,谢谢!

Answer 2

你把要调用的函数前的声明Private 改成Public,就可以使用 A.函数名调用了
一个程序只有一个MDIFORM,所以子窗体没有也不大需要有parent类似的属性

很高兴能够帮助到你,如果回答解决了你的问题的话,请"采纳"我的答案,谢谢!

追问

我的函数已经是public了。因为我的父窗体是编译在activex exe 部件中的，所以不能使用 窗体名.函数名，否则会提示：只能允许一个MDI窗体

Answer 3

把函数封装到类中，父窗体和子窗体都调用类中的函数呢？

Answer 4

做任务，飘过~~当我不存在。

Answer 5

子类化父窗口，自己处理父窗口的消息，由MDI子窗体用SendMessage往父窗体发自定义消息（比如WM_USER+100），在父窗口的子类化过程中来处理这个消息就可以了
如果不会做子类化，我可以给你写个例子

追问

谢谢！给我个例子吧。我的邮箱是：guichuideng_2@126.com

追答

你能具体描述下你要干嘛吗？举个例子也行，要实现什么样的功能。不然例子写出来可能不是你想要的效果

追问

是这样的，我做了一个activex exe部件，里面有一个MDI父窗体和多个子窗体，在这个部件的类中我将父窗体进行了实例化：set 窗体=new 父窗体。现在有个子窗体中的一个动作需要通知到外部，于是我在父窗体中添加了一个自定义事件，但是子窗体无法触发父窗体中的事件，我就想在父窗体中添加一个函数来触发这个事件，然后子窗体调用这个函数即可。
以上就是这个问题的由来，不知是否明白？

追答

工程启动对象设为Sub Main，工程已经发到你的邮箱，代码如下

'Module1.bas
Dim MainFrm As MDIForm1
Sub Main()
Set MainFrm = New MDIForm1
MainFrm.Show
Dim ChildForm As New Form1
Set ChildForm.MainForm = MainFrm
ChildForm.Show
End Sub

'Form.frm
Public MainForm As MDIForm1
Private Sub Command1_Click()
MainForm.a
End Sub

'MDIForm1.frm
Public Sub a()
MsgBox "MDIForm1 a() Called"
End Sub