Visual Basic 6 ( VB6 ) is een event - driven programmeertaal . In reactie op een gebeurtenis zoals een knop klikken , VB6 loopt normaal gesproken een reeks opdrachten , een na de ander . Echter , kunt u de computer naar verschillende reeksen commando's , afhankelijk van de vraag of een voorwaarde waar is of niet. Om dit te doen , is het best om een " If ... Else " statement gebruiken . Instructies Type 1 " Als [ voorwaarde ] Dan " waar " [ staat ] " is de voorwaarde die u wilt testen . Bijvoorbeeld , zou deze code testen of wat tekst die door de gebruiker is minder dan drie tekens lang : Als Len ( txtUsername.Text ) < 3 Dan kopen van 2 Voer het opdrachten die u wilt uitvoeren als de voorwaarde waar is . U kunt een enkel commando of meerdere , elk voer op zijn eigen lijn . Deze commando's worden soms aangeduid als een " blok ". Bijvoorbeeld , wordt dit commando gebruikt om de gebruiker dat de tekst die hij ingevoerd is te kort informeren : " . Gebruikersnamen moeten tenminste drie tekens lang zijn " MsgBox 3 Voer het trefwoord " Else " op zijn eigen lijn . Dit markeert het einde van het blok van de commando's moeten worden uitgevoerd als de voorwaarde waar is , en het begin van het blok van de commando's moeten worden uitgevoerd als de voorwaarde niet waar is . Bijvoorbeeld : Else 4 Voer de opdrachten die u wilt uitvoeren als de voorwaarde niet waar is . Net als bij het vorige blok , kunt u een of meerdere commando's in te voeren . Dit voorbeeld slaat de tekst van de gebruiker heeft ingevoerd en vertelt hem dat hij was gered : Gebruikersnaam = txtUsername.Text MsgBox " Je nieuwe gebruikersnaam is " & Gebruikersnaam & < " . " br > 5 Type " end If " op zijn eigen lijn aan het einde van de " If ... Else " statement markeren . Ter referentie , hier is de code voor de gehele bijvoorbeeld : Als Len ( txtUsername.Text ) < 3 Dan MsgBox " Gebruikersnamen moeten tenminste drie tekens lang zijn . " Gebruikersnaam Else = txtUsername.Text MsgBox " Je nieuwe gebruikersnaam is " & Gebruikersnaam & " . " End Als < br >
|