Visual Basic 6 ( VB6 ) ist eine ereignisgesteuerte Programmiersprache. In Reaktion auf ein Ereignis wie eine Schaltfläche klicken , VB6 läuft normalerweise eine Reihe von Befehlen , einer nach dem anderen . Allerdings können Sie den Computer auf verschiedene Sätze von Befehlen je nachdem, ob eine Bedingung wahr ist oder nicht. Um dies zu tun , ist es am besten , um eine " If ... Else" Anweisung verwenden. Anleitung
1
Type " Wenn [Bedingung ] Dann " wo " [Bedingung ] " ist die Bedingung, die Sie testen möchten. Zum Beispiel würde dieser Code testen, ob einige Texte, die vom Benutzer eingegeben weniger als drei Zeichen lang ist :
Wenn Len ( txtUserName.Text ) <3 Dann
2
Geben Sie die Befehle, die Sie wollen laufen, wenn die Bedingung erfüllt ist . Sie können einen einzelnen Befehl oder mehrere , die jeweils in einer eigenen Zeile eingeben . Diese Befehle werden manchmal als ein " Block ". Zum Beispiel wird dieser Befehl verwendet, um den Benutzer, dass der Text, den er eingegeben zu kurz informieren : " . Benutzernamen müssen mindestens drei Zeichen lang sein "
MsgBox
3 < p > Geben Sie das Schlüsselwort "Else " in einer eigenen Zeile . Dies markiert das Ende des Blocks von Befehlen ausgeführt werden, wenn die Bedingung wahr ist , und der Beginn des Blocks von Befehlen ausgeführt werden, wenn die Bedingung nicht erfüllt werden. Zum Beispiel:
Else
4
Geben Sie die Befehle ausgeführt, wenn die Bedingung nicht erfüllt ist . Wie bei dem vorherigen Block , können Sie einen oder mehrere Befehle . Dieses Beispiel speichert die vom Benutzer eingegebenen Text und sagt ihm, dass sie gespeichert wurde :
Username = txtUserName.Text
MsgBox " Ihr neuer Benutzername ist" & Benutzername &
< " . " br> 5
Typ " End If " in einer eigenen Zeile , um das Ende der " If ... Else "-Anweisung zu markieren. Zum Vergleich hier ist der Code für das gesamte Beispiel:
Wenn Len ( txtUserName.Text ) <3 Dann
MsgBox " Benutzernamen müssen mindestens drei Zeichen lang sein. "
Else
Username = txtUserName.Text
MsgBox " Ihr neuer Benutzername ist" & Benutzername & " . "
End If
