[vb6] on error resume next

[ghiboz]

ciao!
questa riga di codice, se la metto all'inizio di una funzione, vale x tutta la funzione??
tnx!

[Brainjar]

Si.

Ciao,

[ghiboz]

Originariamente inviato da Brainjar
Si.

Ciao,

tnx!!!

[Brainjar]

Tieni presente che, in aggiunta, vale fino alla prossima 'On Error .."
che incontra.
Per cui è conveniente, oltre che esplicitamente raccomandato, avere
una gestione errore in ogni routine.

Esempio :

Private Sub Text2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

On Error GoTo Errore_Text2_MouseDown ' <--- Questo è il punto dove si salta a seguito di un errore.
    
    If Button = vbRightButton Then
        blEsc = True
    Else
        blEsc = False
    End If
    If blEsc Then SendKeys "{ESC}"

Exit Sub ' <---- Non dimenticare di uscire.

Errore_Text2_MouseDown:
'------------------------------------------- Gestione Errore
If Err.Number = 5 Then
    ' Gestisco l'errore 5 ........
End If
'-----------------------------------------------------------
End Sub

Ciao,