saisir que des integer dans une textbox

**timsa7** · 25/10/2010, 14h01

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

**tomlev** · 25/10/2010, 14h06

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

**timsa7** · 25/10/2010, 14h10

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

**yonpo** · 25/10/2010, 14h12

Tu peux passer par la création d'un nouveau contrôle.
Regardes un de mes précédents postes:ici

**BB-69** · 25/10/2010, 14h21

Bonjour,

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

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

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

**yonpo** · 25/10/2010, 14h25

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 :

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

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

**mactwist69** · 25/10/2010, 15h42

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 :

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

TextBox_TextChanged

, et tu fais ton test sur le contenu.

**BB-69** · 25/10/2010, 16h55

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.

**yonpo** · 25/10/2010, 17h00

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.

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

Clic droit=> supprimer

**BB-69** · 25/10/2010, 17h15

Envoyé par yonpo

Clic droit=> supprimer

Si il y a un menu sur le clic

**yonpo** · 25/10/2010, 17h23

Envoyé par BB-69

Si il y a un menu sur le clic

Evidemment cela va de soit

**chrismonoye** · 25/10/2010, 18h22

Bonsoir,

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 :

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

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
    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

**Sehnsucht** · 25/10/2010, 21h16

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 !

**tomlev** · 25/10/2010, 22h09

Envoyé par Sehnsucht

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) ?

Bien vu

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

**timsa7** · 28/10/2010, 11h46

Envoyé par chrismonoye

Bonsoir,

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

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

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
    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

Impossible d'effectuer un cast d'un objet de type 'System.Windows.Forms.Label' en type 'System.Windows.Forms.TextBox'.

**chrismonoye** · 28/10/2010, 12h39

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

**timsa7** · 28/10/2010, 13h32

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

**timsa7** · 28/10/2010, 13h43

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

**timsa7** · 28/10/2010, 13h49

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

**tomlev** · 28/10/2010, 13h58

N'oublie pas le bouton

...

saisir que des integer dans une textbox

VB.NET

Discussions similaires

Partager

Partager