by Bhuwan Chand Joshi (69 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 21st July 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Providing Zoom In Facility
Zoom In and Zoom Out Facility:
'Open a standard exe form
'Place a Wang Image Edit Control over the form
'Type the code given below
Private sub Form_Load()
ImgEdit1.Image="Path of the any BMP file"
ImgEdit1.Display
End Sub
Private Sub ImgEdit1_SelectionRectDrawn(ByVal Left as Long, ByVal Top as Long, ByVal Width as Long, ByVal Height as Long)
On Error GoTo Err_Handler
ImgEdit1.ZoomToSelection
Err_Handler:
Err.Clear
End Sub
' Run the application. Select the Image area using Mouse and Drag it. You see the dragged area will be zoomed.