Syntax
|
Switch
(condition1,expression1 [
,condition2,expression2
...
[
,condition7,expression7]])
|
Description
|
Returns the expression corresponding to the first
True
condition.
|
Comments
|
The
Switch
function evaluates each condition and expression, returning the expression that corresponds to the first condition (starting from the left) that evaluates to
True
. Up to seven condition/expression pairs can be specified.
A runtime error is generated it there is an odd number of parameters (that is, there is a condition without a corresponding expression).
The
Switch
function returns
Null
if no condition evaluates to
True
.
|
Example
|
The following code fragment displays the current operating platform. If the platform is unknown, then the word "Unknown" is displayed.
Sub Main()
Dim a As Variant
a = Switch(Basic.OS = 0,"Windows XP",Basic.OS = 2,"Win32",Basic.OS = 11,"OS/2")
MsgBox "The current platform is: " & IIf(IsNull(a),"Unknown",a)
End Sub
|
See Also
|
Choose (function); IIf (function); If...Then...Else (statement); Select...Case (statement).
|