用QueryClose关闭当前窗体的同时如何打开一个新窗体

laterite

试过很多次，折腾了一上午，实在没招了，在QueryClose中用unload me可以关闭当前窗体，但同时添加XXXXXX.show代码后，新窗体可以打开，当前窗体却不能卸载，



Private Sub UserForm_QueryClose(Cancel As Integer, closemode As Integer)
    XXXXX.Show
    Unload Me
End Sub



请问，用QueryClose关闭当前窗体的同时如何打开一个新窗体？

tianying

XXXXX.Show 0

tianying

或者
Private Sub UserForm_Terminate()
UserForm2.Show
End Sub

laterite

tianying 发表于 2023-2-9 18:29
或者
Private Sub UserForm_Terminate()
UserForm2.Show

这个方法我之前也用过，但是是个失败的代码，只能使用一次，两个窗体来回多次切换的时失效

yuwd3

两个窗体来回切换我搞了很久也搞不定，后面用多页窗体，在多页窗体中切换，供参考

laterite

yuwd3 发表于 2023-2-10 04:42
两个窗体来回切换我搞了很久也搞不定，后面用多页窗体，在多页窗体中切换，供参考

嗯，这是一个值得考虑的方向，谢谢

laterite

试着再顶一次，看有大神们没有更好的解决方案

laterite

用XXXX.show 0的确可以在多窗体之间开启、关闭来回切换，但是窗体0模式后，封装软件封装成.exe再打开，会不执行Application.Visible = False，导致原始工作簿的所有表格一目了然，这显然不能接受。

如果实在无法解决这个矛盾，只能最终选择屏蔽窗体右上角的关闭按钮了