En av de mest frustrerende områdene i å skrive kode på alle språk , inkludert Visual Basic, handler om å sikre at når brukere legge inn informasjon i en form det er gyldig . Brukere , spesielt uerfarne seg, kan finne nesten ubegrenset måter å legge inn ugyldige data . I beste fall en programmerer må dekke et rimelig antall muligheter og gi forståelige feilrapporter i resten av tilfellene . Visual Basic 6.0 håndterer validering med to begreper : " CausesValidation " og "Bekreft ". Du trenger
Visual Basic 6.0
Vis flere instruksjoner
en
begynne et nytt prosjekt ved å velge " Standard EXE " mal etter at du åpner Visual Basic ( VB ) . Dette åpner et skjema vindu som heter " Form1 . " For å demonstrere hvordan validering fungerer , legger disse kontrollene til skjemaet fra " Toolbox" til venstre på skjermen ved å dobbeltklikke på hver : en
One "Label ", representert ved en stor kapital "A" -ikonet .
One " TextBox ", representert ved et ikon av en liten firkant som inneholder bokstavene " ab ."
Two " CommandButtons ", representert ved en liten tomme rektangelet ikonet.
2
Klikk på og dra de kontrollene du nettopp har lagt til skille dem og justere dem som er nevnt nedenfor . Hver kontroll lagt til dekker opp de foregående , så den øverste viser på dette punktet er den siste " CommandButton , " heter " Kommando2 . "
Flytt " Kommando2 " boksen til høyre side av skjemaet .
Move " Command1 " over " Kommando2 . "
Move " Label1 " til venstre side av skjemaet motsatt " Command1 . "
Move " Tekst1 " under " Label1 . "
3
Klikk på" Label1 " og endre" Bildetekst "eiendom i" Properties "-kolonnen på høyre side av skjermen for å lese " Tast inn ønsket tall mellom 1 og 1000 . " Klikk på " Tekst1 " og slette standard "Text " eiendom . Endre " Bildetekst " egenskaper " Command1 " til " Go" og " Kommando2 " til " Avbryt ". Endre " CausesValidation " eiendom " Kommando2 " til " False ". Merk: Ikke sett anførselstegn når du gjør disse endringene . Bruke dra håndtakene , de små rutene rundt hver kontroll for å utvide dem tilstrekkelig for å vise hele innholdet .
4
Klikk "View " i øverste menyen i VB og velg " kode". Skriv inn følgende kode på egne linjer akkurat som vist :
Private Sub Command1_Click ( )
MsgBox "nummer er akseptabelt . "
End Sub
Privat sub Command2_Click ( )
End
End sub
Private Sub Text1_Validate ( Cancel As Boolean )
p Hvis ikke IsNumeric ( Text1.Text ) Da
Cancel = Sant
ElseIf CDbl ( Text1.Text ) < 1 Eller CDbl ( Text1.Text ) > 1000 Da
Cancel = Sant
End Hvis
p Hvis Avbryt Deretter
MsgBox " Det angitte antallet må være mellom 1 og 1000 " , vbExclamation
End If
End Sub
5
Trykk " F5 " for å kjøre programmet . Skriv inn et tall på skjemaet og klikk " OK . " Hvis nummeret faller mellom 1 og 1000 , vil du se en aksept melding . Test ved å taste inn et nummer utenfor dette området eller tekst , som deretter gir en feilmelding. Bruk denne tilnærmingen til å validere andre operasjoner og utføre ønskede operasjoner på den angitte informasjon.
