Discussion :

[timsa7]

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]

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]

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

[chrismonoye]

Bonsoir,

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]

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]

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]

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]

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

[yonpo]

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

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

[yonpo]

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]

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.