Passing arrays of controls to functions

[Kevin]

Hi i'm having a problem passing an arrays of controls on a form to a
function or sub. I can use this code for any datatype but when i change
'long' to 'label' in the public sub and i call the sub from a mousedown or
keydown event belonging to an array of labels i get an error saying: "tpye
mismatch, array or user defined type expected".

Public Sub ProcTest(By Ref lngNum() as Long)
lngNum(1) = 2
End Sub

Public Sub Something()
Dim lngArray(1 To 5) as Long
Call ProcTest(lngArr ay)
MsgBox("Index 1 = " & lngArray(1))
End Sub

Anybody know if it's even possible to send an array of controls, or at least
pointers to a sub ?

Thanks in advance,

Kevin

[Rick Rothstein]

> Hi i'm having a problem passing an arrays of controls on a form to a

function or sub. I can use this code for any datatype but when i change 'long' to 'label' in the public sub and i call the sub from a mousedown or keydown event belonging to an array of labels i get an error saying: "tpye mismatch, array or user defined type expected".

Public Sub ProcTest(By Ref lngNum() as Long)
lngNum(1) = 2
End Sub

Public Sub Something()
Dim lngArray(1 To 5) as Long
Call ProcTest(lngArr ay)
MsgBox("Index 1 = " & lngArray(1))
End Sub

Anybody know if it's even possible to send an array of controls, or at least pointers to a sub ?

You would pass a control array as an Object. I would think it best to
address the members of the control array using For Each loop rather than
a normal For-Next (the Indexes of a control array do not have to be in
consecutive order). Here is a simple example that takes a control array
of TextBoxes that is named Text1 and passes it to a Sub that changes all
of their BackColors to red.

Private Sub Command1_Click( )
MakeRed Text1
End Sub

Sub MakeRed(TextBox Array As Object)
Dim tbox As TextBox
For Each tbox In TextBoxArray
tbox.BackColor = vbRed
Next
End Sub

Rick - MVP

[Olof Lagerkvist]

Kevin wrote:

Hi i'm having a problem passing an arrays of controls on a form to a
function or sub. I can use this code for any datatype but when i change
'long' to 'label' in the public sub and i call the sub from a mousedown or
keydown event belonging to an array of labels i get an error saying: "tpye
mismatch, array or user defined type expected".

Public Sub ProcTest(By Ref lngNum() as Long)
lngNum(1) = 2
End Sub

Public Sub Something()
Dim lngArray(1 To 5) as Long
Call ProcTest(lngArr ay)
MsgBox("Index 1 = " & lngArray(1))
End Sub

Anybody know if it's even possible to send an array of controls, or at least
pointers to a sub ?

I don't know if there are any better ways, but this works (example of an
array of CommandButtons named Command1):

Private Sub Command1_Click( Index As Integer)
TestSub Command1
End Sub

Private Sub TestSub(buttons As Object)
MsgBox buttons(1).Capt ion
End Sub

Object or Variant seem to work as parameter type. You don't need to
specify ByRef since all parameters are passed as references in VB unless
ByVal is specified.

If you want to have a control array as parameter it is possible to use a
temporary array (same example as above):

Private Sub Command1_Click( Index As Integer)
With Command1
ReDim ButtonList(.LBo und To .UBound) As CommandButton
Dim c
For c = .LBound To .UBound
Set ButtonList(c) = .Item(c)
Next
End With

TestSub ButtonList
End Sub

Private Sub TestSub(Buttons () As CommandButton)
MsgBox Buttons(1).Capt ion
End Sub

--
Olof Lagerkvist
ICQ: 724451
Web page: http://here.is/olof

[Kevin]

I got it working now, thanks both of you guys!

"Kevin" <ms*******@mdof .com> wrote in message
news:40******** *************** @news.wanadoo.n l...

Hi i'm having a problem passing an arrays of controls on a form to a
function or sub. I can use this code for any datatype but when i change
'long' to 'label' in the public sub and i call the sub from a mousedown or
keydown event belonging to an array of labels i get an error saying: "tpye mismatch, array or user defined type expected".

Public Sub ProcTest(By Ref lngNum() as Long)
lngNum(1) = 2
End Sub

Public Sub Something()
Dim lngArray(1 To 5) as Long
Call ProcTest(lngArr ay)
MsgBox("Index 1 = " & lngArray(1))
End Sub

Anybody know if it's even possible to send an array of controls, or at least pointers to a sub ?

Thanks in advance,

Kevin