• Home
 · 
• Graphics
 · 
• Providing Zoom In Facility

Providing Zoom In Facility

Providing Zoom In Facility

Rate Providing Zoom In 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

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