Click here to Skip to main content
Click here to Skip to main content
Go to top

Using this component user can maxmize or minimize window size

, 18 Sep 2006
Rate this:
Please Sign up or sign in to vote.
Use Zoom Feature in VB 6.0 Form

Introduction

This component is used for zoom in or zoom out feature. Normally no zoom control / component shiped with visual studio 6.0. In this article you will find application as well as component. Feel free to communicate with me. Please share your views with me for imroving the functionality of this control/component.

First Screen with 80%

After zooming 120%

1. Zip file is selt expalnatory.

2. Add reference of dll.

3. Place code like

Dim objZommer As New Zoom
Private Sub Combo1_Click()
objZommer.Zoom Combo1, Me
End Sub

Private Sub Form_Load()

objZommer.LoadData Combo1
objZommer.LastIndex = 2
End Sub

 

Thanks

 

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

Share

About the Author

Rajesh Jha
Technical Lead
India India
No Biography provided

Comments and Discussions

 
GeneralMy vote of 5 Pinmembermanoj kumar choubey20-Feb-12 21:58 
GeneralMy vote of 5 PinmemberHeaven20203-Nov-10 8:57 
GeneralSource Code Pinmemberjmh55518-Oct-06 7:53 
GeneralERROR FOUND [modified] PinmemberSolanki Rajat22-Sep-06 0:19 
GeneralRe: ERROR FOUND PinmemberRajesh Jha22-Sep-06 0:56 
Generalmore details Pinmemberpablleaf20-Sep-06 7:53 
GeneralRe: more details PinmemberRajesh Jha20-Sep-06 19:21 
GeneralRe: more details PinmemberRajesh Jha20-Sep-06 20:07 
How to Use This Component
 
· Click on Run
· Copy Zoomer.dll into C: drive
· Register this component using Regsvr32.exe C:\ Zoomer.dll
· Open VB 6.0
· Create “Standard.Exe”
· Click on Project Menu -> Add MDI Form
· Drag and Drop Picture Box control on MDI Form
· Drag and Drop Combo Box control on MDI Form
· Make all child Form properties MDIChild = True
· Click On Project Menu - >Click on Reference
· Select Windows Zoomer 1.0
· Place this code
 
Option Explicit ‘Forcing Variable declaration
 
Dim objZommer As New Zoom ‘ create object of zoom component
 

‘ On click of Combo box use follwing code
objZommer.Zoom Combo1, Me ‘ We change the size of form
OR
 
Private Sub Combo1_Click()
objZommer.Zoom Combo1, Me
End Sub
 
On Form Load of MDI
 
objZommer.LoadData Combo1 ‘Filling combobox with appropriate value
objZommer.LastIndex = 2 ‘Seting default index e.g 100%
 
OR
 
Private Sub MDIForm_Load()
objZommer.LoadData Combo1
objZommer.LastIndex = 2
End Sub
 
Smile | :) Comment will be appreciable…………

 
~RJha

GeneralWe need a screenshot PinmemberPascal Ganaye18-Sep-06 5:37 
GeneralRe: We need a screenshot PinmemberRajesh Jha20-Sep-06 19:23 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Mobile
Web03 | 2.8.140916.1 | Last Updated 18 Sep 2006
Article Copyright 2006 by Rajesh Jha
Everything else Copyright © CodeProject, 1999-2014
Terms of Service
Layout: fixed | fluid