dcsimg
Login | Register   
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Jul 23, 1999

WEBINAR:

On-Demand

Application Security Testing: An Integral Part of DevOps


Q&D Zoom Using Forms 2.0 Designer

How would you like to be able to make a form automatically resize and reposition all its controls and fonts whenever you resize the form? How would you like to do that using only two lines of executable code and no third-party controls? It's easy, using one of VB5's little-explored features: the Forms 2.0 Designer.

To place a Forms 2.0 Designer in your project, open the Components window (hit Control T; select Components from the Project menu; or right-click on the toolbox and select Components). Click on the Designers tab.

A few caveats: You can only use the Forms 2.0 control set-it appears in its own toolbox when you're in the designer-and ActiveX controls. Only the Forms 2.0 controls scale their fonts. You can't use control arrays in a Forms 2.0 Designer. And you're not allowed to distribute the Forms 2.0 engine, so users need to have Office or Internet Explorer installed on their machines.

Here's all you need to do:

 
Option Explicit
Private w As Long

Private Sub UserForm_Initialize()
	w = Me.Width
End Sub

Private Sub UserForm_Resize()
	Me.Zoom = (Me.Width / w) * 100
End Sub
Ron Schwarz
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date