Discussion :

[theoffss]

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 :

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

[Aspic]

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

[Ferdydurke]

ç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') ..?

[olsimare]

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 :

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
 
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.