Discussion :

[anxious]

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

Code :

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

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

[Danyel]

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

[Hinault Romaric]

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

Code :

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

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

[anxious]

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.

[Hinault Romaric]

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 :

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

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

[anxious]

merci :p

[Hinault Romaric]

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

[anxious]

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

Code :

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

ControleTextBox(textOnly)

Code :

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

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.

[Hinault Romaric]

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

Code :

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

ControleTextBox(textOnly)

Code :

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

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 :

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

1
2
 
ControleTextBox(e)

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.

@++

[forestlaw2]

Je fais comme ca moi :

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

Code :

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

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.

[anxious]

merci

[forestlaw2]

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

[juju-ktm-32]

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 :

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

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