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)

"eagle" <ea***@yahoo.com> wrote in message
news:%2******************@TK2MSFTNGP11.phx.gbl...
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

"eagle" <ea***@yahoo.com> wrote in message
news:%2******************@TK2MSFTNGP11.phx.gbl...

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

[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

--
MY ASP.Net tutorials
http://www.openmymind.net/ - New and Improved (yes, the popup is annoying)
http://www.openmymind.net/faq.aspx - unofficial newsgroup FAQ (more to
come!)
"eagle" <ea***@yahoo.com> wrote in message
news:%2******************@TK2MSFTNGP11.phx.gbl...

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