Discussion :

[wallace27]

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]

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]

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]

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]

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]

Bonjour,

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

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é]

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]

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]

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é]

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]

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+