在VB6中遇到事件时结束程序

这是我的代码（部分），当一个客人猜了3次

If (counter = 3) And (rx.EOF = True) Then
    MsgBox "You guessed too many times! Intruder alert!"
    End
    .
    .

    .

是否有结束/冻结此用户以保护程序的最佳方法？ 任何想法都会有帮助。

End

不推荐使用，因为它会抑制清理事件，如

Form\u Unload

和

Class\u Terminate

。下面是VB6手册的一个摘录

End

：

注意结束语句停止代码 突然处决。 您在卸载中放置的代码， QueryLoad，并终止的事件 窗体和类模块不可用 执行

End语句提供了一种 强制您的程序停止。正常的 Visual Basic程序的终止， 您应该卸载所有表单

End

不推荐使用，因为它会抑制清理事件，如

Form\u Unload

和

Class\u Terminate

。下面是VB6手册的一个摘录

End

：

注意结束语句停止代码 突然处决。 您在卸载中放置的代码， QueryLoad，并终止的事件 窗体和类模块不可用 执行

End语句提供了一种 强制您的程序停止。正常的 Visual Basic程序的终止， 您应该卸载所有表单

End

不推荐使用，因为它会抑制清理事件，如

Form\u Unload

和

Class\u Terminate

。下面是VB6手册的一个摘录

End

：

注意结束语句停止代码 突然处决。 您在卸载中放置的代码， QueryLoad，并终止的事件 窗体和类模块不可用 执行

End语句提供了一种 强制您的程序停止。正常的 Visual Basic程序的终止， 您应该卸载所有表单

End

不推荐使用，因为它会抑制清理事件，如

Form\u Unload

和

Class\u Terminate

。下面是VB6手册的一个摘录

End

：

注意结束语句停止代码 突然处决。 您在卸载中放置的代码， QueryLoad，并终止的事件 窗体和类模块不可用 执行

End语句提供了一种 强制您的程序停止。正常的 Visual Basic程序的终止， 您应该卸载所有表单

---

您可以卸载所有表单

例如，一个允许您加载额外表单并卸载所有表单的项目

'1 form with:
'  2 command buttons: name=Command1   name=Command2

Option Explicit

Private Sub Command1_Click()
  Dim frm As New Form1
  frm.Caption = CStr(Now)
  frm.Show
End Sub

Private Sub Command2_Click()
  UnloadAll
End Sub

Private Sub Form_Load()
  Command1.Caption = "load extra"
  Command2.Caption = "unload all"
End Sub

Private Sub UnloadAll()
  Dim frm As Form
  For Each frm In Forms
    If frm.hWnd <> Me.hWnd Then
      Unload frm
    End If
  Next frm
  Unload Me
End Sub

'1带有以下内容的表单：
'2命令按钮：name=Command1 name=Command2
选项显式
专用子命令1_Click（）
将frm变为新表格1
frm.Caption=CStr（现在）
frm.秀
端接头
专用子命令2_Click（）
卸载
端接头
专用子表单_加载（）
Command1.Caption=“额外加载”
Command2.Caption=“全部卸载”
端接头
私有子对象
作为形式的Dim frm
对于表格中的每个frm
如果frm.hWnd Me.hWnd那么
卸载frm
如果结束
下一个frm
卸下我
端接头

不过，如果有任何循环（从不间断）正在运行，请务必小心。你需要确保这些先完成。

---

还要注意连接到其他设备/应用程序的控件/…

您可以卸载所有表单

例如，一个允许您加载额外表单并卸载所有表单的项目

'1 form with:
'  2 command buttons: name=Command1   name=Command2

Option Explicit

Private Sub Command1_Click()
  Dim frm As New Form1
  frm.Caption = CStr(Now)
  frm.Show
End Sub

Private Sub Command2_Click()
  UnloadAll
End Sub

Private Sub Form_Load()
  Command1.Caption = "load extra"
  Command2.Caption = "unload all"
End Sub

Private Sub UnloadAll()
  Dim frm As Form
  For Each frm In Forms
    If frm.hWnd <> Me.hWnd Then
      Unload frm
    End If
  Next frm
  Unload Me
End Sub

'1带有以下内容的表单：
'2命令按钮：name=Command1 name=Command2
选项显式
专用子命令1_Click（）
将frm变为新表格1
frm.Caption=CStr（现在）
frm.秀
端接头
专用子命令2_Click（）
卸载
端接头
专用子表单_加载（）
Command1.Caption=“额外加载”
Command2.Caption=“全部卸载”
端接头
私有子对象
作为形式的Dim frm
对于表格中的每个frm
如果frm.hWnd Me.hWnd那么
卸载frm
如果结束
下一个frm
卸下我
端接头

不过，如果有任何循环（从不间断）正在运行，请务必小心。你需要确保这些先完成。

---

还要注意连接到其他设备/应用程序的控件/…

您可以卸载所有表单

例如，一个允许您加载额外表单并卸载所有表单的项目

'1 form with:
'  2 command buttons: name=Command1   name=Command2

Option Explicit

Private Sub Command1_Click()
  Dim frm As New Form1
  frm.Caption = CStr(Now)
  frm.Show
End Sub

Private Sub Command2_Click()
  UnloadAll
End Sub

Private Sub Form_Load()
  Command1.Caption = "load extra"
  Command2.Caption = "unload all"
End Sub

Private Sub UnloadAll()
  Dim frm As Form
  For Each frm In Forms
    If frm.hWnd <> Me.hWnd Then
      Unload frm
    End If
  Next frm
  Unload Me
End Sub

'1带有以下内容的表单：
'2命令按钮：name=Command1 name=Command2
选项显式
专用子命令1_Click（）
将frm变为新表格1
frm.Caption=CStr（现在）
frm.秀
端接头
专用子命令2_Click（）
卸载
端接头
专用子表单_加载（）
Command1.Caption=“额外加载”
Command2.Caption=“全部卸载”
端接头
私有子对象
作为形式的Dim frm
对于表格中的每个frm
如果frm.hWnd Me.hWnd那么
卸载frm
如果结束
下一个frm
卸下我
端接头

不过，如果有任何循环（从不间断）正在运行，请务必小心。你需要确保这些先完成。

---

还要注意连接到其他设备/应用程序的控件/…

您可以卸载所有表单

例如，一个允许您加载额外表单并卸载所有表单的项目

'1 form with:
'  2 command buttons: name=Command1   name=Command2

Option Explicit

Private Sub Command1_Click()
  Dim frm As New Form1
  frm.Caption = CStr(Now)
  frm.Show
End Sub

Private Sub Command2_Click()
  UnloadAll
End Sub

Private Sub Form_Load()
  Command1.Caption = "load extra"
  Command2.Caption = "unload all"
End Sub

Private Sub UnloadAll()
  Dim frm As Form
  For Each frm In Forms
    If frm.hWnd <> Me.hWnd Then
      Unload frm
    End If
  Next frm
  Unload Me
End Sub

'1带有以下内容的表单：
'2命令按钮：name=Command1 name=Command2
选项显式
专用子命令1_Click（）
将frm变为新表格1
frm.Caption=CStr（现在）
frm.秀
端接头
专用子命令2_Click（）
卸载
端接头
专用子表单_加载（）
Command1.Caption=“额外加载”
Command2.Caption=“全部卸载”
端接头
私有子对象
作为形式的Dim frm
对于表格中的每个frm
如果frm.hWnd Me.hWnd那么
卸载frm
如果结束
下一个frm
卸下我
端接头

不过，如果有任何循环（从不间断）正在运行，请务必小心。你需要确保这些先完成。

---

还请注意连接到其他设备/应用程序的控件/…

除结束外，我还可以选择哪些其他选项？确保卸载所有表单会关闭应用程序。除结束外，我还可以选择哪些其他选项？确保卸载所有表单会关闭应用程序。我还可以选择哪些其他选项，除了结束？请确保卸载所有表单