Dim caption As String = "Example: InsertPage"
Dim gdpicturePDF As New GdPicturePDF()
If gdpicturePDF.LoadFromFile("test.pdf", False) = GdPictureStatus.OK Then
Dim count As Integer = gdpicturePDF.GetPageCount()
Dim status As GdPictureStatus = gdpicturePDF.GetStat()
If status = GdPictureStatus.OK Then
If count > 0 Then
status = gdpicturePDF.SelectPage(1)
If status = GdPictureStatus.OK Then
Dim pageHeight As Single = gdpicturePDF.GetPageHeight()
status = gdpicturePDF.GetStat()
If status = GdPictureStatus.OK Then
Dim pageWidth As Single = gdpicturePDF.GetPageWidth()
status = gdpicturePDF.GetStat()
If status = GdPictureStatus.OK Then
status = gdpicturePDF.InsertPage(pageWidth, pageHeight, 1)
If status = GdPictureStatus.OK Then
count = count + 1
Dim current As Integer = gdpicturePDF.GetCurrentPage()
status = gdpicturePDF.GetStat()
If status = GdPictureStatus.OK Then
MessageBox.Show("The page has been inserted successfully." + vbCrLf + "The currently selected page is page nr. " + current.ToString(), caption)
Else
MessageBox.Show("The page has been inserted successfully, but the GetCurrentPage() method has failed.")
End If
status = gdpicturePDF.InsertPage(pageWidth, pageHeight, count + 1)
If status = GdPictureStatus.OK Then
current = gdpicturePDF.GetCurrentPage()
status = gdpicturePDF.GetStat()
If status = GdPictureStatus.OK Then
MessageBox.Show("The page has been inserted successfully." + vbCrLf + "The currently selected page is page nr. " + current.ToString(), caption)
Else
MessageBox.Show("The page has been inserted successfully, but the GetCurrentPage() method has failed.")
End If
If gdpicturePDF.SaveToFile("test_InsertPage.pdf") = GdPictureStatus.OK Then
MessageBox.Show("The pages have been inserted successfully and the file has been saved.", caption)
Else
MessageBox.Show("The pages have been inserted successfully, but the file can't be saved.", caption)
End If
Else
MessageBox.Show("The InsertPage() method has failed with the status: " + status.ToString(), caption)
status = GdPictureStatus.OK
End If
Else
MessageBox.Show("The InsertPage() method has failed with the status: " + status.ToString(), caption)
status = GdPictureStatus.OK
End If
End If
End If
End If
Else
status = GdPictureStatus.InvalidParameter
End If
End If
If status <> GdPictureStatus.OK Then
MessageBox.Show("The example HAS NOT been followed successfully. The last error status is: " + status.ToString(), caption)
End If
Else
MessageBox.Show("The file can't be loaded.", caption)
End If
gdpicturePDF.Dispose()
string caption = "Example: InsertPage";
GdPicturePDF gdpicturePDF = new GdPicturePDF();
if (gdpicturePDF.LoadFromFile("test.pdf", false) == GdPictureStatus.OK)
{
int count = gdpicturePDF.GetPageCount();
GdPictureStatus status = gdpicturePDF.GetStat();
if (status == GdPictureStatus.OK)
{
if (count > 0)
{
status = gdpicturePDF.SelectPage(1);
if (status == GdPictureStatus.OK)
{
float pageHeight = gdpicturePDF.GetPageHeight();
status = gdpicturePDF.GetStat();
if (status == GdPictureStatus.OK)
{
float pageWidth = gdpicturePDF.GetPageWidth();
status = gdpicturePDF.GetStat();
if (status == GdPictureStatus.OK)
{
status = gdpicturePDF.InsertPage(pageWidth, pageHeight, 1);
if (status == GdPictureStatus.OK)
{
count = count + 1;
int current = gdpicturePDF.GetCurrentPage();
status = gdpicturePDF.GetStat();
if (status == GdPictureStatus.OK)
MessageBox.Show("The page has been inserted successfully.\nThe currently selected page is page nr. " + current.ToString(), caption);
else
MessageBox.Show("The page has been inserted successfully, but the GetCurrentPage() method has failed.");
status = gdpicturePDF.InsertPage(pageWidth, pageHeight, count + 1);
if (status == GdPictureStatus.OK)
{
current = gdpicturePDF.GetCurrentPage();
status = gdpicturePDF.GetStat();
if (status == GdPictureStatus.OK)
MessageBox.Show("The page has been inserted successfully.\nThe currently selected page is page nr. " + current.ToString(), caption);
else
MessageBox.Show("The page has been inserted successfully, but the GetCurrentPage() method has failed.");
if (gdpicturePDF.SaveToFile("test_InsertPage.pdf") == GdPictureStatus.OK)
MessageBox.Show("The pages have been inserted successfully and the file has been saved.", caption);
else
MessageBox.Show("The pages have been inserted successfully, but the file can't be saved.", caption);
}
else
{
MessageBox.Show("The InsertPage() method has failed with the status: " + status.ToString(), caption);
status = GdPictureStatus.OK;
}
}
else
{
MessageBox.Show("The InsertPage() method has failed with the status: " + status.ToString(), caption);
status = GdPictureStatus.OK;
}
}
}
}
}
else
status = GdPictureStatus.InvalidParameter;
}
if (status != GdPictureStatus.OK)
MessageBox.Show("The example HAS NOT been followed successfully. The last error status is: " + status.ToString(), caption);
}
else
MessageBox.Show("The file can't be loaded.", caption);
gdpicturePDF.Dispose();