How to pass a control optionally

[eagle]

How can I pass a control to another procedure as an option?

I tried:
Call DoStuff(lbl)

Private Sub DoStuff(Optional lnkbtn = nothing)

if lnkbtn <> nothing then lnkbtn.visible = true

end sub


and I get an error saying Operator is not valid for type LinkButton and
Nothing

 

[Siva M]

Hi,

Try DoStuff(Optional lnkbtn As Control = Nothing)

How can I pass a control to another procedure as an option?

I tried:
Call DoStuff(lbl)

Private Sub DoStuff(Optional lnkbtn = nothing)

if lnkbtn <> nothing then lnkbtn.visible = true

end sub


and I get an error saying Operator is not valid for type LinkButton and
Nothing

 

[Marina]

1. Turn Option Strict On. Declare types for all your objects.
2. If Not IsNothing(lnkbtn) Then lnkbtn.Visible = True

 

[Karl Seguin]

Or, use overloading

public sub DoStuff()
DoStuff(nothing)
end sub
public sub DoStuff(byval control as Control)
if not control is nothing then
control.Visible = true
end if
end sub