'We assume that the GdViewer1 control has been properly integrated
'and your document has been properly displayed as well.
Dim count As Integer = GdViewer1.IPTCCount()
If GdViewer1.GetStat() = GdPictureStatus.OK Then
Dim message As String = "IPTC Tags count: " + count + vbCrLf
Dim tagID As IPTCTags = IPTCTags.IPTCTagUnknown
Dim tagValue As String = ""
For i As Integer = 1 To count
tagID = GdViewer1.IPTCGetID(i)
If GdViewer1.GetStat() = GdPictureStatus.OK Then
tagValue = GdViewer1.TagGetValueString(i)
End If
If GdViewer1.GetStat() = GdPictureStatus.OK Then
message = message + vbCrLf + tagID + ": " + tagValue
Else
message = message + vbCrLf + "Tag nr." + i + " Status: " + GdViewer1.GetStat().ToString()
End If
Next
MessageBox.Show(message, "GdViewer.IPTCCount")
Else
MessageBox.Show("The number of IPTC tags can't be found. Status: " + GdViewer1.GetStat().ToString(), "GdViewer.IPTCCount")
End If
//We assume that the GdViewer1 control has been properly integrated
//and your document has been properly displayed as well.
int count = GdViewer1.IPTCCount();
if (GdViewer1.GetStat() == GdPictureStatus.OK)
{
string message = "IPTC Tags count: " + count + "\n";
IPTCTags tagID = IPTCTags.IPTCTagUnknown;
string tagValue = "";
for (int i = 1; i <= count; i++)
{
tagID = GdViewer1.IPTCGetID(i);
if (GdViewer1.GetStat() == GdPictureStatus.OK)
tagValue = GdViewer1.TagGetValueString(i);
if (GdViewer1.GetStat() == GdPictureStatus.OK)
message = message + "\n" + tagID + ": " + tagValue;
else
message = message + "\nTag nr." + i + " Status: " + GdViewer1.GetStat().ToString();
}
MessageBox.Show(message, "GdViewer.IPTCCount");
}
else
MessageBox.Show("The number of IPTC tags can't be found. Status: " + GdViewer1.GetStat().ToString(), "GdViewer.IPTCCount");