zoomselection
Posted: Mon Feb 20, 2012 12:54 pm
Hello,
I want to use to zoomselection feature.
If an user doubleclick on the image a rectangle with mousepoint as centre should be zoomed.
But never the zoom appears on the selected recangle or the rectangle not created on the place the user has clicked.
Any suggestions?
best regards
Michael
I want to use to zoomselection feature.
If an user doubleclick on the image a rectangle with mousepoint as centre should be zoomed.
Code: Select all
Private Sub InteropUserControl_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles AnnotationViewer1.DoubleClick
Dim eMouse As MouseEventArgs
If AnnotationViewer1.SelectionMode = Vintasoft.Annotation.SelectionMode.AnnotationView Then
eMouse = DirectCast(e, MouseEventArgs)
If _zoomSelection Is Nothing Then
_zoomSelection = New ZoomSelection(_imageViewer)
End If
AnnotationViewer1.VisualTool = _zoomSelection
_mouseX = eMouse.X.ToString
_mouseY = eMouse.Y.ToString
_zoomSelection.Rectangle = New Rectangle(CInt(eMouse.X - 300), CInt(eMouse.Y - 200), 600, 400)
_zoomSelection.Zoom()
End If
End Sub
Any suggestions?
best regards
Michael