bonjour
en vb.net(2005) y a t il une fonction pour que je peux obliger l'utilisateur ne saisisse que des integer dans une textbox ?
merci d'avance
bonjour
en vb.net(2005) y a t il une fonction pour que je peux obliger l'utilisateur ne saisisse que des integer dans une textbox ?
merci d'avance
Pas automatiquement, mais tu peux valider la saisie (par exemple dans l'évènement Validating de la TextBox) avec Int32.TryParse
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As CancelEventArgs) Handles TextBox1.Validating Dim i As Int32 If Not Int32.TryParse(TextBox1.Text, i) Then MessageBox.Show("Veuillez saisir un nombre entier") e.Cancel = True End If End Sub
et si j'ai plusieurs textbox ? je dois le faire autant de fois ?
Tu peux passer par la création d'un nouveau contrôle.
Regardes un de mes précédents postes:ici
Bonjour,
il est possible d'ignorer la saisie sur l'event Keypress des caractères autres que numérique par exemple :
et appliquer le test sur autant de textbox que vous voulez.
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 Private Sub VerifSaisie(ByVal e) If Char.IsNumber(e.keychar) Then e.handled = False Else e.handled = True End If End Sub Private Sub tb_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tb.KeyPress VerifSaisie(e) End Sub
Normal, puisque l'évènement est Key_Press, de manière générale si tu veux savoir si le texte a changer y'a l'évènement:
, et tu fais ton test sur le contenu.
Code : Sélectionner tout - Visualiser dans une fenêtre à part TextBox_TextChanged
En effet, le code ne gère pas copier/coller car je me suis basé sur le besoin de bloquer la 'saisie'.
Selon le contexte d'utilisation, la possibilité de coller une chaine dans une box n'est pas forcement autorisé.
De plus si vous regardez mon code, vous ne pourrez pas non plus effacer la box autrement que par code, sans modification cela oblige une saisie sans erreur (ou alors il faut selectionner avec la souris l'erreur pour mettre un autre chiffre à la place).
En bref, juste une des solutions de test de saisie qui se place ou non dans le contexte du programme.
Je ne disais pas ça pour toi mais pour le créateur du sujet s'il venait à prendre cette solution.En effet, le code ne gère pas copier/coller car je me suis basé sur le besoin de bloquer la 'saisie'.
Selon le contexte d'utilisation, la possibilité de coller une chaine dans une box n'est pas forcement autorisé.
De plus si vous regardez mon code, vous ne pourrez pas non plus effacer la box autrement que par code, sans modification cela oblige une saisie sans erreur (ou alors il faut selectionner avec la souris l'erreur pour mettre un autre chiffre à la place).
En bref, juste une des solutions de test de saisie qui se place ou non dans le contexte du programme.
Dans ce cas et selon moi, il faut gérer tous les possibilités.
Clic droit=> supprimerDe plus si vous regardez mon code, vous ne pourrez pas non plus effacer la box autrement que par code
Bonsoir,
Dans la continuité de Tomlev, tu peux abonner toutes tes Textbox à un événement comme cela :
Et coder cet événement ainsi :
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
18 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim ctrlTextBox As TextBox ' ''*** Framework 3.xxx ''For Each ctrlTextBox In Me.Controls.OfType(Of TextBox)() '' AddHandler ctrlTextBox.Validating, AddressOf TextBox_Validating ''Next '*** Framework 2.xxx '*** "Me.Controls" ou tout autre "conteneur.Controls". For Each ctrlTextBox In Me.Controls '*** si le contrôle est une TextBox, on l'abonne aux événements voulus. ctrlTextBox = TryCast(ctrlTextBox, TextBox) AddHandler ctrlTextBox.Validating, AddressOf TextBox_Validating Next End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub TextBox_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Dim ctrl As Control = CType(sender, Control) Dim i As Int32 If Not Int32.TryParse(ctrl.Text, i) Then MessageBox.Show("Veuillez saisir un nombre entier") ''*** Efface tout 'ctrl.Text = "" ctrl.Focus() 'e.Cancel = True End If End Sub
Bonsoir,
Sans connaître l'utilisation exacte qui en sera faite, je vais peut-être écrire ça pour rien () mais un contrôle NumericUpDown ne serait pas plus approprié et plus simple (accessoirement plus ergonomique pour l'utilisateur final) ?
Cordialement !
Bien vu
Sinon, je viens de me souvenir que la librairie Dvp.NET inclue un contrôle NumericTextBox
merci beaucoup pour toutes ces reponses j'ai esseyé presuqe les toutes que vous m'avez proposé,
mais la je coince au niveau de cette derniere
quand j'execute j'ai l'exception suivante
Impossible d'effectuer un cast d'un objet de type 'System.Windows.Forms.Label' en type 'System.Windows.Forms.TextBox'.
Bonjour,
VB 2005 ne doit pas accepter la première ligne.
Il faudrait tester ça :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '*** Framework 2.xxx '*** "Me.Controls" ou tout autre "conteneur.Controls". For Each ctrlTextBox As Control In Me.Controls '*** si le contrôle est un TextBox, on l'abonne à un événement. '*** (TryCast renvoie Nothing si la conversion échoue). If Not TryCast(ctrlTextBox, TextBox) Is Nothing Then AddHandler ctrlTextBox.Validating, AddressOf TextBox_Validating End If Next End Sub
oui ca marche merci ,
mais y a til une possibilité de mettre dans le Form1_Load
Code vb : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Private Sub VerifSaisie(ByVal e) If Char.IsNumber(e.keychar) Then e.handled = False Else e.handled = True End If End Sub
et pour l'evenement KeyPress , bien sur tout en gardant la boucle car j'au plus d'une centaine de textbox , car quand j'essaye de remplacer validatin par keypress ca me donne
Erreur 1 La méthode 'Public Sub TextBox_KeyPress(sender As Object, e As System.ComponentModel.CancelEventArgs)' n'a pas la même signature que le délégué 'Delegate Sub KeyPressEventHandler(sender As Object, e As System.Windows.Forms.KeyPressEventArgs)'. K:\appl1\MyControlUtilisateur2.vb 166 60 appl1
merci
bon j'ai fini par trouver ce qui cloche !! juste le temps d'en etre sur et je vous poste mon code
Code vb : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Public Sub TextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) If Char.IsNumber(e.KeyChar) Then e.Handled = False Else e.Handled = True End If End Sub
Code vb : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 For Each ctrlTextBox As Control In Me.Controls '*** si le contrôle est un TextBox, on l'abonne à un événement. '*** (TryCast renvoie Nothing si la conversion échoue). If Not TryCast(ctrlTextBox, TextBox) Is Nothing Then AddHandler ctrlTextBox.KeyPress, AddressOf TextBox_KeyPress End If Next
merci a vous tous du fond du coeur pour l'aide .
bon continuation
N'oublie pas le bouton ...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager