commandbuttons à repettition

Question

Bonjour
je tente de faire une sorte de calculette. j'ai des  boutons et la même procédure pour chaque bouton. comment faire pour éviter de repeter autant de fois la procédure ?

      





Private Sub CommandButton1_Click()<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>









Label1 = Val(Label1) + CommandButton1.Caption









End Sub










 










Private Sub CommandButton2_Click()









Label1 = Val(Label1) + CommandButton2.Caption









End Sub










 










Private Sub CommandButton3_Click()









Label1 = Val(Label1) + CommandButton3.Caption









End Sub










 










Private Sub CommandButton4_Click()









Label1 = Val(Label1) + CommandButton4.Caption









End Sub










 










Private Sub CommandButton5_Click()









Label1 = Val(Label1) + CommandButton5.Caption









End Sub










 










Private Sub CommandButton6_Click()









Label1 = Val(Label1) + CommandButton6.Caption









End Sub










 










Private Sub CommandButton7_Click()









Label1 = Val(Label1) + CommandButton7.Caption









End Sub










 










Private Sub CommandButton8_Click()









Label1 = Val(Label1) + CommandButton8.Caption









End Sub










 










Private Sub CommandButton9_Click()









Label1 = Val(Label1) + CommandButton9.Caption









End Sub








Merci beaucoup de votre aide.

jmfmarques · Answer

Bonjour,

1) ce n'est pas du VB.Net, mais du VB6
 ! (erreur de section)
2) VB6 gère les groupes de contrôles indexés
exemple : command1(0), command1(1), etc.... command1(n)

où 0,1, ....n sont des index

Tu n'auras alors qu'une seule procédure click pour tous et il te suffira, en cas de besoin, de distinguer un contrôle de l'autre en te référant à son index ...

Supra3000 · Answer

Private Sub CommandButton9_Click()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /??>



MaProcedure(CommandButton9.Caption)







End Sub













Private Sub CommandButton7_Click()



MaProcedure(CommandButton7.Caption)




End Sub





Private Sub MaProcedure(byVal valeur)
Label1 = Val(Label1) + valeur
End sub

C'est par coeur pas sur de la syntaxe
Bonne prog
@+

chaudier37 · Answer

Bonjour,
merci beaucoup pour la réponse mais voilà le problème.
j'ai 50 boutons numérotés de 1 à 50.... est ce qu'il faut que je répète la même procédure sur les 50 boutonss ?
merci

Commandbuttons à repettition

3 réponses

Votre réponse

Discussions similaires