Begin een nieuw project door het selecteren van de " Standard EXE " template na het openen van Visual Basic ( VB ) . Dit opent een formulier venster met de naam " Form1 . " Aan te tonen hoe validatie werkt , voegt u deze controles om de vorm van de " Toolbox " aan de linkerkant van het scherm door te dubbelklikken op elke :

One " Label ", vertegenwoordigd door een grote hoofdletter " A " icoon

One " TextBox , " .
weergegeven door een pictogram van een klein vierkant met daarin de letters " ab . "

Twee
" CommandButtons , " vertegenwoordigd door een kleine lege rechthoek icoon.
< br > 2

Klik op en sleep de knoppen die u net hebt toegevoegd om ze te scheiden en lijn ze zoals hieronder vermeld . Elke controle toegevoegd dekt de voorgaande degenen , zodat de bovenste met op dit punt is de laatste " CommandButton , " naam " Command2 . "

Move of the box " Command2 " aan de rechterkant van het formulier . < br

Move " Command1 " boven " Command2 . "

Move
" Label1 " aan de linkerkant van het formulier tegenovergestelde " opCommand1 . "

Move
" Text1 " onder " Label1 > . "

Klik 3 op " Label1 " en het veranderen " Caption " eigendom in de " Eigenschappen " kolom aan de rechterkant van het scherm om te lezen " Voer het gewenste getal tussen 1 en 1000 . " Klik op " Text1 " en de standaard " tekst " eigendom te verwijderen . Verander de " Caption " eigenschappen van " Command1 " naar " Go" en " Command2 " om " Annuleren". Verander de " CausesValidation " eigendom van " Command2 " aan " False ". Opmerking : Plaats geen aanhalingstekens bij het maken van deze veranderingen . Gebruik het slepen handvatten , de pleintjes rond elke controle om hen voldoende te breiden tot de volledige inhoud te tonen .
4

Klik op " View" in het hoofdmenu in VB en selecteer " Code . " Voer de volgende code op aparte regels precies zoals afgebeeld :

Private Sub Command1_Click ( ) op

MsgBox
" Nummer is acceptabel . "

End Sub

Prive sub Command2_Click ( ) op

End of

End Sub

Private Sub Text1_Validate
( Cancel As Boolean ) op Twitter

Als Niet IsNumeric ( Text1.Text ) dan < br >

Cancel = True

ElseIf CDbl
( Text1.Text ) < 1 Or CDbl ( Text1.Text ) > 1000 dan

Cancel = True End

Als

Als Annuleer dan

MsgBox
" Het ingevoerde nummer moet tussen 1 en 1000 worden" , vbExclamation

End
Als

End Sub
< br >

Druk op " F5 " 5 om het programma uit te voeren . Voer een nummer op het formulier in en klik op "OK . " Als het nummer valt tussen 1 en 1000 , zal u een acceptatie -bericht te zien . Testen door het invoeren van een nummer buiten dit bereik of tekst , die vervolgens geeft een foutmelding . Gebruik deze aanpak naar andere operaties valideren en uitvoeren van de gewenste bewerkingen op de ingevoerde gegevens .