private sub frm2_unload() frm1.text=frm2.text end sub
大侠 这个unload方法 会在frm2关闭的时候自动调用吗 ?
大侠 这个unload方法 会在frm2关闭的时候自动调用吗 ?
好好把基础打好吧!建议你看看MSDN关于Unload的文章!标准模块:public cText as string'类型自定 Frm2窗体模块:private sub frm2_unload() cText=text1.text '这样在Frm1中可直接使用cText值 end sub
Public text1 As StringPrivate Sub frm2_unload() frm1.tex1 = frm2.text1 MsgBox "frm2" End Sub我是这样用的呀 可是在关闭frm2的时候,根本没有调用unload方法?困惑~~~~
试试这样行不行:标准模块: public cText as string'类型自定 Frm2窗体模块: Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim information As Integer information = MsgBox(PlayScreen.Caption & "关闭Frm2窗口!" & Chr(13) & Chr(10) & "---程序设计:ChenJL1031---", vbOKOnly + vbCritical + vbSystemModal, "应用程序") cText=text1.text '这样在Frm1中可直接使用cText值 Cancel = 0 End Sub
frm1.text=frm2.text
end sub
大侠 这个unload方法 会在frm2关闭的时候自动调用吗 ?
好好把基础打好吧!建议你看看MSDN关于Unload的文章!标准模块:public cText as string'类型自定
Frm2窗体模块:private sub frm2_unload()
cText=text1.text '这样在Frm1中可直接使用cText值
end sub
frm1.tex1 = frm2.text1
MsgBox "frm2"
End Sub我是这样用的呀 可是在关闭frm2的时候,根本没有调用unload方法?困惑~~~~
public cText as string'类型自定
Frm2窗体模块:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim information As Integer
information = MsgBox(PlayScreen.Caption & "关闭Frm2窗口!" & Chr(13) & Chr(10) & "---程序设计:ChenJL1031---", vbOKOnly + vbCritical + vbSystemModal, "应用程序")
cText=text1.text '这样在Frm1中可直接使用cText值
Cancel = 0
End Sub