Hoe maak je toestaan ​​een tekstvak alleen getallen accepteren in Microsoft Visual Basic

Hoe maak je toestaan ​​een tekstvak alleen getallen accepteren in Microsoft Visual Basic


Als programmeur, zul je vaak de behoefte om de aard van de personages kan een gebruiker in een tekstvak in te voeren te beperken. In Visual Basic kunt u gemakkelijk de tekens van de gebruiker is het invoeren met behulp van de KeyDown en KeyPress gebeurtenissen van het tekstvak. Deze gebeurtenissen wordt uitgevoerd wanneer de gebruiker een toets op het toetsenbord drukt, waardoor u de kracht dat alleen nummers worden ingevoerd.

instructies

1 Rechtsklik 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 de gebeurtenis te maken.

2 Voeg de volgende globale variabele in de verklaringen gebied onder Public Class <formName>:

Dim notANumber zoals Van Boole

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

notANumber = False

If e.KeyCode &lt; Keys.D0 OrElse e.KeyCode > Keys.D9 Then

Als e.KeyCode & lt; Keys.NumPad0 orelse e.KeyCode> Keys.NumPad9 Dan

Als e.KeyCode & lt;> Keys.Back Dan

notANumber = True

Stop als

Stop als

Stop als

Als Control.ModifierKeys = Keys.Shift Dan

notANumber = True

Stop als

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

Als notANumber = True Dan

e.Handled = True

Stop als

5 Druk op "F5" om uw programma uit te voeren. Uw tekst box zal alleen cijfers accepteren.