Discussion :

[beegees]

Bonjour tout le monde,

Je débute en VB mais j'ai des connaissances de C, C++ et JAVA.

Sauriez-vous me dire si comme en C++, on peut passer un paramètre par référence en VB ?

J'aimerais envoyer "s" qui est un numéro de ligne à la procédure B qui va augmenter le s (ou le diminuer) et ensuite, quand je reviendrais dans la procédure de départ (A), le s devrait avoir la valeur modifiée dans la procédure B.

C'est faisable en Visual Basic 6 ?

Merci d'avance pour votre aide.

beegees

[OhMonBato]

Tu peux soit faire une sub en passant ta valeur en paramètres ou bien une fonction qui renverra la valeur calculée.
regarde un peu l'aide sur Sub et Function. Tu as sinon un lien sur des tutos dans ma signature.

[SfJ5Rpw8]

b'jr

en VB les paramètres sont transmis par référence par défaut :

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
22
23
 
Private Sub Command1_Click()
 Dim iNumLigne As Integer
 iNumLigne = 2
 MsgBox "AVANT " & iNumLigne
 MaSub1 iNumLigne
 MsgBox "Apres Mas sub 1 : " & iNumLigne
 MaSub2 iNumLigne
 MsgBox "Apres Mas sub 2 : " & iNumLigne
 MaSub3 iNumLigne
 MsgBox "Apres Mas sub 3 : " & iNumLigne
 
End Sub
 
Sub MaSub1(i As Integer)
   i = i + 1
End Sub
Sub MaSub2(ByRef i As Integer) 'Paramètre par référence
   i = i + 10
End Sub
Sub MaSub3(ByVal i As Integer) ' paramètre par valeur
   i = i + 100
End Sub

le mot clef byRef te permet d'afficher de façon plus explicite le passage de paramètre par référence.

[beegees]

Tu peux soit faire une sub en passant ta valeur en paramètres ou bien une fonction qui renverra la valeur calculée.
regarde un peu l'aide sur Sub et Function. Tu as sinon un lien sur des tutos dans ma signature.

Bonjour,

Merci pour ta réponse et surtout pour tes tutos que je vais m'empresser d'aller voir.

Encore un grand merci à toi.

beegees

b'jr

en VB les paramètres sont transmis par référence par défaut :

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
22
23
 
Private Sub Command1_Click()
 Dim iNumLigne As Integer
 iNumLigne = 2
 MsgBox "AVANT " & iNumLigne
 MaSub1 iNumLigne
 MsgBox "Apres Mas sub 1 : " & iNumLigne
 MaSub2 iNumLigne
 MsgBox "Apres Mas sub 2 : " & iNumLigne
 MaSub3 iNumLigne
 MsgBox "Apres Mas sub 3 : " & iNumLigne
 
End Sub
 
Sub MaSub1(i As Integer)
   i = i + 1
End Sub
Sub MaSub2(ByRef i As Integer) 'Paramètre par référence
   i = i + 10
End Sub
Sub MaSub3(ByVal i As Integer) ' paramètre par valeur
   i = i + 100
End Sub

le mot clef byRef te permet d'afficher de façon plus explicite le passage de paramètre par référence.

Bonjour,

Merci pour ta réponse très claire et surtout pour cet exemple qui l'accompagne.

J'ai grâce à cela, très bien compris maintenant.

Encore un super grand merci et à très bientôt (vous me verrez assez souvent ici car j'ai pendant une année un cours de VB6).

Bon Dimanche.

beegeees