topic Re: how to "if" an Optional in a function. in VBA Forum

how　to　"if" an Optional in a function.

Anonymous — Mon, 21 Jan 2008 15:12:58 GMT

hi,

i　wonder　how　to　"if" an Optional in a function.

Function OneObjGetbyFeeler(cl As AcadCircle, Optional clNm As Integer)

'i mean when clNm is not necessary how to say by if statement,

'for example ,

If Not clNm < 0 Then

thanks

Re: how　to　"if" an Optional in a function.

Anonymous — Mon, 21 Jan 2008 15:59:08 GMT

The ismissing function works well for this, but you must pass it a variant. IsMissing(vPoint)
In the example you offer
Optional col As Integer = 256 is what I use

Re: how　to　"if" an Optional in a function.

Anonymous — Mon, 21 Jan 2008 21:36:00 GMT

You can set a default value in the declaration.

Function OneObjGetbyFeeler(cl As AcadCircle, Optional clNm As Integer = Nothing)

If clNm = Nothing then

Re: how to "if" an Optional in a function.

Anonymous — Mon, 21 Jan 2008 21:59:41 GMT

That compiles for you?
Looks like invalid use of Object error here

wrote in message news:5826142@discussion.autodesk.com...
You can set a default value in the declaration.

Function OneObjGetbyFeeler(cl As AcadCircle, Optional clNm As Integer =
Nothing)

If clNm = Nothing then

Re: how to "if" an Optional in a function.

jbooth — Mon, 21 Jan 2008 22:11:36 GMT

You have to pass your optional argument as a variant data type. Otherwise you can't set the value to Nothing.

Public Sub test(ByVal a As String, Optional ByVal b As Variant = Nothing)
...
End Sub

Re: how to "if" an Optional in a function.

Anonymous — Mon, 21 Jan 2008 23:08:13 GMT

Sorry. Where I use it the variable is a class I have defined. As well as Jason's explanation 0 may be the suitable default value for an Integer.

Regards - Nathan