adding controls in collection

Hi,

I have this resiz code for moving and resizing controls on a form. What I'm trying to do is to use initially the tag property of each control to gather its size, position, etc... and then call up a resizer function by passing each control to it. How do I reference each control to pass it to this function:

VB Code:

Private Sub Form_Resize()
 
    Dim Ctl As Control
 
    Set Ctl = Frame1
    Call Resizer(Ctl) 'but this passes the caption to the resizer function. Maybe I could use a collection as I have dozens of controls and could just loop them through. Thanks.
 
End Sub

ok, first, you don't really need to use the tag porperty because when you pass the reference to a control to your function, you will also get all those information since your functin will have access to all of the control's properties... not just the caption.

To reference all the control to your function, just use a for each loop on the control collection of the form,

VB Code:

dim Ctl as Control
 
for each Ctl in form1.controls
 
    resizer(Ctl)
 
next

then, in your resizer function, use the .move method of the control to move and resize it like you want

VB Code:

private function Resizer(Ctl as control)
 
    Ctl.move x,y,width,height
 
end function

Hopes this will help you.

- Valkan

Thanks. And to add a list of controls to a collection I would do this:

[Highlight=VB]

Dim col As New Collection

Set Ctrl = Command6
col.Add Ctrl

Correct? This way I can access all properties for those controls that are in the collection.. Thanks.

Mike.

If you want to use your own collection you can also just do something like col.add command6 to add a reference to the control. And yes, you will have access to all the properties of the referenced control.

- Valkan

Many thanks Valkan.

Now I have another problem: when I use control arrays, the collection does not get populated with all the items from the array, rather only the first one does get in the collection:

VB Code:

For n = 0 To 24
        Frame001(n).Tag = Frame001(n).Left & " " & Frame001(n).Top & " " & Frame001(n).Width & " " & Frame001(n).Height & " " & Frame001(n).FontSize
        Set ctrl = Frame001(n)
        col.Add ctrl
    Next

I get 24 instances of the first control in the array. How can I fix this?

Thanks a mil, again.

*bump*

The frames are on 5 tabs and there are 5 SSTabs in all. So you have 5 tabs on each of the 5 SSTab. Hence the upper number of 24 in the for loop. All frames are located exactly at the same place on each SSTab and individual tabs.

When I iterate all the items in the collection with a debug.print statement this is what I get:

Frame001/4680 360 2775 5295 9.75
Frame001/-70320 360 2775 5295 9.75
Frame001/-70320 360 2775 5295 9.75
Frame001/-70320 360 2775 5295 9.75
Frame001/-70320 360 2775 5295 9.75
Frame001/4680 360 2775 5295 9.75
Frame001/-70320 360 2775 5295 9.75
Frame001/-70320 360 2775 5295 9.75
Frame001/-70320 360 2775 5295 9.75
Frame001/-70320 360 2775 5295 9.75
Frame001/4680 360 2775 5295 9.75
Frame001/-70320 360 2775 5295 9.75
Frame001/-70320 360 2775 5295 9.75
Frame001/-70320 360 2775 5295 9.75
Frame001/-70320 360 2775 5295 9.75
Frame001/4680 360 2775 5295 9.75
Frame001/-70320 360 2775 5295 9.75
Frame001/-70320 360 2775 5295 9.75
Frame001/-70320 360 2775 5295 9.75
Frame001/-70320 360 2775 5295 9.75
Frame001/4680 360 2775 5295 9.75
Frame001/-70320 360 2775 5295 9.75
Frame001/-70320 360 2775 5295 9.75
Frame001/-70320 360 2775 5295 9.75
Frame001/-70320 360 2775 5295 9.75

As you can see when the index hits a tab that is located as the first tab on each SSTab, the Left position is returned correctly. But then as we move down into subsequent tabs the Left property thows up some incorrect number when it should rerally be the same as all frames are at the same location on all tabs.. Would anyone know what is going on. Looks like it might be to do with the visibility of each frame, ie the visible property of each first frame on each SSTab. Thanks to anyone able to help.

hum... i'm not really sure what can cause this. I've tried adding ellement from a control collection to my own collection in a loop and it seemed to work. Could you post your project so I could take a look at your code?

- Valkan

Here goes. I only posted the part of the code that concerns the resize bit.

I tried hardcoding the left property of the frames only but the controls you see such as the maber button or the text boxes disappear completely from view. It is the most extraordinary thing.

VB Code:

For n = 0 To 24
        Frame001(n).Left = 190
        Frame001(n).Tag = Frame001(n).Left & " " & Frame001(n).Top & " " & Frame001(n).Width & " " & Frame001(n).Height & " " & Frame001(n).FontSize
        'Debug.Print Frame001(n).Tag
        'ReDim Preserve col(n + 2)
        'Set col(n + 1) = Frame001(n)
        Set ctrl = Frame001(n)
        col.Add ctrl
    Next

Many thanks.

maber, read: amber

ok, if i got it right, you're using 1 collection for each type of control in your project so you can resize them properly according to what type of control they are. However, this could be done a lot simpler with less coding and less unecessery collection. Since you seem to use all controls in your form, it would be easier to use the form's control collection and then using the TypeName function to find the type of control. It could be something like this:

VB Code:

Private Sub Form_Resize()
 
dim ctrl as control
 
    for each ctrl in form1.controls 'Change form1 to the name of your form
        Resizer(Ctrl)
 
    next ctrl
 
end sub
 
private sub Resizer(Ctrl as control)
 
    Select case TypeName(ctrl)
 
        Case "PictureBox":
        
            'Your code to resize PictureBox
 
        case "SSTab":
 
            'etc...
 
    End Select
 
end sub

Also, you don't need to use the .Tag property. In the Resizer function, just use 'Ctrl.left, Ctrl.width etc...'

- Valkan

Here is a thread you should look at. It solves the resize problem without using tags.

Yes, but I believe i need to use initial values in the code that i have as using the current values of a given control causes the controls to go haywire when resized.

Also, the problem persists, as the amber dot and greyish text boxes disappear.

Will play with yout code further.