Providing Zoom In and Zoom Out Facility

by Bhuwan Chand Joshi (69 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 21^st July 2001
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Providing Zoom In and Zoom Out Facility



'Zoom In and Zoom Out Facility:

'Open a standard exe form

'Place a Wang Image Edit Control over the form

'Put two command buttons over the form with caption Zoom In and Zoom Out

'Type the code given below

Private sub Form_Load()

ImgEdit1.Image="Path of the any BMP file"

ImgEdit1.Display

End Sub

Private Sub ZoomIn_Click()

ImgEdit1.Zoom=500

End Sub

Private Sub ZoomOut_Click()

ImgEdit1.Zoom=100

End Sub

' Run the application. Clicking on Zoom In button Zoom the Image to 500% and Clicking on Zoom Out button make the Image normal means to 100%.

Download this snippet Add to My Saved Code

Providing Zoom In and Zoom Out Facility Comments

No comments have been posted about Providing Zoom In and Zoom Out Facility. Why not be the first to post a comment about Providing Zoom In and Zoom Out Facility.

Providing Zoom In and Zoom Out Facility

Providing Zoom In and Zoom Out Facility Comments

Post your comment

Difficulty