Bonjour,

je suis sur VB6.

Dans "Test2" je genere volontairement une erreur.

Si dans "Test1" j'appelle "Test2", l'erreur est récuperée par le gestionnaire
d'erreur de "Test1".
Mais si je l'appelle par "Form1.Test2", alors c'est VB6 qui m'affiche l'erreur.

Qui peut m'expliquer pourquoi ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub Bouton1_Click()
   Form1.Test1
End Sub
 
 
Public Sub Test1()
   On Error GoTo ErrorTest1
 
   Test2               'ok
   Form1.Test2      'pas ok
Exit Sub
 
ErrorTest1:
   MsgBox Err.Number
End Sub
 
Public Sub Test2()
   Dim a As Byte
   a = -1
End Sub