Gestione degli errori in VB6

Applicazioni desktop con Visual Basic 6 Impara a creare applicazioni gestionali col Visual Basic

Concesso in esclusiva a MrWebmaster.it - E' vietata la pubblicazione senza espresso consenso del proprietario

Come ogni linguaggio di programmazione anche il Visual Basic possiede un sistema di gestione degli errori, ovvero un sistema di controllo che evita che uno script (o meglio una routine), qualora dovesse andare in errore non per colpa dello sviluppatore ma per eventi legati al tempo o ad esplicite azioni degli utilizzatori di un programma, restituisca un errore gestito e non un errore generico in fase di esecuzione, cosa poco elegante e per nulla professionale.

In VB esistono due diversi sistemi per la gestione degli errori, entrambi implementati con la dichiarazione On Error seguita in un caso da Resume Next e nell'altro da GoTo; nel primo caso si specifica che un errore venga by-passato ed il programma va avanti senza badare al problema verificatosi; nel secondo caso la routine si interrompe e va al punto specificato.

Vediamo un esempio sintattico dell'enunciato On Error Resume Next

On Error Resume Next

' RIGA CHE GENERA UN ERRORE

If Err.Number <> 0 Then
    ' GESTIONE DELL'ERRORE
End If

Private Sub Form_Load()
    On Error Resume Next
    msg.Caption = 1 / 0
    If Err.Number <> 0 Then
        msg.Caption = "Impossibile dividere un numero per zero"
    End If
End Sub

On Error GoTo ERRORE

' RIGA CHE GENERA UN ERRORE

ERRORE:
    ' GESTIONE DELL'ERRORE

Private Sub Form_Load()
    On Error GoTo ERRORE
    msg.Caption = 1 / 0
ERRORE:
    msg.Caption = "Impossibile dividere un numero per zero"
End Sub