GdPicture.NET.14
GdPicture14 Namespace / GdViewer Class / IPTCCount Method
Example





IPTCCount Method (GdViewer)
Returns the total number of IPTC tags embedded within the document displayed in the GdViewer control. These tags, also known as document's metadata, allows for additional information to be stored within a document.
Syntax
'Declaration
 
Public Function IPTCCount() As Integer
 

Return Value

The total number of IPTC tags embedded within the displayed document. The GdViewer.GetStat method can be subsequently used to determine if this method has been successful.
Remarks
It is recommend to use the GdViewer.GetStat method to identify the specific reason for the method's failure, if any.

Be aware that this method only handles IPTC tags.

Example
How to find out the number of IPTC tags embedded in the displayed document.
'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
See Also