Controle de saisie textbox sous visual studio express 2005

Commenter

Contenu du snippet

Ce code permet de controler le contenu de la textbox selon les choix:
que numerique(virgule ou pas, positif ou pas)
que caractère alphabetique
mixte des deux

Source / Exemple : 


'A mettre dans le code de la form ou se trouve votre textbox  

  Private Sub TextBox1OnKeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Controle_saisie.Textbox_control(sender, e, True, True, False, False)
        '                                            |     |       |   |_ si True: Caractère alphabet autorisé
        '                                            |     |       |
        '                                            |     |       |_si True:Nombre positif uniquement
        '                                            |     |
        '                                            |     |_ si True: Nombre entier uniquement
        '                                            |
        '                                            |_si true: Nombre autorisé

    End Sub
'a mettre dans un module appelé "Controle_saisie"

    Public Sub Textbox_control(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs, ByVal Nombre As Boolean, ByVal Est_entier As Boolean, ByVal Est_positif As Boolean, ByVal Alphabet As Boolean)
        Select Case e.KeyChar
            Case "1" To "9"
                If Nombre = False Then e.Handled = True
            Case "a" To "z"
                If Alphabet = False Then e.Handled = True
            Case ".", ","
                If Est_entier = False Then
                    e.Handled = True
                Else
                    e.KeyChar = ","
                End If
            Case "-"
                If Est_positif = True Then
                    e.Handled = True
                Else
                    'enlever le moins précedent
                End If
            Case Else
                If (Char.IsControl(e.KeyChar)) Then
                    e.Handled = False
                Else
                    e.Handled = True
                End If
        End Select

    End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.