Champ integer devant être rempli par le user dans une textbox

**wallace27** · 30/11/2014, 10h17

Bonjour,

Voici ma tentative de code pour faire en sorte que l'utilisateur soit obligé d'entrer un nombre entier dans le champ de la textbox :

Code :

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

1
2
3
4
 Private Sub TextBox10_TextChanged(sender As Object, e As EventArgs) Handles TextBox10.TextChanged
        Dim nombre1 As Integer
        TextBox10.Text = nombre1
    End Sub

Puis-je vous demander votre aide et me dire où est l'erreur ? Je constate qu'à la saisie, seul le zéro est accepté...

Merci pour votre aide

**wallace1** · 30/11/2014, 12h11

Bonjour,

Si tu ne veux pas être contraint de faire plusieurs tests lors de l'ajout d'un bon ou d'un mauvais caractère dans la TextBox1 alors je te recommande vivement d'utiliser le gestionnaire d’événement suivant pour mener à bien ton expérience :

Code :

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

1
2
3
4
5
6
7
8
 
    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        'Détermine si le caractère saisi au clavier est différent de la touche Backspace ou différent d'un chiffre !!
        ' Je cache volontairement le contenu du corps de cette méthode car c'est en recherchant de son propre chef qu'on comprends et qu'on assimile mieux !
 
        ' e.KeyChar = retourne le caractère saisi au clavier
        ' Char.isNumeric = est une fonction qui accepte en argument un type char et retourne un résultat booléen vrai si le caractère est numérique et false le cas échéant !
    End Sub

A+

**Sehnsucht** · 30/11/2014, 13h28

Question bête ; pourquoi vouloir utiliser une TextBox pour saisir ce nombre alors qu'il existe des contrôles adaptés à la saisie de nombres (exemple: NumericUpDown) ?

**shayw** · 30/11/2014, 15h43

Bonjour,

Ne pas oublier que rien n'empêche l'utilisateur de faire un copier coller d'un string non numérique dans le textbox

aussi comme le conseille Sehnsucht utilise un numericupdown
comme eviter les copier coller non numerique en utilisant un numericupdown

Code :

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

1
2
3
4
5
6
7
Private Sub NumericUpDown1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles NumericUpDown1.MouseUp
        Dim rs As Integer
        If Not Integer.TryParse(DirectCast(sender, NumericUpDown).Text, rs) Then
            DirectCast(sender, NumericUpDown).Text = String.Empty
        End If
 
    End Sub

**Sehnsucht** · 30/11/2014, 15h59

C'est pas vraiment nécessaire, au moment où le NumericUpDown perd le focus la validation s'effectue et remet les choses en place (la dernière valeur valide ; exemple on est sur un autre contrôle et le numericupdown a "42", on copie/colle "foo" au début ce qui donne "foo42" puis on édite le 2 à la main en le changeant en 3 ce qui donne "foo43" ; on change le focus et hop ça revient à 42 tout seul).
Sinon dans le pire des cas on peut toujours mettre le numericupdown en ReadOnly et utiliser les boutons up/down (et/ou les flèches du clavier) pour assigner une valeur c'est un peu moins pratique mais efficace

**rv26t** · 30/11/2014, 19h07

Bonjour,

Je ne reviendrais pas sur la meilleure façon de procéder puisqu'elle a été détaillée

Envoyé par wallace27

Puis-je vous demander votre aide et me dire où est l'erreur ? Je constate qu'à la saisie, seul le zéro est accepté...

Pour expliquer votre problème.
Il suffit de lire le cours sur les variables : généralités ; V-D-2. Déclaration, initialisation qui sont les bases de la programmation.
La troisième ligne (celle après le code) vous indique pourquoi vous avez zéro (0) et aurez toujours zéro.

Invité · 01/12/2014, 11h57

Dans l'événement KeyPress, il faut mettre ce code:

Code VB :

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

1
2
3
4
 
If IsNumeric(e.keychar)=False And e.KeyChar <> Chr(8) Then
e.Handled = True
End If

**ACIVE_CS** · 01/12/2014, 13h01

Bonjour,
Je crois que les réponses sont un peu à "coté" de la question...

Vu que nous sommes sur un forum VB.NET et que la question concerne une TextBox (et non un numericup), wallace27 tu peux tester ce code :

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
 
Public Class Form1
    Dim Text1 As String = ""
 
    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        Text1 = TextBox1.Text
    End Sub
 
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Try
            TextBox1.Text = Convert.ToInt32(TextBox1.Text)
        Catch ex As Exception
            TextBox1.Text = Text1
            TextBox1.SelectionStart = TextBox1.TextLength
        End Try
    End Sub
End Class

**wallace1** · 01/12/2014, 15h44

Envoyé par romulus001

Dans l'événement KeyPress, il faut mettre ce code:

Code VB :

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

1
2
3
4
 
If IsNumeric(e.keychar)=False And e.KeyChar <> Chr(8) Then
e.Handled = True
End If

loool Content de lire que tu connais comme "nous tous" la réponse..... le but étant de faire travailler sa matière grise.. Nous ne sommes pas là pour montrer qu'on sait faire mais pour guider celui qui pose des questions !!

@ACIVE_CS : Nous ne répondons pas à côté de la plaque, Sehn n'a pas tort de rappeler qu'il existe un composant (NumericUpDown) afin de gérer au mieux cette situation !
De plus, ton exemple dénote une mauvaise pratique car il existe des gestionnaires d’événements prévus pour gérer ce type de comportement sans pour autant déclencher une exception !

Pour rester sur l'utilisation de la TextBox la solution se situe : Post 2 et 7 en complément

Merci, la prochaine fois laissons-le réfléchir un peu c'est ainsi qu'on fait nos premières armes au travers l'expérience qu'elle soit bonne ou mauvaise on en tire toujours des conclusions !

Invité · 01/12/2014, 16h12

Envoyé par wallace1

loool Content de lire que tu connais comme "nous tous" la réponse..... le but étant de faire travailler sa matière grise.. Nous ne sommes pas là pour montrer qu'on sait faire mais pour guider celui qui pose des questions !!

ce que tu dis n'as aucun sens, comment l'auteur du message aurait-il pu trouver

Code vb :

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

e.handled = true

? de même avec

Code vb :

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

e.keychar<>chr(8)

? par ailleurs, comme ça commençait à partir en cacahuète, il fallait mettre un peu d'ordre dans tout ça.

PS : qui sont les vilains qui me mettent des notes négatives, alors que j'apporte de l'aide?

**wallace1** · 01/12/2014, 16h32

Envoyé par romulus001

ce que tu dis n'as aucun sens, comment l'auteur du message aurait-il pu trouver

Code vb :

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

e.handled = true

? de même avec

Code vb :

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

e.keychar<>chr(8)

? par ailleurs, comme ça commençait à partir en cacahuète, il fallait mettre un peu d'ordre dans tout ça.

PS : qui sont les vilains qui me mettent des notes négatives, alors que j'apporte de l'aide?

@romulus : Une bonne pratique en programmation consiste à connaitre l'outil avec lequel on travail et l'EDI en fait très largement partie ! Donc avec un minimum de sens de l'observation et de curiosité les lignes commentées dans mon snippet l'auraient très certainement interpellé, l'auto-complétion (ou Intellisense) l'aurait à coups sure aiguillé !

Je ne me cache pas : moi je t'ai mis -1 car tu n'aides pas, tu étales ton savoir et nous savons tous que ca ne lui rendra pas service de lui livrer du code prêt à l'emploi (et sans en expliquer son contenu) !

A+

**ACIVE_CS** · 01/12/2014, 17h23

Salut tout le monde

PS : qui sont les vilains qui me mettent des notes négatives, alors que j'apporte de l'aide?

Oui... pareil pour moi, mais je m'en fous royalement ce n'est pas ici que je gagne ma vie...

Wallace1:
J'en suis sur et certain qu'en fin de discussion tu vas vouloir avoir raison quoi qu'il arrive.

Nous ne répondons pas à côté de la plaque

Je n'ai jamais dit que vous répondez à coté de la plaque.
J'ai dit : "un peu à coté"; nuance...

Après, soyons objectifs: j'ai l'habitude de rester un maximum bête et discipliné (surtout bête)

Bien qu'un numericupdown pourrait gérer mieux la situation, mais nous ne connaissons pas son choix pour un textbox, peut-être qu'il ne souhaite pas ajouter un contrôle avec deux flèches sur sa form (je ne sais pas, par exemple).
Si l'on me présente un cahier des charges où on me demande d'insérer des textbox's je n'irais pas m'amuser modifier leur choix et y insérer autre chose.

Concernant mon code la seule exception qui puisse être déclanchée, c'est que l'ensemble du texte ne soit pas du type INTEGER, n'est-ce pas ce que nous cherchons ??

Autre chose, ton conseil de l'utilisation de "Char.isNumeric" dépend de la version de visual studio,
apparement (je peux me tromper), d'après une petite recherche rapide, avec le framework 4.5 (VS 2013) "Char.isNumeric" est remplacé par "Char.IsDigit" cette méthode détermine si "Char" est un chiffre de base 10.
Ou le cas échéant, "Char.IsNumber" qui en plus d'inclure des chiffres, les nombres incluent des caractères, des fractions, des indices, des exposants, des chiffres romains etc (ce qui dans notre cas n'est pas utile)

Une autre petite observation, avec votre méthode il va falloir non seulement gérer le "BackSpace" mais également les flèches de direction, à moins d'obliger l'utilisateur à tout effacer à chaque fois qu'il se trompe.

Par contre je suis d'accord avec toi, nous devons le laisser réfléchir et travailler par lui même,
Mais bon, nous avons perdu notre demandeur en chemin, du coup...

A +

N'oublie pas la note négative...

**wallace1** · 01/12/2014, 20h07

Envoyé par ACIVE_CS

Wallace1:
J'en suis sur et certain qu'en fin de discussion tu vas vouloir avoir raison quoi qu'il arrive.

Envoyé par ACIVE_CS

Je n'ai jamais dit que vous répondez à coté de la plaque.
J'ai dit : "un peu à coté"; nuance...

Tu chipotes....

Envoyé par ACIVE_CS

Autre chose, ton conseil de l'utilisation de "Char.isNumeric" dépend de la version de visual studio,
apparement (je peux me tromper), d'après une petite recherche rapide, avec le framework 4.5 (VS 2013) "Char.isNumeric" est remplacé par "Char.IsDigit" cette méthode détermine si "Char" est un chiffre de base 10.
Ou le cas échéant, "Char.IsNumber" qui en plus d'inclure des chiffres, les nombres incluent des caractères, des fractions, des indices, des exposants, des chiffres romains etc (ce qui dans notre cas n'est pas utile)

Je dirais surtout que cela dépends du framework cible dans le projet sous VS !
Selon le besoin il peut tout aussi bien cibler le framework 2, 3, 3.5 ou 4 et ainsi utiliser la méthode "IsDigit" ou "IsNumber".

Envoyé par ACIVE_CS

Une autre petite observation, avec votre méthode il va falloir non seulement gérer le "BackSpace" mais également les flèches de direction, à moins d'obliger l'utilisateur à tout effacer à chaque fois qu'il se trompe.

Le Backspace est déjà géré :

Code :

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

e.KeyChar <> Chr(8)

Envoyé par ACIVE_CS

N'oublie pas la note négative...

Pas besoin car ça reste un échange constructif et ca mérite un

**Sehnsucht** · 01/12/2014, 20h25

Il y a méprise concernant le IsNumeric qu'utilise romulus dans son exemple ; il ne s'agit en aucun cas de Char.IsNumeric

ou je ne sais quoi mais de Microsoft.VisualBasic.Information.IsNumeric.
Pour le reste je ne vais pas rentrer dans des débats que j'estime stériles (mais libre à vous

); je donne une info utile aussi bien à l'OP qu'à ceux ayant une problématique similaire et qui viendront lire le sujet, après si elle ne convient pas à l'OP pour son cas spécifique c'est à lui de le préciser mais ça n'enlève en rien la valeur du commentaire.
Sinon quitte à utiliser une TextBox j'aurais plutôt tendance à utiliser les évènements Validating ou Validated (à la rigueur) qui me semblent plus dans la sémantique du besoin recherché (à savoir la validation ou non de ce qui est saisi) potentiellement en association avec un ErrorProvider pour fournir un message utile en cas de saisie erronée.

Cordialement !

**wallace1** · 01/12/2014, 21h00

@sehn :
Comme ce qui avait dejà été évoqué dans un ancien post si tu te rappelles bien :
http://www.developpez.net/forums/d14...s/#post7900583

Laissons OP reagir sur ce sujet qui aura fait couler de l'encre...^__^

A+

**clementmarcotte** · 01/12/2014, 22h04

Bonjour,

Juste pour "faire durer le plaisir".

Il pourrait se patenter quelque chose avec :

Code :

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

Integer.parse(textboxmachin.text)

ou

Code :

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

integer.tryparse(textboxmachin.text)

C'est plus "universel" .nettement s'entend.

Mais, je n'ai pas vraiment le temps de produire le code immédiatement.

**ACIVE_CS** · 01/12/2014, 22h44

Re:

@Wallace1:

Laissons OP reagir sur ce sujet qui aura fait couler de l'encre...^__^

OUI!...

Le Backspace est déjà géré :
e.KeyChar <> Chr(8)

Ah non!.. chr() c'est du VB6!...

Alors une petite dernière et puis j'arrête;
(code dispo testé et fonctionnel en 6 lignes de code)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub TextBox1_KeyDown
'- on supprime tout appui de touches avec SuppressKeyPress à vrai
'- on fait un select case e.KeyCode
'- on détermine la case Keys.Back, Keys.Delete, Keys.Left, Keys.Right, Keys.NumPad0, Keys.NumPad1 etc.
' (ce sont les touches que l'on veut garder)
'- Si l'une des touches correspond alors on passe le SuppressKeyPress  à faux
'- En suite, si on réfléchit un peu, il existe pas mal de claviers sans pavé numérique donc:
'- si (Shift est appuyée et CapsLock désactivé) ou (shift n'est pas appuyée et CapsLock activé) alors:
 If Char.IsDigit(Convert.ToChar(e.KeyValue)) Then e.SuppressKeyPress = False
End Sub