Choose-Funktion
Aktualisiert: November 2007
Wählt einen Wert aus einer Liste von Argumenten aus und gibt ihn zurück.
Public Function Choose( _
ByVal Index As Double, _
ByVal ParamArray Choice() As Object _
) As Object
Parameter
Index
Erforderlich. Double. Numerischer Ausdruck, der einem Wert zwischen 1 und der im Choice-Argument übergebenen Anzahl von Elementen entspricht.Choice
Erforderlich. Object-Parameterarray. Sie können eine einzelne Variable oder einen einzelnen Ausdruck angeben, die bzw. der dem Object-Datentyp, einer Liste von durch Komma getrennten Object-Variablen oder -Ausdrücken oder einem eindimensionalen Array von Object-Elementen entspricht.
Hinweise
Die Choose-Funktion gibt auf der Basis des Index-Werts einen Member der Liste zurück, die in Choice() übergeben wurde. Der erste Member der Liste wird ausgewählt, wenn Index 1 ist. Der letzte Member der Liste wird ausgewählt, wenn Index den Wert UBound(Choice()) aufweist. Wenn der Wert für Index außerhalb dieses Bereichs liegt, gibt Choose den Wert Nothing zurück.
Wenn Index keine ganze Zahl ist, wird der Wert vor der Auswertung auf die nächste ganze Zahl gerundet.
Sie können mit Choose einen Wert aus einer Liste von möglichen Werten auswählen.
.gif "Hinweis") Hinweis: |
|---|
Die Ausdrücke in der Argumentliste können Funktionsaufrufe enthalten. Die Argumentliste wird auf den Aufruf der Choose-Funktion vorbereitet, indem jede Funktion in jedem Ausdruck mit dem Visual Basic-Compiler aufgerufen wird. Das heißt, Sie können nicht davon ausgehen, dass eine bestimmte Funktion nicht aufgerufen wird, wenn ein anderer Ausdruck mit Index ausgewählt wird. |
Beispiel
In diesem Beispiel wird die Choose-Funktion verwendet, um einen Namen als Reaktion auf die Übergabe eines Indexes im Ind-Parameter an eine Prozedur anzuzeigen.
Function GetChoice(ByVal Ind As Integer) As String
GetChoice = CStr(Choose(Ind, "Speedy", "United", "Federal"))
End Function
Anforderungen
Namespace:Microsoft.VisualBasic
**Modul:**Interaction
**Assembly:**Visual Basic Runtime Library (in Microsoft.VisualBasic.dll)