Imports Leadtools.WinForms
Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.ImageProcessing.Color
Imports Leadtools.Drawing
Public Sub RasterImageViewer_ZoomToRectangle(ByVal viewer As RasterImageViewer)
Dim rectSize As Integer = 200
Dim left As Integer = (viewer.ClientRectangle.Right - viewer.ClientRectangle.Left - rectSize) \ 2
Dim top As Integer = (viewer.ClientRectangle.Bottom - viewer.ClientRectangle.Top - rectSize) \ 2
Dim rcZoom As Rectangle = New Rectangle(left, top, rectSize, rectSize)
viewer.ZoomToRectangle(rcZoom)
End Sub
using Leadtools.WinForms;
using Leadtools;
using Leadtools.Codecs;
using Leadtools.ImageProcessing.Color;
using Leadtools.Drawing;
public void RasterImageViewer_ZoomToRectangle(RasterImageViewer viewer)
{
int rectSize = 200;
int left = (viewer.ClientRectangle.Right - viewer.ClientRectangle.Left - rectSize) / 2;
int top = (viewer.ClientRectangle.Bottom - viewer.ClientRectangle.Top - rectSize) / 2;
Rectangle rcZoom = new Rectangle(left, top, rectSize, rectSize);
viewer.ZoomToRectangle(rcZoom);
}