saisir que des integer dans une textbox

Version imprimable

25/10/2010, 14h01
timsa7

saisir que des integer dans une textbox

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:

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

25/10/2010, 14h10
timsa7

et si j'ai plusieurs textbox ? je dois le faire autant de fois ?
25/10/2010, 14h12
yonpo

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 :

Code:

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

et appliquer le test sur autant de textbox que vous voulez.

Citation:
Envoyé par BB-69
Bonjour,

il est possible d'ignorer la saisie sur l'event Keypress des caractères autres que numérique par exemple :
Code:

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
et appliquer le test sur autant de textbox que vous voulez.
Ne gère pas le cas du clic droit copier/coller d'où mon poste ci-dessus

25/10/2010, 15h42
mactwist69

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:

Code:

TextBox_TextChanged

, et tu fais ton test sur le contenu.
25/10/2010, 16h55
BB-69

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 :mouarf: (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.
25/10/2010, 17h00
yonpo

Citation:

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.
Dans ce cas et selon moi, il faut gérer tous les possibilités.

Citation:

De plus si vous regardez mon code, vous ne pourrez pas non plus effacer la box autrement que par code

Clic droit=> supprimer:mrgreen:
25/10/2010, 17h15
BB-69

Citation:

Envoyé par yonpo

Clic droit=> supprimer:mrgreen:

Si il y a un menu sur le clic :ccool:
25/10/2010, 17h23
yonpo

Citation:

Envoyé par BB-69

Si il y a un menu sur le clic :ccool:

Evidemment cela va de soit :D

Bonsoir,

Citation:

Envoyé par timsa7

et si j'ai plusieurs textbox ? je dois le faire autant de fois ?

Dans la continuité de Tomlev, tu peux abonner toutes tes Textbox à un événement comme cela :

Code:

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

Et coder cet événement ainsi :

Code:

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

25/10/2010, 21h16
Sehnsucht

Bonsoir,

Sans connaître l'utilisation exacte qui en sera faite, je vais peut-être écrire ça pour rien (:aie:) mais un contrôle NumericUpDown ne serait pas plus approprié et plus simple (accessoirement plus ergonomique pour l'utilisateur final) ?

Cordialement !
25/10/2010, 22h09
tomlev

Citation:

Envoyé par Sehnsucht

Sans connaître l'utilisation exacte qui en sera faite, je vais peut-être écrire ça pour rien (:aie:) mais un contrôle NumericUpDown ne serait pas plus approprié et plus simple (accessoirement plus ergonomique pour l'utilisateur final) ?

Bien vu :ccool:

Sinon, je viens de me souvenir que la librairie Dvp.NET inclue un contrôle NumericTextBox

Citation:

Envoyé par chrismonoye

Bonsoir,

Dans la continuité de Tomlev, tu peux abonner toutes tes Textbox à un événement comme cela :

Code:

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

Et coder cet événement ainsi :

Code:

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

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

Citation:

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:

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

28/10/2010, 13h32
timsa7
oui ca marche merci ,
mais y a til une possibilité de mettre dans le Form1_Load
Code:

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

Citation:

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
28/10/2010, 13h43
timsa7

bon j'ai fini par trouver ce qui cloche !! juste le temps d'en etre sur et je vous poste mon code

Code:

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:

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

28/10/2010, 13h58
tomlev

N'oublie pas le bouton :resolu:...