Procédure d'autorisation d' une zone de texte pour accepter uniquement les chiffres dans Microsoft Visual Basic

clic droit sur le contrôle zone de texte que vous voulez vérifier et sélectionnez Propriétés. Cliquez sur l'icône d'événements , qui ressemble à un éclair . Faites défiler jusqu'à l'événement KeyDown et double-cliquez à côté de lui pour créer l'événement
2

Ajouter la variable globale suivante dans la zone des déclarations ci-dessous Classe publique : .

notANumber As Boolean
3

Copiez et collez le code suivant dans l'événement KeyDown pour le contrôle de la zone de texte:

notANumber = False

e.KeyCode < Keys.D0 OrElse e.KeyCode > Keys.D9 Puis

Si e.KeyCode < Keys.NumPad0 OrElse e.KeyCode > Keys.NumPad9 Puis

e.KeyCode <> Keys.Back Puis

notANumber = True

End If End If

End If

Si Control.ModifierKeys = Keys.Shift Puis

notANumber = True

End If
4

Cliquez sur les événements liste déroulante et sélectionnez KeyPress pour créer l'événement procédure . Copiez le code suivant dans la procédure d'événement:

Si notANumber = True Then

e.Handled = True

End If
5

presse "F5 " pour exécuter votre programme. Votre zone de texte accepte uniquement des nombres .