Limiter la frappe dans des zones combo ou text à des chiffres

Contenu du snippet

Il s'agit d'une petite mise à jour pour VB.NET des astuces déjà existantes pour VB5 et VB6 qui avaient été postées par d'autres membres. Il s'agit d'un petit morceau de code à placer dans l'évènement KeyPress d'une zone de Texte ou d'un Combo pour limiter la frappe de l'utilisateur à des touches de commande (DEL, SUPPR...) et à des chiffres.

Source / Exemple :


Private Sub Combo1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboUMatricule.KeyPress
        If Asc(e.KeyChar) < 32 Then
            'ASCII < 32 = Tout ce qui est commandes 
            e.Handled = False
        ElseIf (Asc(e.KeyChar) > 47 And Asc(e.KeyChar) < 57) Then
            'ASCII compris entre 48 et 57 inclu représente les chiffres de 0 à 9.
            e.Handled = False
        Else
            e.Handled = True
        End If
End Sub

A voir également