form1.frm

好的程序大家分享

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.Label Label1 
      Caption         =   "    在试图关闭此程序时会弹出一个确认对话框，如果你选择“确定”则退出程序，而如果你选“取消”则会返回程序中。"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   120
      TabIndex        =   0
      Top             =   360
      Width           =   4455
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'--------------------------------------------
'   在试图退出程序时回弹出确认对话框的例子
'--------------------------------------------
'           洪恩在线  求知无限
'--------------------------------------------
'程序说明：
'当程序执行到 End 语句或是按下了 Alt+F4 组合键或是
'右上角X时，VB会先询问Sub Form_QueryUnload接着询问
'Sub Form_Unload(Cancel As Integer)。
'如果询问时发现 Cancel 为0（默认为0）才会退出程序。
'这样我们在Sub Form_Unload()中把Cancel设为非0的值
'就能避免直接关闭程序。
'--------------------------------------------
'这是十分有用的，例如我们为了防止正在编辑的文件没
'有存盘就退出，可以在程序中加上这段代码，然后另定
'义一个变量记录是否已经存盘，如果已经存盘就正常退
'出，否则提示存盘的信息。
'--------------------------------------------


'这是一个保险的办法，可用 QueryUnload 事件阻止从 Windows 中的退出。
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim IntR As Integer
IntR = MsgBox("确认要退出程序吗？", vbYesNo, "退出确认")
If IntR = vbNo Then Cancel = -1
End Sub

'Unload事件，当窗体从屏幕上删除时发生
'说明:
'将 cancel 设置为任何非零的值可防止窗体被删除，但
'不能阻止其它事件，诸如从 Microsoft Windows 操作
'环境中退出等。
'-------------------------------------------
'Private Sub Form_Unload(Cancel As Integer)
'Dim IntR As Integer
'IntR = MsgBox("确认要退出程序吗？", vbYesNo, "退出确认")
'If IntR = vbNo Then Cancel = -1
'End Sub
'-------------------------------------------