by Sven Maes (1 Submission)
Category: VB function enhancement
Compatability: Visual Basic 5.0
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: (2 Votes)
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)
Download Resizer Reupload (11 KB)