VB - Làm cách nào để kiểm tra xem các đối số tùy chọn có được cung cấp hay không?

Question

Làm cách nào để kiểm tra xem các đối số tùy chọn có được cung cấp hay không? - trong VB6/VBA

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 

Answer 1

Sử dụng IsMissing:

If IsMissing(arg) Then 
    MsgBox "Parameter arg not passed" 
End If 

Tuy nhiên, nếu tôi nhớ không lầm, đây không hoạt động khi đưa ra một mặc định cho đối số, và trong mọi trường hợp nó làm cho việc sử dụng đối số mặc định thay cho dự phòng.

Answer 2

Nếu IsMissing (arg) Sau đó ...

Answer 3

Bạn có thể sử dụng hàm IsMissing(). Nhưng cái này chỉ hoạt động với kiểu dữ liệu biến thể.

Answer 4

Nếu bạn đang sử dụng biến số chuỗi hoặc số, bạn có thể kiểm tra giá trị của biến. Ví dụ:

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 

Điều này cho phép bạn sử dụng biến không phải biến thể.

Answer 5

Bạn có thể sử dụng một cái gì đó như:

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 

Answer 6

Với một biến thể tôi sẽ sử dụng NZ chức năng:

Function func (Optional ByRef arg As Variant = Nothing) 
    If nz (arg, 0) = 0 Then 
     MsgBox "NOT SENT" 
    End If 
End Function 

Nó có thể được sử dụng với các loại dữ liệu khác cũng vậy, chỉ cần ghi nhớ rằng Zero được tính là không phải là Null hay Zero-Length, vì vậy nz(0,"") vẫn trả về 0.