有分了请教！！！！

Question

如何在关闭窗体时（点小叉叉）窗体不关闭
在什么事件里写代码呀？？？？ QuitUnload 还是 Unload 还是别的？？
着急呀
快帮忙

Answer 1

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = True
End Sub

Answer 2

利用 UnloadMode 来控制窗体的卸载？
在QueryUnload事件中,Visual Basic提供了UnloadMode参数,利用这个参数,我们可以控制窗体的卸载.
    下面的这个例子,就只能通过点击按钮来卸载窗体.
Option ExplicitPrivate Sub Command1_Click()
Unload Me
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode <> 1 Then
Cancel = True
End If
End Subunloadmode 参数返回下列值：
常数                  值        描述
vbFormControlMenu    0     用户从窗体上的“控件”菜单中选择“关闭”指令。
vbFormCode           1      Unload 语句被代码调用。
vbAppWindows         2    当前 Microsoft Windows 操作环境会话结束。
vbAppTaskManager     3    Microsoft Windows 任务管理器正在关闭应用程序。
vbFormMDIForm        4    MDI 子窗体正在关闭，因为 MDI 窗体正在关闭。 

Answer 3

利用 UnloadMode 来控制窗体的卸载？
在QueryUnload事件中,Visual Basic提供了UnloadMode参数,利用这个参数,我们可以控制窗体的卸载.
    下面的这个例子,就只能通过点击按钮来卸载窗体.
Option ExplicitPrivate Sub Command1_Click()
Unload Me
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode <> 1 Then
Cancel = True
End If
End Subunloadmode 参数返回下列值：
常数                  值        描述
vbFormControlMenu    0     用户从窗体上的“控件”菜单中选择“关闭”指令。
vbFormCode           1      Unload 语句被代码调用。
vbAppWindows         2    当前 Microsoft Windows 操作环境会话结束。
vbAppTaskManager     3    Microsoft Windows 任务管理器正在关闭应用程序。
vbFormMDIForm        4    MDI 子窗体正在关闭，因为 MDI 窗体正在关闭。 

Answer 4

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim a As String
If Added Or Edited Then
   a = MsgBox("您正在操作的数据尚未存盘，是否要保存?", vbYesNoCancel, Me.Caption)
End If
Select Case a
   Case vbYes: Command1_Click
               Cancel = Added Or Edited
   Case vbNo:  Command2_Click
               Cancel = False
   Case vbCancel: Cancel = True
End Select
End Sub

Answer 5

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = True
End Sub

Answer 6

QueryUnload是用来确认关闭的
Unload是用来释放数据的