Optimisé un Code

Bonjour,
J'ai un Label dans lekelil y a un nombre, et une 60 aine de bouton qui y soustrait different nombre, mais voila, le label doit etre Ni negatif, ni =1.
En résumé, si le bouton soustrait 20 au label,
si il est a 22 cela donnera 2,
si il est a 21, cela donnera 21,
si il est a 20 >>0,
si il est a 19 ou - il restera a sa valeur 19 ou -

J'ai donc créé ce code la :

Citation:

---

If Label3.Text > 21 = True Then
Label3.Text -= 20
ElseIf Label3.Text = 20 = True Then
Label3.Text -= 20
End If

---

mais je doit le metre dans chaques bouton avec les valeurs correspondante, et je trouve que cela ne fait pas "propre"

Je me demandais si il n'y avais pas un code a metre uniquement dans le label disant par exemple, si <0 ou =1 alors il garde sa valeur d'origine (qui est elle variable)

J'espere que j'ai eté clair :)

Merci

J'ai rien capté...... mais oui il y a une solution pour ce genre de problème mais il faut etre plus précis !!

ça fait un bail que j'ai pas pratiqué le VB, mais... ça me paraît un peu bizarre, ton code : déjà, '...Text -= 20', vu que 'Text' c'est du string... et puis l'opérateur '=', c'est l'affectation il me semble, la comparaison c'est '=='. D'ailleurs 'if *valeur* > 20' ça suffirait.
Sinon, pour tester les limites de tes valeurs, il n'y a pas à ma connaissance de moyen plus rapide que ça, à moins bien sûr d'utiliser quelque chose de 'fait exprès' (ex. : NumericUpDown, où tu peux spécifier des valeurs min et max, et limiter les caractères aux seuls numériques). Tout dépend de ton IHM, tu pourrais mettre un NumericUpDown à la place ? C'est du webform, ou du winform (en web chaque test risque de coûter plus cher en perfs, donc le test se ferait pltôt sur un évènement comme 'Validating') ..?

Bonjour.

Si j'ai bien compris, je te conseille de customizer un label en lui ajoutant une méthode de soustraction.

Comme ceci par exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Public Class LabelToutBebete Inherits Label   Public Sub substract(ByVal value As Integer)   If Not IsNumeric(Me.Text) Then Exit Sub End If   Dim v As Integer = CType(Me.Text, Integer) If value > v Then Exit Sub Else v -= value End If   Me.Text = v.ToString   End Sub End Class

---

Ensuite, tu utilise ce labeltoutbebete dans ta form et lors d'un clic sur le bouton tu fais :

Code:

---

1 2	Me.LabelToutBebete1.substract(la_valeur_associé_au_bouton)

---

Aparté : Je sais pas si je t'aide beaucoup en postant du code comme ça moi ...
Sans vouloir t'offenser, je te conseille : http://plasserre.developpez.com/vsommair.htm

Cdt.