How to pass a Control Array - VB5

[The Mess]

I would like to pass a Control array of OptionButtons that I created at run
time to a Sub.

Say I have Opt(0), Opt(1)......Opt(5) as OptionButtons, is there a way to
pass Opt to a function and have the function see it as an Array of
Optionbuttons?

private sub Test(a as Object) is the best I can come up with so far. I
would like to test it to verify that it is both an array and an
OptionButton. Although I can check it with typename(Opt(opt.lbound)) for the
OptionButton part I am relying on Error checking to check to see if it is an
array. Is there a better way?

Thanks.

[Randy Birch]

http://vbnet.mvps.org/code/helpers/iscontrolinarray.htm - a one-line
function that returns True if the passed control is a member of a control
array, or False if it is not, and without requiring error trapping.

--
Randy Birch
MS MVP Visual Basic
http://vbnet.mvps.org/
"The Mess" <em***@none.com> wrote in message
news:_t********************@news20.bellglobal.com. ..
:I would like to pass a Control array of OptionButtons that I created at run
: time to a Sub.
:
: Say I have Opt(0), Opt(1)......Opt(5) as OptionButtons, is there a way to
: pass Opt to a function and have the function see it as an Array of
: Optionbuttons?
:
: private sub Test(a as Object) is the best I can come up with so far. I
: would like to test it to verify that it is both an array and an
: OptionButton. Although I can check it with typename(Opt(opt.lbound)) for
the
: OptionButton part I am relying on Error checking to check to see if it is
an
: array. Is there a better way?
:
: Thanks.
:
:

[The Mess]

So that's how its done!
Thanks for the quick reply!

"Randy Birch" <rg************@mvps.org> wrote in message
news:1K********************@rogers.com...

http://vbnet.mvps.org/code/helpers/iscontrolinarray.htm - a one-line
function that returns True if the passed control is a member of a control
array, or False if it is not, and without requiring error trapping.

--
Randy Birch
MS MVP Visual Basic
http://vbnet.mvps.org/
"The Mess" <em***@none.com> wrote in message
news:_t********************@news20.bellglobal.com. ..
:I would like to pass a Control array of OptionButtons that I created at run : time to a Sub.
:
: Say I have Opt(0), Opt(1)......Opt(5) as OptionButtons, is there a way to : pass Opt to a function and have the function see it as an Array of
: Optionbuttons?
:
: private sub Test(a as Object) is the best I can come up with so far. I
: would like to test it to verify that it is both an array and an
: OptionButton. Although I can check it with typename(Opt(opt.lbound)) for
the
: OptionButton part I am relying on Error checking to check to see if it is an
: array. Is there a better way?
:
: Thanks.
:
:

[Rick Rothstein]

> http://vbnet.mvps.org/code/helpers/iscontrolinarray.htm - a one-line

function that returns True if the passed control is a member of a control array, or False if it is not, and without requiring error trapping.

The following is from an email I sent you about 3 years ago. I'm
guessing we both lost track of it because it was never included in the
web page's text. (Either that, or you just don't like what I wrote.<g>)
Anyway, I'm posting it here because I think it adds something useful to
the discussion.

In the routine you cited in the above link, you offer four examples of
calling the IsControlInArray function listed in the routine. I think
they all miss the true usefulness of the code since you are calling the
IsControlInArray function using "hard coded" control objects. If you
know enough to pass Option2 instead of Option2(0) into the function, you
probably already know whether you have a control array or not (so you
don't need the function to tell you). I envisioned this codes usefulness
to be when used either with the ActiveControl property of a Form
(whether the ActiveForm or not) or when used in a Function/Sub where it
would use the control passed into the Function/Sub as its direct
argument. It is in these types of situations where the nature of the
control would not be known beforehand and asking IsControlInArray would
truly be useful.

Rick - MVP

[Randy Birch]

Hi Rick ...

I thought I responded to that email. I agree, but also find the function
handy as it reliably determines the control type when a control of unknown
type passed to a method as object. As I could foresee use for this I
maintained the page ...

Private Sub Command1_Click()

Call something(Command1)
Call something(Command2)

End Sub

Private Sub something(obj As Object)

If IsControlInArray(obj) Then
obj(0).Caption = "an array control"
Else
obj.Caption = "non-array control"
End If

End Sub

Private Function IsControlInArray(ctl As Object) As Boolean

IsControlInArray = TypeName(ctl) = "Object"

End Function
Were you to use the same test with:

Private Sub Command2_Click(Index As Integer)

Call something(Me.ActiveControl)

End Sub

.... the result is "non-array control", as the control resolves to
CommandButton since effectively "Command(0)' or "Command2(1)" was passed.
--
Randy Birch
MS MVP Visual Basic
http://vbnet.mvps.org/
"Rick Rothstein" <ri************@NOSPAMcomcast.net> wrote in message
news:ro********************@comcast.com...
:> http://vbnet.mvps.org/code/helpers/iscontrolinarray.htm - a one-line
: > function that returns True if the passed control is a member of a
: control
: > array, or False if it is not, and without requiring error trapping.
:
: The following is from an email I sent you about 3 years ago. I'm
: guessing we both lost track of it because it was never included in the
: web page's text. (Either that, or you just don't like what I wrote.<g>)
: Anyway, I'm posting it here because I think it adds something useful to
: the discussion.
:
: In the routine you cited in the above link, you offer four examples of
: calling the IsControlInArray function listed in the routine. I think
: they all miss the true usefulness of the code since you are calling the
: IsControlInArray function using "hard coded" control objects. If you
: know enough to pass Option2 instead of Option2(0) into the function, you
: probably already know whether you have a control array or not (so you
: don't need the function to tell you). I envisioned this codes usefulness
: to be when used either with the ActiveControl property of a Form
: (whether the ActiveForm or not) or when used in a Function/Sub where it
: would use the control passed into the Function/Sub as its direct
: argument. It is in these types of situations where the nature of the
: control would not be known beforehand and asking IsControlInArray would
: truly be useful.
:
: Rick - MVP
: