Optionale Übergabeparameter einer Funktion ?

[janosch]

HI!

Kann man unter VB eine Funktion so deklarieren, dass die Übergabeparameter Optional sind?

Ich habe folgende Funktion deklariert:

Public Function myGenMsgBox(ID As Integer, strLng As String, Var1, Var2, Var3) As String

So jetzt möchte ich aber, dass die Variablen Var1,Var2,Var3 Optional sind d.h. Ich möchte die Funkton auch so aufrufen können:

test = myGenMsgBox(4, "en", 1)

So wie es jetzt ist geht es nicht. Denn ich bekomme immer die Meldung: "Argument ist nicht Optional".

mfg Janosch

 

[deepthroat]

Hi.

Man kann einen Parameter mit dem Schlüsselwort "Optional" als optional deklarieren. Außerdem kann man dann noch einen Standardwert angeben der verwendet wird wenn der Parameter fehlt, sonst kann man mit der Funktion isMissing bei Variant-Parametern testen ob der Parameter angegeben wurde oder nicht:

Sub xyz (Optional param1 as String, Optional param2 as Boolean = false, Optional param3 as Variant)
  If IsMissing(param3) Then
    MsgBox "param3 ist leer."
  End If
End Sub

Gruß