IsMissing

betrifft

Mit der IsMissing-Funktion können Sie prüfen, ob bei der Parameterübergabe an eine Funktion ein optionaler Parameter angegeben wurde. Wurde der Parameter angegeben oder handelt es sich bei der angegebenen Variablen nicht um einen optionalen Parameter, liefert die Funktion False zurück, ansonsten True.

 

Syntax
Result := IsMissing(Variable)
Rückgabewert
Typ	Beschreibung
Boolean	True, wenn die Variable bei der Parameterübergabe nicht angegeben wurde
Parameter
Verwendung	Name	Typ	Übergabe	Beschreibung
Erforderlich	Variable	Variable	ByVal	Variable

 

Das folgende Beispiel verwendet den optionalen Parameter Gloss. Wird dieser bei Funktionsaufruf nicht angegeben, wird dies mit Hilfe der IsMissing-Funktion erkannt. Im weiteren Ablauf werden dann die RGB-Farbwerte des übergebenen RAL-Codes ermittelt.

 

SetColor(3001)

 

Function SetColor(ByVal RALCode As Long, Optional ByVal Gloss As Long) As Void

   If IsMissing(Gloss) Then

      Gloss := 1

   End If

  

   Dim Col As New TCEGDIP.GDIPColor, ARGB As Long

  

   ARGB := Col.RALtoARGB(RALCode)

   Col.Value := ARGB

  

   MsgBox(Col.Red & " " & Col.Green & " " & Col.Blue & " Gloss " & Gloss)

  

  

End Function

 

Alternativ kann auch ein Default-Wert bei optionalen Parametern angegeben werden: In diesem Beispiel kann somit die Überprüfung mit IsMissing entfallen.

 

Function SetColor(ByVal RALCode As Long, Optional ByVal Gloss As Long := 1) As Void

  

   Dim Col As New TCEGDIP.GDIPColor, ARGB As Long

  

   ARGB := Col.RALtoARGB(RALCode)

   Col.Value := ARGB

  

   MsgBox(Col.Red & " " & Col.Green & " " & Col.Blue & " Gloss " & Gloss)

  

  

End Function