Fonction pour autoriser seulement les nombres dans textbox

Bonjour, grace au forum j'ai pu trouver ceci :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub txt_ip_3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) _ Handles txt_ip_3.KeyPress   If Not Char.IsDigit(e.KeyChar) Then ' Tous les caractères non numériques ne sont pas traités sur le TextBox. e.Handled = True End If   End Sub

---

Etant donné que j'ai beaucoup de txt box a controler, je souhaiterais savoir comment réaliser une fonction générique qui permettrait de faire ce contrôle, (si c'est possible)

Merci

Tu rajoutes autant de controle (à controler) dans le handle de la fonction.

Tu peut créer ta fonction dans un module et appeler juste dans l'évènement keypres.

Code:

---

1 2 3 4 5 6 7

public sub ControleTextBox(byref e as System.Windows.Forms.KeyPressEventArgs) If Not Char.IsDigit(e.KeyChar) Then ' Tous les caractères non numériques ne sont pas traités sur le TextBox. e.Handled = True End If end sub

---

merci de votre aide

peut tu donner un exemple de l'appel du module dans le keypress stp? je crains de ne pas savoir faire.

Merci beaucoup.

Citation:

---

peut tu donner un exemple de l'appel du module dans le keypress stp? je crains de ne pas savoir faire.

---

Tu veut dire l'appel de la fonction

Code:

---

1 2 3 4

Private Sub txt_ip_3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt_ip_3.KeyPress ControleTextBox(e) End Sub

---

merci :p

sa arrive ;) si ton problème est résolue n'oublie de mètre :resolu: sur la discussion.

2 petites questions et après c'est la fin promis :D : lors de l'appel de la fonction, on lui passe le paramètre (e),mais si je renomme celle ci :

Code:

---

ControleTextBox(textOnly)

---

Code:

---

1 2 3 4 5 6

public sub ControleTextBox(byref textOnly as System.Windows.Forms.KeyPressEventArgs) If Not Char.IsDigit(textOnly.KeyChar) Then ' Tous les caractères non numériques ne sont pas traités sur le TextBox. textOnly.Handled = True End If end sub

---

cela ne marche plus alors que sans rien modifier tout était ok. Est ce que "e" faisait référence a qq chose en particulier ?


2) je suis tout content de mon contrôle mais le soucis c'est que si l'utilisateur se plante dans sa saisi des nombres, il ne peut plus faire retour arrière pour supprimer le chiffre.... ='(. J'imagine qu'il faut ajouter une exeption pour la touche supprimer mais laquelle =O

Merci.

Citation:

---

Envoyé par anxious

2 petites questions et après c'est la fin promis :D : lors de l'appel de la fonction, on lui passe le paramètre (e),mais si je renomme celle ci :

Code:

---

ControleTextBox(textOnly)

---

Code:

---

1 2 3 4 5 6

public sub ControleTextBox(byref textOnly as System.Windows.Forms.KeyPressEventArgs) If Not Char.IsDigit(textOnly.KeyChar) Then ' Tous les caractères non numériques ne sont pas traités sur le TextBox. textOnly.Handled = True End If end sub

---

cela ne marche plus alors que sans rien modifier tout était ok. Est ce que "e" faisait référence a qq chose en particulier ?

---

C'est normal que sa ne marche pas au niveau de l'appel de la fonction tu doit passer e en paramètre et non textOnly.

Code:

---

1 2	ControleTextBox(e)

---

Citation:

---

Envoyé par anxious

je suis tout content de mon contrôle mais le soucis c'est que si l'utilisateur se plante dans sa saisi des nombres, il ne peut plus faire retour arrière pour supprimer le chiffre.... ='(. J'imagine qu'il faut ajouter une exeption pour la touche supprimer mais laquelle

---

En fait ta fonction de contrôle bloque le clavier alphabétique et le touche supprimer fait partir de ces touches.
Une solution serais d'utiliser les codes Asci.

@++ ;)

Je fais comme ca moi :

Sur le KeyPress de la textbox, je mets le code suivant :

Code:

---

1 2 3

If InStr("0123456789", e.KeyChar) = 0 And e.KeyChar <> vbBack Then e.Handled = True End If

---

Je ne sais pas si c'est tres propre mais c'est la technique que j'utilise qui fonctionne tres bien !!!

J'espère que ca t'aidera.

merci :)

De rien !!!
Nous sommes la pour nous entraider !!!
C'est ca la magie du Net !!!
:ccool:

Bonjour, et bonne année à vous tous.
Je voulais juste préciser, par rapport au dernier post que vous pouvioez faire tout simplement ceci ..

Code:

---

1 2 3 4 5

' Numériques sinon ne tient pas compte de l'action (évite de tout gérer sur le Handles MyBase.TextChanged) If Not Char.IsDigit(e.KeyChar) And Not e.KeyChar = vbBack Then e.Handled = True ' une seule ponctuation If Char.IsPunctuation(e.KeyChar) And InStr(Text, DecimalSeparator) > 0 Then e.Handled = True

---

Cordialement ;)