'We assume that the GdViewer1 control has been properly integrated
'and some PDF document is loaded and displayed as well.
'Here we make use of the RegionSelectedByUser event.
Sub GdViewer1_RegionSelectedByUser(ByVal RegionID As Integer)
Dim page As Integer = GdViewer1.GetRegionPage(RegionID)
'Converting pixels to PDF points.
Dim left As Integer = GdViewer1.GetRegionLeftPixels(RegionID) * 0.75
Dim top As Integer = GdViewer1.GetRegionTopPixels(RegionID) * 0.75
Dim width As Integer = GdViewer1.GetRegionWidthPixels(RegionID) * 0.75
Dim height As Integer = GdViewer1.GetRegionHeightPixels(RegionID) * 0.75
Using oPDF As GdPicturePDF = New GdPicturePDF()
If oPDF.LoadFromFile(GdViewer1.GetLastPath(), False) = GdPictureStatus.OK Then
oPDF.SetMeasurementUnit(PdfMeasurementUnit.PdfMeasurementUnitPoint)
oPDF.SetOrigin(PdfOrigin.PdfOriginTopLeft)
'Drawing a rectangle on the document's page according to the selected rectangle in the GdViewer1 control.
If (oPDF.SelectPage(page) = GdPictureStatus.OK) AndAlso
(oPDF.SetFillAlpha(150) = GdPictureStatus.OK) AndAlso
(oPDF.SetFillColor(0, 191, 255) = GdPictureStatus.OK) AndAlso
(oPDF.DrawRectangle(left, top, width, height, True, False) = GdPictureStatus.OK) Then
If oPDF.SaveToFile("test_region.pdf") = GdPictureStatus.OK Then
MessageBox.Show("The file has been saved successfully.", "GdViewer.GetRegionHeightPixels")
Else
MessageBox.Show("The file can't be saved. Status: " + oPDF.GetStat().ToString(), "GdViewer.GetRegionHeightPixels")
End If
Else
MessageBox.Show("The graphics operations have failed. Status: " + oPDF.GetStat().ToString(), "GdViewer.GetRegionHeightPixels")
End If
Else
MessageBox.Show("The file can't be loaded. Status: " + oPDF.GetStat().ToString(), "GdViewer.GetRegionHeightPixels")
End If
End Using
End Sub
//We assume that the GdViewer1 control has been properly integrated
//and some PDF document is loaded and displayed as well.
//Here we make use of the RegionSelectedByUser event.
void GdViewer1_RegionSelectedByUser(int RegionID)
{
int page = GdViewer1.GetRegionPage(RegionID);
//Converting pixels to PDF points.
int left = (int)(GdViewer1.GetRegionLeftPixels(RegionID) * 0.75);
int top = (int)(GdViewer1.GetRegionTopPixels(RegionID) * 0.75);
int width = (int)(GdViewer1.GetRegionWidthPixels(RegionID) * 0.75);
int height = (int)(GdViewer1.GetRegionHeightPixels(RegionID) * 0.75);
using (GdPicturePDF oPDF = new GdPicturePDF())
{
if (oPDF.LoadFromFile(GdViewer1.GetLastPath(), false) == GdPictureStatus.OK)
{
oPDF.SetMeasurementUnit(PdfMeasurementUnit.PdfMeasurementUnitPoint);
oPDF.SetOrigin(PdfOrigin.PdfOriginTopLeft);
//Drawing a rectangle on the document's page according to the selected rectangle in the GdViewer1 control.
if ((oPDF.SelectPage(page) == GdPictureStatus.OK) &&
(oPDF.SetFillAlpha(150) == GdPictureStatus.OK) &&
(oPDF.SetFillColor(0, 191, 255) == GdPictureStatus.OK) &&
(oPDF.DrawRectangle(left, top, width, height, true, false) == GdPictureStatus.OK))
{
if (oPDF.SaveToFile("test_region.pdf") == GdPictureStatus.OK)
MessageBox.Show("The file has been saved successfully.", "GdViewer.GetRegionHeightPixels");
else
MessageBox.Show("The file can't be saved. Status: " + oPDF.GetStat().ToString(), "GdViewer.GetRegionHeightPixels");
}
else
MessageBox.Show("The graphics operations have failed. Status: " + oPDF.GetStat().ToString(), "GdViewer.GetRegionHeightPixels");
}
else
MessageBox.Show("The file can't be loaded. Status: " + oPDF.GetStat().ToString(), "GdViewer.GetRegionHeightPixels");
}
}