Resizer Reupload
This class resizes ALL the controls on a form in just two lines of code. No API, no OCX, just a simple class, very easy to use. It tests if a control is resizable, and when ok, the control (and optionally the font) will be resized everytime the form is resized. I have noticed that the clsresizer class has to be compiled if a dll is not found...
usage :
make a new instance of the class
dim r as new resizer
in form_load :
r.ResizeFonts = True (optional, this line starts the font resizing)
set r.frmToSize = me 'Required
r.AddItemNotToResize "command1" (optional : do not resize command1)
...
end sub
in form_resize :
r.adjustSize 'resizes the controls (and the fonts if selected)
that's all!
optional : r.ResetForm(when dragging / dropping ) ...
-> Get the new sizes (does not resize a control (to return to original sizes use r.adjustsize instead)
(3(3 Vote))