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.
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
'You keep creatures in cages and release them to fight? That's sick!'
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
'You keep creatures in cages and release them to fight? That's sick!'
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:
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:
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
'You keep creatures in cages and release them to fight? That's sick!'
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.
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
'You keep creatures in cages and release them to fight? That's sick!'
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.
Reply With Quote
2009 - 2016