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