En af de mest frustrerende områder i at skrive kode på alle sprog, herunder Visual Basic, indebærer, at der , når brugerne input oplysninger i en form, det er gyldigt . Brugere , især uerfarne dem , kan finde næsten ubegrænsede måder at indtaste ugyldige data. I bedste fald en programmør skal dække et rimeligt antal muligheder og give forståelige fejlrapporter i resten af tilfældene. Visual Basic 6.0 håndterer validering med to ord: " CausesValidation " og " Godkend ". Ting du skal
Visual Basic 6.0
Vis Flere Instruktioner
1

begynde et nyt projekt ved at vælge " Standard EXE " skabelon, når du åbner Visual Basic ( VB) . Dette åbner en formular med navnet " Form1 ". For at demonstrere , hvordan valideringen virker, tilføje disse kontrolelementer til formularen fra " Toolbox" i venstre side af skærmen ved at dobbeltklikke på hver : Hej

One " Label ", repræsenteret ved en stor kapital "A" -ikonet .

One " TextBox ", repræsenteret ved et ikon med en lille firkant , der indeholder bogstaverne "AB ".

Two " CommandButtons ", repræsenteret ved en lille blank firkant ikon.
< br > 2

Klik på og træk den kontrol , du lige har tilføjet for at adskille dem og tilpasse dem som anført nedenfor . Hver kontrol tilføjede dækker op de foregående dem , så den øverste viser på dette punkt er det sidste " CommandButton , " navn " Command2 . "

Flyt " Command2 "-boksen til højre side af formularen. < br >

Move " Command1 " over " Command2 . "

Move " Label1 " til venstre side af skemaet overfor " Command1 . "

Move " Tekst1 " under " Label1 . "
3

Klik på " Label1 " og ændre" Caption "ejendom i " Egenskaber "kolonnen til højre på skærmen for at læse " Indtast den ønskede tal mellem 1 og 1.000. " Klik på " Tekst1 " og slet default " Tekst" ejendom. Ændr " Caption " egenskaber " Command1 " til "Go " og " Command2 " til " Annuller". Ændr " CausesValidation " ejendom " Command2 " til " False ". Bemærk: Sæt ikke anførselstegn , når du foretager disse ændringer. Bruge træk håndtag, de små firkanter omkring hver kontrol til at udvide dem tilstrækkeligt til at vise hele indholdet .
4

Klik på " View" i det øverste niveau i menuen i VB og vælg "Code ". Indtast følgende kode på separate linjer nøjagtigt som vist :

Private Sub Command1_Click ()

MsgBox "Antallet er acceptabelt. "

End Sub

Privat sub Command2_Click ()

End

End Sub

Private Sub Text1_Validate ( Cancel Som Boolean )
p Hvis Ikke IsNumeric ( Text1.Text ) Derefter < br >

Cancel = Sand

EllersHvis CDbl ( Text1.Text ) <1 Or CDbl ( Text1.Text ) > 1000 Så

Cancel = Ægte

End Hvis

Hvis Annuller Så

MsgBox "Antallet indtastet skal være mellem 1 og 1.000 " , vbExclamation

End If

End Sub
< br > 5

Tryk på " F5 " for at køre programmet. Indtast et nummer på formularen og klik på " OK". Hvis antallet falder mellem 1 og 1.000 , vil du se en accept -meddelelse. Test ved at indtaste et nummer uden for dette område eller tekst , som derefter giver en fejlmeddelelse . Brug denne metode til at validere andre operationer og udføre ønskede operationer på de indtastede oplysninger .