frmrethrow.frm

Visual Basic 6 大学教程的代码

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Fig. 13.10: Rethrowing an Error"
   ClientHeight    =   2790
   ClientLeft      =   2745
   ClientTop       =   1860
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   2790
   ScaleWidth      =   4680
   Begin VB.CommandButton cmdRethrow 
      Caption         =   "Input"
      Height          =   495
      Left            =   1560
      TabIndex        =   0
      Top             =   2160
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' Fig. 13.10
' Demonstrating rethrowing an error
Option Explicit

Private Sub cmdRethrow_Click()
   
   On Error GoTo handler
      Call rethrowTheError
      Exit Sub
      
handler:
   Print "cmdRethrow_Click's error handler executed!"
   Resume   ' Resume at line that raised error
End Sub

Private Sub rethrowTheError()
   Dim x As Integer
   
   On Error GoTo localHandler
      x = InputBox("Enter a number")   ' Errors can be raised here
      Print "You entered " & x
      Exit Sub
      
localHandler:
   
   If Err.Number = 13 Then   ' Type Mismatch error
      Print "Rethrowing error..."
      Call Err.Raise(13)     ' Rethrow error
   Else
      Print "Error: " & Err.Description
   End If
   
End Sub