Probléme de saisie avec VB.net

Bonjour,
j'aimerai bien savoir quel serait le code qui empêche aux utilisateurs de saisir des chiffres dans une zone de text ?

Merci de m'aider.

cadeau

nasty

Juste les chiffres? L'utilisateur à le droit de rentrer des @, lettres etc...?

ou à l'ancienne, sur le keypress vérifier si le caractère te convient, sinon annuler la frappe

vers

merci pour votre réponse mais je pense que cette solution est compatible avec visual studio2008 moi je suis sur la version VS2003 et la zone de texte sujet c'est une zone de text pour l'attribut age qu'il doit recevoir juste les chiffre ! mercii

il y a p-e une solution déjà existante,
sinon ce que je te propose blinder la saisie dans une TexteBox :

Code:

Dim InfoBulle As ToolTip

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub txtLargeurBoite_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtLargeurBoite.Validated
        ' Nouvelle Info Bulle
        InfoBulle = New System.Windows.Forms.ToolTip
        ' avec un skin plus agréable
        InfoBulle.IsBalloon = True
 
        'Si une erreur est présente alors on affiche le message d'erreur *voir en bas*
        On Error GoTo ErrLargeurBoite
 
        ' Si la textBox est vide on ne vérifie rien
        If (Me.txtLargeurBoite.Text = Nothing) Then
            Exit Sub
        End If
 
        'Récupération et convertion de la valeur
        ' C'est la qu'une erreur va etre génére si la TextBox contient autre chose que des chiffres
        LargeurBoite = CInt(Me.txtLargeurBoite.Text)
 
        Exit Sub
 
 
        'Message d'erreur
ErrLargeurBoite:
        InfoBulle.Show("La largeur de la boite ne doit contenir que des chiffres", txtLargeurBoite, 0, -40, 2000)
        Me.txtLargeurBoite.Text = Nothing
 
    End Sub

Voila ;)

PS: en moins sympa mais plus légé tu peut faire ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub txtLargeurBoite_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtLargeurBoite.Validated
 
        'Si une erreur est présente alors on affiche le message d'erreur *voir en bas*
        On Error GoTo ErrLargeurBoite
 
        ' Si la textBox est vide on ne vérifie rien
        If (Me.txtLargeurBoite.Text = Nothing) Then
            Exit Sub
        End If
 
        'Récupération et convertion de la valeur
        ' C'est la qu'une erreur va etre génére si la TextBox contient autre chose que des chiffres
        LargeurBoite = CInt(Me.txtLargeurBoite.Text)
 
        Exit Sub
 
 
        'Message d'erreur
ErrLargeurBoite:
        MessageBox.Show("La largeur de la boite ne doit contenir que des chiffres")
        Me.txtLargeurBoite.Text = Nothing
 
    End Sub

.

je pense qu'il ya une commande assez simpe avec Keypress.isletter mais je sais pas comment la manipuler..!!