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

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:

---

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

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:

---

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+

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) ?

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 :roll:
aussi comme le conseille Sehnsucht utilise un numericupdown
comme eviter les copier coller non numerique en utilisant un numericupdown

Code:

---

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

---

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

Bonjour,

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

Citation:

---

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.

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

Code:

---

1 2 3 4

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

---

Bonjour,
Je crois que les réponses sont un peu à "coté" de la question... :D
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:

---

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

---

Citation:

---

Envoyé par romulus001

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

Code:

---

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 !

Citation:

---

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:

---

e.handled = true

---

? de même avec

Code:

---

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?

Citation:

---

Envoyé par romulus001

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

Code:

---

e.handled = true

---

? de même avec

Code:

---

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+

Salut tout le monde

Citation:

---

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.

Citation:

---

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) :mouarf:
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... :lol:

A +

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

Citation:

---

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.

---

8O

Citation:

---

Envoyé par ACIVE_CS

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

---

:mouarf: Tu chipotes....

Citation:

---

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".

Citation:

---

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:

---

e.KeyChar <> Chr(8)

---

Citation:

---

Envoyé par ACIVE_CS

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

---

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

Il y a méprise concernant le IsNumeric qu'utilise romulus dans son exemple ; il ne s'agit en aucun cas de Char.IsNumeric :koi: 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 :D); 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 !

@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+

Bonjour,

Juste pour "faire durer le plaisir".

Il pourrait se patenter quelque chose avec :

Code:

---

Integer.parse(textboxmachin.text)

---

ou

Code:

---

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.

Re:

@Wallace1:

Citation:

---

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

---

:lol::lol::lol: OUI!...

Citation:

---

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:

---

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

---

Salutations à CMarcotte en passant.

A+

Citation:

---

Envoyé par ACIVE_CS

Re:



Salutations à CMarcotte en passant.

A+

---

À toi aussi.

Bonjour,
tu colle un MaskedTextBox et tu fixes le format (Masked) à "0" pour (0 à 9); "00" pour (0 à 99) "000" ....