
Crew .NET |
|
Dim naam As String = "verhaba"
Select Case naam
Case "verhaba" : MessageBox.Show("juiste naam")
Case "blaat" : MessageBox.Show("niet juist")
Case Else : MessageBox.Show("default")
End Select
'Je kan de Select Case ook anders schrijven
Select Case naam
Case "verhaba"
MessageBox.Show("juiste naam")
Case "blaat"
MessageBox.Show("niet juist")
Case Else
MessageBox.Show("default")
End Select
Dim naam As String = "verhaba" Select Case naam Case "verhaba" : MessageBox.Show("juiste naam") Case "blaat" : MessageBox.Show("niet juist") Case Else : MessageBox.Show("default") End Select 'Je kan de Select Case ook anders schrijven Select Case naam Case "verhaba" MessageBox.Show("juiste naam") Case "blaat" MessageBox.Show("niet juist") Case Else MessageBox.Show("default") End Select
In dit geval is de naam juist en wordt er een MessageBox getoond met als tekst "juiste naam". Omdat aan die voorwaarde voldaan is wordt de rest niet meer geëvalueerd. Net zoals een else overgeslagen wordt als aan de if-conditie wordt voldaan. Bij C# moet je nog een 'break' plaatsen na elke case, in VB.NET niet. |