Dim caption As String = "Example: ResetFormFieldDefaultCheckedState"
Dim gdpicturePDF As GdPicturePDF = New GdPicturePDF()
If gdpicturePDF.LoadFromFile("forms.pdf", False) = GdPictureStatus.OK Then
Dim count As Integer = gdpicturePDF.GetFormFieldsCount()
If gdpicturePDF.GetStat() = GdPictureStatus.OK Then
Dim message As String = "This document contains " + count.ToString() + " form fields." + vbCrLf
Dim formID As Integer = 0, childCount As Integer = 0, radioButtons As Integer = 0
Dim type As PdfFormFieldType = PdfFormFieldType.PdfFormFieldTypeUnknown
Dim defChecked As Boolean = False, isChanged As Boolean = False
For i As Integer = 0 To count - 1
formID = gdpicturePDF.GetFormFieldId(i)
If gdpicturePDF.GetStat() = GdPictureStatus.OK Then
type = gdpicturePDF.GetFormFieldType(formID)
If gdpicturePDF.GetStat() = GdPictureStatus.OK Then
If type = PdfFormFieldType.PdfFormFieldTypeRadioButton Then
radioButtons += 1
childCount = gdpicturePDF.GetFormFieldChildCount(formID)
If gdpicturePDF.GetStat() = GdPictureStatus.OK Then
For j As Integer = 0 To childCount - 1
defChecked = gdpicturePDF.GetFormFieldDefaultChecked(formID, j)
If gdpicturePDF.GetStat() = GdPictureStatus.OK Then
If defChecked Then
'Removing the current default selection for the given radio button completely.
If gdpicturePDF.ResetFormFieldDefaultCheckedState(formID) = GdPictureStatus.OK Then
message = message + (i + 1).ToString() + ". rb group has been changed successfully." + vbCrLf
isChanged = True
'Removing the current selection for the given radio button completely.
If gdpicturePDF.ResetFormFieldCheckedState(formID) <> GdPictureStatus.OK Then
MessageBox.Show(message + "Something has failed in unchecking buttons with the status: " + gdpicturePDF.GetStat().ToString(), caption)
End If
Else
MessageBox.Show(message + "Something has failed in changing default settings with the status: " + gdpicturePDF.GetStat().ToString(), caption)
End If
'Only one radio button can be checked by default at a time.
Exit For
End If
Else
MessageBox.Show(message + " The GetFormFieldDefaultChecked() method failed with the status: " + gdpicturePDF.GetStat().ToString(), caption)
End If
Next
Else
MessageBox.Show(message + "The GetFormFieldChildCount() method has failed with the status: " + gdpicturePDF.GetStat().ToString(), caption)
Exit For
End If
End If
Else
MessageBox.Show("The GetFormFieldType() method has failed with the status: " + gdpicturePDF.GetStat().ToString(), caption)
Exit For
End If
Else
MessageBox.Show("The GetFormFieldId() method has failed with the status: " + gdpicturePDF.GetStat().ToString(), caption)
Exit For
End If
Next
If gdpicturePDF.GetStat() = GdPictureStatus.OK Then
If radioButtons = 0 Then
message = message + "This document does not contain radio buttons." + vbCrLf
ElseIf Not isChanged Then
message = message + "This document has not been changed."
Else
If gdpicturePDF.SaveToFile("forms_updated.pdf") = GdPictureStatus.OK Then
message = message + "The example has been followed successfully and the file has been saved."
Else
message = message + "The example has been followed successfully, but the file can't be saved. Status: " + gdpicturePDF.GetStat().ToString()
End If
End If
MessageBox.Show(message, caption)
End If
Else
MessageBox.Show("The GetFormFieldsCount() method has failed with the status: " + gdpicturePDF.GetStat().ToString(), caption)
End If
Else
MessageBox.Show("The file can't be loaded.", caption)
End If
gdpicturePDF.Dispose()
string caption = "Example: ResetFormFieldDefaultCheckedState";
GdPicturePDF gdpicturePDF = new GdPicturePDF();
if (gdpicturePDF.LoadFromFile("forms.pdf", false) == GdPictureStatus.OK)
{
int count = gdpicturePDF.GetFormFieldsCount();
if (gdpicturePDF.GetStat() == GdPictureStatus.OK)
{
string message = "This document contains " + count.ToString() + " form fields.\n";
int formID = 0, childCount = 0, radioButtons = 0;
PdfFormFieldType type = PdfFormFieldType.PdfFormFieldTypeUnknown;
bool defChecked = false, isChanged = false;
for (int i = 0; i < count; i++)
{
formID = gdpicturePDF.GetFormFieldId(i);
if (gdpicturePDF.GetStat() == GdPictureStatus.OK)
{
type = gdpicturePDF.GetFormFieldType(formID);
if (gdpicturePDF.GetStat() == GdPictureStatus.OK)
{
if (type == PdfFormFieldType.PdfFormFieldTypeRadioButton)
{
radioButtons++;
childCount = gdpicturePDF.GetFormFieldChildCount(formID);
if (gdpicturePDF.GetStat() == GdPictureStatus.OK)
{
for (int j = 0; j < childCount; j++)
{
defChecked = gdpicturePDF.GetFormFieldDefaultChecked(formID, j);
if (gdpicturePDF.GetStat() == GdPictureStatus.OK)
{
if (defChecked)
{
//Removing the current default selection for the given radio button completely.
if (gdpicturePDF.ResetFormFieldDefaultCheckedState(formID) == GdPictureStatus.OK)
{
message = message + (i + 1).ToString() + ". rb group has been changed successfully.\n";
isChanged = true;
//Removing the current selection for the given radio button completely.
if (gdpicturePDF.ResetFormFieldCheckedState(formID) != GdPictureStatus.OK)
MessageBox.Show(message + "Something has failed in unchecking buttons with the status: " + gdpicturePDF.GetStat().ToString(), caption);
}
else
MessageBox.Show(message + "Something has failed in changing default settings with the status: " + gdpicturePDF.GetStat().ToString(), caption);
break; //Only one radio button can be checked by default at a time.
}
}
else
MessageBox.Show(message + " The GetFormFieldDefaultChecked() method failed with the status: " + gdpicturePDF.GetStat().ToString(), caption);
}
}
else
{
MessageBox.Show(message + "The GetFormFieldChildCount() method has failed with the status: " + gdpicturePDF.GetStat().ToString(), caption);
break;
}
}
}
else
{
MessageBox.Show("The GetFormFieldType() method has failed with the status: " + gdpicturePDF.GetStat().ToString(), caption);
break;
}
}
else
{
MessageBox.Show("The GetFormFieldId() method has failed with the status: " + gdpicturePDF.GetStat().ToString(), caption);
break;
}
}
if (gdpicturePDF.GetStat() == GdPictureStatus.OK)
{
if (radioButtons == 0) message = message + "This document does not contain radio buttons.\n";
else if (!isChanged) message = message + "This document has not been changed.";
else
{
if (gdpicturePDF.SaveToFile("forms_updated.pdf") == GdPictureStatus.OK)
message = message + "The example has been followed successfully and the file has been saved.";
else
message = message + "The example has been followed successfully, but the file can't be saved. Status: " + gdpicturePDF.GetStat().ToString();
}
MessageBox.Show(message, caption);
}
}
else
MessageBox.Show("The GetFormFieldsCount() method has failed with the status: " + gdpicturePDF.GetStat().ToString(), caption);
}
else
MessageBox.Show("The file can't be loaded.", caption);
gdpicturePDF.Dispose();
