Dim yesno As Long yesno = MsgBox("确认退出?", vbOKCancel, "退出") If yesno = vbCancel Then Cancel = 1 End If
Option ExplicitPrivate Sub Form_Unload(Cancel As Integer) Dim strMsg As String
strMsg = MsgBox("是否真的关闭程序?", vbQuestion + vbYesNo, "提示") If strMsg = vbNo Then Cancel = True Else Cancel = False End If End Sub
Private Sub Form_Unload(Cancel As Integer)
我晕,加上这个 Private Sub cmdCancal_Click() Unload Me End Sub
faint Private Sub cmdCancal_Click() end '全世界都清净 End Sub
凡是窗体正常退出都会有这个事件的 Unload 事件 当窗体从屏幕上删除时发生。当那个窗体被重新加载时,它的所有控件的内容均被重新初始化。当使用在 Control 菜单中的 Close 命令或 Unload 语句关闭该窗体时,此事件被触发。语法Private Sub object_Unload(cancel As Integer)Unload 事件语法包括下列部分:部分 描述 Object 一个对象表达式,其值是“应用于”列表中的一个对象。 Cancel 一个整数,用来确定窗体是否从屏幕删除。如果 cancel 为 0,则窗体被删除。将 cancel 设置为任何一个非零的值可防止窗体被删除。 说明将 cancel 设置为任何非零的值可防止窗体被删除,但不能阻止其它事件,诸如从 Microsoft Windows 操作环境中退出等。可用 QueryUnload 事件阻止从 Windows 中的退出。在窗体被卸载时,可用一个 Unload 事件过程来确认窗体是否应被卸载或用来指定想要发生的操作。也可在其中包括任何在关闭该窗体时也许需要的验证代码或将其中的数据储存到一个文件中。QueryUnload 事件在 Unload 事件之前发生。Unload 事件在 Terminate 事件之前发生。使用 Unload 语句或在一个窗体的“控件”菜单上选择“关闭”命令,用“任务窗口”列表上的“结束任务”按钮退出应用程序,在当前窗体为其一个子窗体的情况下关闭该 MDI 窗体,或当应用程序正在运行的时候退出 Microsoft Windows 操作环境等情况都可引发 Unload 事件。
居然遇到吾空和老唐了。 --------------------这个世界真的不清静呀。Private Sub cmdCancal_Click() *********************************************************** end '全世界都清净 *********2005年度最佳VB代码,2005年度最有潜力代码。******** End Sub ***********************************************************
Private Sub cmdCancal_Click() **************************************************** end '全世界都清净 *****2005年度最佳VB代码,2005年度最有潜力代码。***** End Sub ****************************************************
yesno = MsgBox("确认退出?", vbOKCancel, "退出")
If yesno = vbCancel Then
Cancel = 1
End If
Dim strMsg As String
strMsg = MsgBox("是否真的关闭程序?", vbQuestion + vbYesNo, "提示")
If strMsg = vbNo Then
Cancel = True
Else
Cancel = False
End If
End Sub
Private Sub cmdCancal_Click()
Unload Me
End Sub
Private Sub cmdCancal_Click()
end '全世界都清净
End Sub
Unload 事件
当窗体从屏幕上删除时发生。当那个窗体被重新加载时,它的所有控件的内容均被重新初始化。当使用在 Control 菜单中的 Close 命令或 Unload 语句关闭该窗体时,此事件被触发。语法Private Sub object_Unload(cancel As Integer)Unload 事件语法包括下列部分:部分 描述
Object 一个对象表达式,其值是“应用于”列表中的一个对象。
Cancel 一个整数,用来确定窗体是否从屏幕删除。如果 cancel 为 0,则窗体被删除。将 cancel 设置为任何一个非零的值可防止窗体被删除。
说明将 cancel 设置为任何非零的值可防止窗体被删除,但不能阻止其它事件,诸如从 Microsoft Windows 操作环境中退出等。可用 QueryUnload 事件阻止从 Windows 中的退出。在窗体被卸载时,可用一个 Unload 事件过程来确认窗体是否应被卸载或用来指定想要发生的操作。也可在其中包括任何在关闭该窗体时也许需要的验证代码或将其中的数据储存到一个文件中。QueryUnload 事件在 Unload 事件之前发生。Unload 事件在 Terminate 事件之前发生。使用 Unload 语句或在一个窗体的“控件”菜单上选择“关闭”命令,用“任务窗口”列表上的“结束任务”按钮退出应用程序,在当前窗体为其一个子窗体的情况下关闭该 MDI 窗体,或当应用程序正在运行的时候退出 Microsoft Windows 操作环境等情况都可引发 Unload 事件。
--------------------这个世界真的不清静呀。Private Sub cmdCancal_Click() ***********************************************************
end '全世界都清净 *********2005年度最佳VB代码,2005年度最有潜力代码。********
End Sub ***********************************************************
end '全世界都清净 *****2005年度最佳VB代码,2005年度最有潜力代码。*****
End Sub ****************************************************