Discussion :

[spamitovic]

Bonsoir,

Pour ce qui est de VB6, il est simple d'obliger un usager de saisir que du chiffre sur un TextBox grâce à KeyAscii.
Mon soucis est avec Vb.net, mon textbox doit accepté que du chiffre et non pas des lettres ou autres symboles. J'ai mis ce code :

Code :

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

1
2
3
If Not IsNumeric(textbox1.text) then
MessageBox.Show("blablabla")
End if

Cela est parfait mais ce n'est pas ce que je cherche à faire. Même si l'usager clique sur une lettre, cette dernière ne sera pas écrite et aucun message ne doit s'afficher. Si c'est du chiffre alors c bon.

J'espère que j'étais clair dans mes explications

Merci.

[Graffito]

Pas de solution directe via une propriété du TextBox.
Sinon : http://msdn.microsoft.com/fr-fr/library/ms229644.aspx
et je pense qu'il faut en plus désactiver le copier-coller .

[nabilfaouzi]

Mettez ça dans l'évenement keypress de ton textbox:

Code :

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

1
2
 
  If Asc(0) > Asc(e.KeyChar) Or Asc(9) < Asc(e.KeyChar) Then e.Handled = True

[Charaf Eddine]

Bonjour.

Tu peux aussi mettre ça dans l'événement KeyPress de ton TextBox :

Code :

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

1
2
3
4
 
If Char.IsDigit(e.KeyChar) Then
            e.Handled = False
End If

C'est plus simple

[StormimOn]

A ce moment autant écrire

Code :

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

e.Handled = Not Char.IsDigit(e.KeyChar)

[spamitovic]

Merci à vous tous pour vos réponses.

La réponse de NabiFaouzi est celle que j'attends car son code oblige l'utilisateur de saisir que des NUMEROS dans mon TextBox Par contre, il désactive le bouton Retour c'est ce que je ne veux pas

Le code de CharafEddine et StormimOn oblige l'utilisateur de saisir des lettres et non pas des numéros

[Graffito]

StormimOn, Charaf Eddine, nabilfaouzi : ...

Et le '.' ou la ',' décimale,
et le backspace
et la touche suppr.

[StormimOn]

Le code de CharafEddine et StormimOn oblige l'utilisateur de saisir des lettres et non pas des numéros

C'est parce que le test est dans le mauvais "sens" (j'ai corrigé au passage). Mais tu aurais pu, sinon dû, corriger de toi même

Et le '.' ou la ',' décimale,
et le backspace
et la touche suppr.

Je ne parlais que de la partie concernant la vérification sur le fait que le caractère soit un chiffre ou non. Après il y a bien sûr d'autres considérations (cf. ton lien) et j'aurais du le mentionner. Sauf peut être pour le point ou la virgule car il n'en est pas fait mention dans ce sujet, la saisie étant entière à priori.

[spamitovic]

Code :

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

e.Handled = !Char.IsDigit(e.KeyChar)

Cela ne marche pas s'il n'est pas à l'intérieur d'un With. Mais je l'ai remplacé par :

Code :

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

e.Handled = Not Char.IsDigit(e.KeyChar)

Envoyé par Graffito
Et le '.' ou la ',' décimale,
et le backspace
et la touche suppr.

Il a raison et je l'ai mentionné pour le Backspace car il ne marche pas ni dans le code de StormimOn ni celui de nabil.

[StormimOn]

Cela ne marche pas s'il n'est pas à l'intérieur d'un With

Réflexe de C#

car il ne marche pas ni dans le code de StormimOn ni celui de nabil.

Normal puisque ce n'était pas testé. Je ne faisais que simplifier le code donné au dessus de mon post. Mais sans avoir précisé ceci, il est vrai que c'était maladroit ...

Le lien donné par Graffito doit normalement répondre à ton besoin.

[Sankasssss]

Perso j'utilise un mix de char.IsDigit et char.IsControl comme ceci :

Code :

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

1
2
3
    If Not Char.IsDigit(e.KeyChar) and Not Char.IsControl(e.KeyChar) Then
        e.Handled = True
    End If

[spamitovic]

Merci à tous pour votre soutien . Tous vos codes ont été de grande importance pour moi

Le code de Sankasssss répond à mes besoins.

Merciiiiiiiiiiiiiiiiiiiiiiiiiiii