Jak sprawdzić, czy opcjonalne argumenty są dostarczane, czy nie? - w VB6/VBAVB - Jak sprawdzić, czy opcjonalne argumenty są dostarczane, czy nie?
Function func (Optional ByRef arg As Variant = Nothing)
If arg Is Nothing Then <----- run-time error 424 "object required"
MsgBox "NOT SENT"
End If
End Function
Zastosowanie IsMissing:
If IsMissing(arg) Then
MsgBox "Parameter arg not passed"
End If
Jednakże, jeśli dobrze pamiętam, to nie działa, gdy dając domyślnie dla argumentu, a w każdym razie czyni użycie domyślnego argumentu raczej zbędnym.
Jeśli IsMissing (arg) Następnie ...
Można użyć funkcji IsMissing(). Ale ten działa tylko z typem Wariant.
Jeśli używasz zmiennej łańcuchowej lub liczbowej, możesz sprawdzić wartość zmiennej. Na przykład:
Function func (Optional Str as String, Optional Num as Integer)
If Str = "" Then
MsgBox "NOT SENT"
End If
If Num = 0 Then
MsgBox "NOT SENT"
End If
End Function
Umożliwia to użycie zmiennych niezmiennych.
Nie można jednak rozróżnić idealnie poprawnego użycia, chociaż: 'func (" ", 0)' niepoprawnie zgłosi niezdefiniowane parametry. Ogólnie rzecz biorąc, nie ma * możliwości * posiadania tego rozróżnienia bez użycia "wariantu". –
@KonradRudolph To bardzo dobry punkt. Chcesz się upewnić, że nigdy nie użyłeś go w sytuacji, gdybyś mógł wysłać pusty ciąg lub liczbę zero. – OSUZorba
Można użyć coś takiego:
function func(optional vNum as integer:=&HFFFF) '&HFFFF value that is NEVER set on vNum
If vNum = &HFFFF Then
MsgBox "NOT SENT"
End If
End Function
wariantem byłoby używam NZ funkcję:
Function func (Optional ByRef arg As Variant = Nothing)
If nz (arg, 0) = 0 Then
MsgBox "NOT SENT"
End If
End Function
Może być stosowany z innymi typami danych też, po prostu pamiętać, że Zero nie liczy się jako Null ani Zero-Length, więc nadal zwraca 0.
Myślę też, że IsMissing działa tylko wtedy, gdy argument jest zadeklarowany jako wariant –
@Jon: true, ponieważ 'IsMissing' jest zaimplementowany pod względem flagi w strukturze' VARIANT' (IIRC, 'VT_EMPTY'). Nie wspomniałem o tym, ponieważ pytanie PO już i tak stosowało "wariant". –