Control Array Members 2

[StewartJ]

My function has been passed a control as a parameter. Please could you explain how I determine whether it is a member of a control array?

 

[bjd4jc]

I am pretty sure this will work for what you want. There may be a better way but I don't know about it.... give this a try:

Private Sub IsMyTextboxAnArray(MyTextbox As Object)
    On Error Resume Next
    Dim Count As Long
    
    Count = MyTextbox.Count
    If Err.Number = 438 Then
        Debug.Print "Not a Control Array"
    Else
        Debug.Print "Control array with " & Count & " elements"
    End If
End Sub

 

[JohnYingling]

bjd4jc

If a "control" is being passed then control.count will always fail.
Use Index. It will fail if control is not a member of a control array.
Private Function IsInControlArray(MyCtl As Control) as boolean
Dim lngIndex As Long
On Error Resume Next
lngIndex = MyCtl.Index
if Err.Number <> 0 then lngIndex = -1
On error goto 0
IsInControlArray = (lngIndex >= 0)
End Sub

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[StewartJ]

Thanks, guys. I prefer not to use the error functionality like this (just because its inelegant!) but I guess it's the only way here.

 

[CCLINT]

Nothing wrong with using it that way....