rechtermuisknop op het tekstvak dat u wilt controleren en kies Eigenschappen . Klik op het pictogram Events , die een bliksemschicht lijkt . Scroll naar beneden naar de KeyDown event en dubbelklik ernaast om het evenement te creëren kopen van 2

Voeg de volgende globale variabele in de verklaringen gebied onder Public Class : .

Dim notANumber zoals Van Boole

Kopieer 3 en plak de volgende code in de KeyDown evenement voor het tekstvak :

notANumber
= False

Als e.KeyCode < Keys.D0 orelse e.KeyCode > Keys.D9 dan

Als e.KeyCode < Keys.NumPad0 orelse e.KeyCode > Keys.NumPad9 dan

Als e.KeyCode < > Keys.Back

notANumber dan
= True

End
Als

End
Als

End
Als

Als Control.ModifierKeys = Keys.Shift

notANumber dan
= True

Eind
Als
4

Klik gebeurtenissen drop-down box en selecteer KeyPress om het evenement te creëren procedure . Kopieer de volgende code in deze gebeurtenis procedure :

Als notANumber = Waar toen

e.Handled = True

Eind
Als

Press 5 " F5 " om uw programma te draaien . Uw tekst box zal alleen getallen

accepteren .