Functie Switch

Evalueert een lijst van argumenten, bestaande uit een expressie gevolgd door een waarde. De Switch-functie geeft een waarde terug die geassocieerd is met de expressie die werd uitgevoerd met deze functie.

Switch (Expressie 1, Waarde 1[, Expressie 2, Waarde 2[..., Expressie_n, Waarde_n]]) As Variant

De functie Switch evalueert de expressies van links naar rechts en geeft de waarde terug die toegekend is aan de functie-expressie. Als expressie en waarde niet worden opgegeven als een paar, zal een runtime-fout optreden.

Expressie: De uitdrukking die moet worden geëvalueerd.

Waarde: De waarde die moet worden teruggegeven als de expressie Waar is.

In het volgende voorbeeld wordt de functie Switch gebruikt om het toepasselijke geslacht aan de naam, gegeven door de functie, toe te kennen:

Sub ExampleSwitch
Dim sGender As String
    sGender = GetGenderIndex( "John" )
    MsgBox sGender
End Sub
 
Function GetGenderIndex (sName As String) As String
    GetGeslachtIndex = Switch(sNaam = "Jeanette", "Vrouwelijk", sNaam = "Jan", "Mannelijk")
End Function