Comment lancer la même procédure avec 2 boutons

Résolu
Tanaka56
Messages postés
124
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
29 janvier 2009
- 1 juin 2006 à 17:05
Tanaka56
Messages postés
124
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
29 janvier 2009
- 1 juin 2006 à 17:41
Bonjour.

Je voudrais pouvoir en cliquant sur un bouton aller lancer une procédure par un gosub et avec un autre bouton aller par un gosub au même endroit sans pour autant doubler les quelques lignes de programmations sur chaque bouton.

Exemple :

_____________________________________________________
Private Sub XPButton1_Click()
Gosub Traitement
' Ligne de programmation
End Sub
_____________________________________________________
Private Sub XPButton2_Click()
Gosub Traitement
' Ligne de programmation Différente du premier
End Sub
_____________________________________________________
Traitement:
' Plusieurs lignes pour le traitement
return
_____________________________________________________

Merci pour vos réponses.
Cordialement

2 réponses

NHenry
Messages postés
14967
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
11 août 2022
161
1 juin 2006 à 17:17
Bonjour

EN VB PAS DE GOSUB

Utilise plutot une Sub :
private Sub Traitement
    'Traitement
end Sub

Et à tes event sur nles boutons, tu fait : CallTraitement

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)
3
Tanaka56
Messages postés
124
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
29 janvier 2009

1 juin 2006 à 17:41
Salut.
J'avais l'habitude de mettre des "gosub" sans doute l'ancienne école.
J'ai bien pris note et en plus c'est plus facile que de répéter dans les modules les mêmes lignes de programmations.
 Merci pour ta solution.
Alain.




 
0