cominciare un nuovo progetto selezionando il modello " standard EXE" dopo aver aperto Visual Basic ( VB ) . Si apre una finestra del modulo denominato " Form1 ". Per dimostrare come funziona la convalida , aggiungere questi controlli al form della " cassetta degli attrezzi" sulla sinistra dello schermo , fare doppio clic su ciascuna :
One " Etichetta ", rappresentato da una grande "A" maiuscola icona .
One " TextBox ", rappresentato da una icona di una piccola piazza che contiene le lettere " aB" .
Due
" CommandButtons, " rappresentata da una piccola icona in bianco rettangolo .
2
Cliccate e trascinate i controlli appena aggiunti per separarli e allinearle come elencati di seguito . Ogni controllo ha aggiunto copre le precedenti, in modo da quello superiore mostra a questo punto è l'ultimo " CommandButton ", denominato " Command2 ".
Spostare la casella " Command2 " al lato destro del modulo . < br
Sposta> " Command1 " sopra " Command2 ".
Move " Label1 " sul lato sinistro del modulo opposto " Command1 ".
Move " Text1 " sotto " Label1 . "
3
Clicca su" Label1 " e cambiare il" "proprietà nel" Caption proprietà " colonna a destra dello schermo per leggere " Inserire il numero desiderato tra 1 e 1000 . " Clicca su " Text1 " ed eliminare la proprietà predefinita "Testo" . Modificare le "caption" proprietà " Command1 " a " Go" e " Command2 " a " Annulla". Modificare la proprietà " CausesValidation " di " Command2 " a " False". Nota : Non inserire le virgolette quando fare questi cambiamenti . Utilizzare il trascinamento maniglie , i quadratini attorno ad ogni controllo di ampliare a sufficienza per mostrare l'intero contenuto .
4
Fare clic su " Visualizza " nel menu in alto livello in VB e selezionare "Codice ". Inserisci il seguente codice su righe separate esattamente come mostrato:
Private Sub Command1_Click ( ) per
MsgBox " numero è accettabile".
End Sub
Privato sub Command2_Click ( ) per
Fine
End sub private Sub
Text1_Validate ( Cancel As Boolean ) per
If Not IsNumeric ( Text1.Text ) Poi < br
Annulla > = True
ElseIf CDbl ( Text1.Text ) < 1 Or CDbl ( Text1.Text ) > 1000 Poi
Annulla = True
End Se
Se Annulla Poi
MsgBox " Il numero inserito deve essere compreso tra 1 e 1000 " , vbExclamation
End If End
Sub
5
Premere " F5 " per eseguire il programma . Inserisci qualsiasi numero sul modulo e fare clic su "OK ". Se il numero è compreso tra 1 e 1000 , verrà visualizzato un messaggio di accettazione . Prova inserendo un numero di fuori di questo intervallo o un testo , che poi dà un messaggio di errore . Utilizzare questo metodo per convalidare altre operazioni e di eseguire le operazioni desiderate per le informazioni in entrata .
Programmazione © www.354353.com