弹出窗体怎么引用主窗体的函数？

Question

我想在弹出窗体关闭是调用主窗体的一个函数
应该怎么做
谢谢您的帮忙

Answer 1

你在主窗口中定义一个公共的过程
如下在form1中
Private Sub Command1_Click()
    Form2.Show 1  '弹出form2
End SubPrivate Sub msg()
    MsgBox "dsdsdsd"
End Sub在form2的命令按钮上加入Private Sub Command1_Click()
    Form1.msg
    
End Subvb60测试成功

Answer 2

其他不变
Public Sub msg()
    MsgBox "dsdsdsd"
End Sub

Answer 3

如下在form1中
Private Sub Command1_Click()
    Form2.Show 1  '弹出form2
End SubPublic Sub msg()
    MsgBox "dsdsdsd"
End Sub在form2的命令按钮上加入Private Sub Command1_Click()
    Form1.msg
    
End Sub==========
这是楼上的代码,改正了一个声明类型,改为PUBLIC~~~~

Answer 4

明白了
'Form1
Private Sub Command1_Click() '这个是你的控件，我没理解错吧
msgbox "I am in Form1"
end sub
Public Sub MsgIt()
Command1_Click
end sub'Form2
Private Sub FormLoad()
Form1.MsgIt
end sub

Answer 5

建议：
Public I As Object
Public Sub MsgIt(Txt As String)
MsgBox Txt
End SubPrivate Sub UserControl_Initialize()
Set I = Me
'不行的话 Set M1.II=Me
I.MsgIt "aaaaaaa"End Sub其次，如果失败，那么添加一个模块，把主要代码放在模块里，定义为Public
然后访问
M1.bas
Public II as objectii.msgit "bbbbbbbbb"

Answer 6

'usercontrol
Option ExplicitPublic Sub MsgIt(Txt As String)
MsgBox Txt
End SubPrivate Sub UserControl_Initialize()
Set M1.II = Me
End Sub'form1
Private Sub Command1_Click()
II.MsgIt "ssssssssssss"
End Sub'M1.basOption ExplicitPublic II As Object

Answer 7

我在弹出的窗口上定义了一个public型函数
Private Parent As uctrUpload
Public Sub SetPrt(Par As uctrUpload)
    Parent = Par
End Sub在控件uctrUpload显示弹出窗口的时候
调用窗体的SetPrt（Me)
把me传给窗体，不知道到为什么这样不行

Answer 8

CSDN服务器的表是不是快了10分钟，我不敢确定，楼下的帮忙看看

Answer 9

你的问题我认为自己理解了（不好意思，这才悟出来）'usercontrol
Option Explicit
Public I As ObjectPrivate Sub UserControl_Click()
Set I = UserControl.Parent
I.ShowMeTheMoney
End Sub
'form1
Option Explicit
Public Sub ShowMeTheMoney()
MsgBox "you got 10000$"
End Sub效果，点击UserControl激活Form1.showmethemoney

Answer 10

呵呵，是我没表达好
谢谢你了a11s我自己也解决了
其实只要这样控件uctrUpload
Set frmProgress.Parent = Me
frmProgress.Show
窗体frmProgress
Public Parent As uctrUploadPrivate Sub cmdCancel_Click()
   Me.Hide
   Parent.Reset
End Sub
再次感谢a11s
csdn的钟确实快了：）