• Home
 · 
• Graphics
 · 
• Providing Zoom In and Zoom Out Facility

Providing Zoom In and Zoom Out Facility

Providing Zoom In and Zoom Out Facility

Rate Providing Zoom In and Zoom Out Facility

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'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%.