Private Sub Form_Terminate() MsgBox ("aaaaaaaaaaa") End SubForm 的 Terminate 事件里~~~
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox("Exit?", vbYesNo) = vbNo Then Cancel = True End Sub
Private Sub Form_Terminate() MsgBox ("aaaaaaaaaaa") End Sub 不管用户点击什么都会关闭窗体啊Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox("Exit?", vbYesNo) = vbNo Then Cancel = True End Sub 在使用 otherfrm.show unload me 的时候也会给出提示,怎么解决啊谢谢各位了!!!
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim Msg If UnloadMode <> 1 Then Msg = "Do you really want to exit the application?" If MsgBox(Msg, vbQuestion + vbYesNo, Me.Caption) = vbNo Then Cancel = True End If end Sub 我用这个代码搞定了 大家帮忙看看有没有问题啊 再次谢谢各位 没有问题,一会过来结贴 ^_^unloadmode 参数返回下列值:常数 值 描述 vbFormControlMenu 0 用户从窗体上的“控件”菜单中选择“关闭”指令。 vbFormCode 1 Unload 语句被代码调用。 vbAppWindows 2 当前 Microsoft Windows 操作环境会话结束。 vbAppTaskManager 3 Microsoft Windows 任务管理器正在关闭应用程序。 vbFormMDIForm 4 MDI 子窗体正在关闭,因为 MDI 窗体正在关闭。 vbFormOwner 5 因为窗体的所有者正在关闭,所以窗体也在关闭。
msgbox "你想要的提示",vb..,"vb..."这样加不行吗?
Private Sub Form_Terminate()
MsgBox ("aaaaaaaaaaa")
End SubForm 的 Terminate 事件里~~~
If MsgBox("Exit?", vbYesNo) = vbNo Then Cancel = True
End Sub
MsgBox ("aaaaaaaaaaa")
End Sub
不管用户点击什么都会关闭窗体啊Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("Exit?", vbYesNo) = vbNo Then Cancel = True
End Sub
在使用
otherfrm.show
unload me
的时候也会给出提示,怎么解决啊谢谢各位了!!!
Dim Msg
If UnloadMode <> 1 Then
Msg = "Do you really want to exit the application?"
If MsgBox(Msg, vbQuestion + vbYesNo, Me.Caption) = vbNo Then Cancel = True
End If
end Sub
我用这个代码搞定了
大家帮忙看看有没有问题啊
再次谢谢各位
没有问题,一会过来结贴
^_^unloadmode 参数返回下列值:常数 值 描述
vbFormControlMenu 0 用户从窗体上的“控件”菜单中选择“关闭”指令。
vbFormCode 1 Unload 语句被代码调用。
vbAppWindows 2 当前 Microsoft Windows 操作环境会话结束。
vbAppTaskManager 3 Microsoft Windows 任务管理器正在关闭应用程序。
vbFormMDIForm 4 MDI 子窗体正在关闭,因为 MDI 窗体正在关闭。
vbFormOwner 5 因为窗体的所有者正在关闭,所以窗体也在关闭。