Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> .

Come codice di un'istruzione IF Else in VB6

Visual Basic 6 ( VB6 ) è un linguaggio di programmazione event-driven . In risposta a un evento come un clic del pulsante , VB6 esegue normalmente una serie di comandi , uno dopo l'altro . Tuttavia, si consiglia il computer per eseguire diversi set di comandi a seconda se una condizione è vera o no . Per fare questo, è meglio usare una dichiarazione di " If ... Else" . Istruzioni
1

tipo "se [condizione ] Allora " dove " [ condizione] " è la condizione che si desidera testare . Ad esempio, questo codice potrebbe verificare se un testo immesso dall'utente è lunga meno di tre caratteri :

If Len ( txtUsername.Text ) < 3 Poi
2

Inserisci l' comandi che si desidera eseguire se la condizione è vera . È possibile immettere un singolo comando o più , ciascuno sulla propria riga . Questi comandi sono a volte indicato come un "blocco ". Ad esempio, questo comando viene utilizzato per informare l'utente che il testo è entrato è troppo corto : " . Nomi utente devono essere lunghi almeno tre caratteri "
MsgBox


3

Inserire la parola chiave " Else " sulla propria riga . Questo segna la fine del blocco di comandi da eseguire se la condizione è vera , e l'inizio del blocco di comandi da eseguire se la condizione non è vera . Per esempio :

Else
4

Immettere i comandi da eseguire se la condizione non è vera . Come per il blocco precedente , è possibile inserire uno o molti comandi . Questo esempio consente di risparmiare il testo immesso dall'utente e gli dice che è stato salvato :

Username = txtUsername.Text

MsgBox " Il tuo nuovo nome utente è" & utente &
< " . " br> 5

tipo " End If " su una riga per segnare la fine della " If ... Else" dichiarazione. Per riferimento , qui è il codice per l'intero esempio :

If Len ( txtUsername.Text ) <3 Poi
MsgBox

" Nomi utente deve essere lungo almeno tre caratteri . "

Else

Username = txtUsername.Text

MsgBox " Il tuo nuovo nome utente è" & utente & " . "

End If


 

Programmazione © www.354353.com