Public Shared ReadOnly IptcSeparator As Integer

Dim value As Integer
 
value = RasterCommentMetadata.IptcSeparator

public static readonly int IptcSeparator

public:
static readonly int IptcSeparator

Public Sub CommentsSizeAndTypeExample()
   Console.WriteLine("IptcSeparator : {0}", RasterCommentMetadata.IptcSeparator)

   Console.WriteLine("Data type sizes:")
   Console.WriteLine("------------------")
   Dim dataTypes As Array = System.Enum.GetValues(GetType(RasterCommentMetadataDataType))
   For Each dataType As RasterCommentMetadataDataType In dataTypes
      Dim size As Integer = RasterCommentMetadata.GetDataTypeSize(dataType)
      Console.WriteLine("{0}: {1} bytes", dataType, size)
   Next dataType

   Console.WriteLine("Comment data types:")
   Console.WriteLine("------------------")
   Dim types As Array = System.Enum.GetValues(GetType(RasterCommentMetadataType))
   For Each type As RasterCommentMetadataType In types
      Dim dataType As RasterCommentMetadataDataType = RasterCommentMetadata.GetDataType(type)
      Console.WriteLine("{0}: {1}", type, dataType)
   Next type
End Sub

public void CommentsSizeAndTypeExample()
{
   Console.WriteLine("IptcSeparator : {0}", RasterCommentMetadata.IptcSeparator);

   Console.WriteLine("Data type sizes:");
   Console.WriteLine("------------------");
   Array dataTypes = Enum.GetValues(typeof(RasterCommentMetadataDataType));
   foreach(RasterCommentMetadataDataType dataType in dataTypes)
   {
      int size = RasterCommentMetadata.GetDataTypeSize(dataType);
      Console.WriteLine("{0}: {1} bytes", dataType, size);
   }

   Console.WriteLine("Comment data types:");
   Console.WriteLine("------------------");
   Array types = Enum.GetValues(typeof(RasterCommentMetadataType));
   foreach(RasterCommentMetadataType type in types)
   {
      RasterCommentMetadataDataType dataType = RasterCommentMetadata.GetDataType(type);
      Console.WriteLine("{0}: {1}", type, dataType);
   }
}

private static T[] GetEnumValues<T>()
{
   Type enumType = typeof(T);
   if (!enumType.IsEnum)
   {
      throw new ArgumentException("Not an enum type: " + enumType.Name);
   }
   List<T> values = new List<T>();
   foreach (System.Reflection.FieldInfo field in enumType.GetFields())
   {
      if (field.IsLiteral)
         values.Add((T)field.GetValue(enumType));
   }
   return values.ToArray();
}
public void CommentsSizeAndTypeExample()
{
   Debug.WriteLine("IptcSeparator : {0}", RasterCommentMetadata.IptcSeparator);

   Debug.WriteLine("Data type sizes:");
   Debug.WriteLine("------------------");
   RasterCommentMetadataType[] dataTypes = GetEnumValues<RasterCommentMetadataType>();
   foreach(RasterCommentMetadataDataType dataType in dataTypes)
   {
      int size = RasterCommentMetadata.GetDataTypeSize(dataType);
      Debug.WriteLine("{0}: {1} bytes", dataType, size);
   }

   Debug.WriteLine("Comment data types:");
   Debug.WriteLine("------------------");
   RasterCommentMetadataType[] types = GetEnumValues<RasterCommentMetadataType>();
   foreach (RasterCommentMetadataType type in types)
   {
      RasterCommentMetadataDataType dataType = RasterCommentMetadata.GetDataType(type);
      Debug.WriteLine("{0}: {1}", type, dataType);
   }
}

Private Shared Function GetEnumValues(Of T)() As T()
   Dim enumType As Type = GetType(T)
   If (Not enumType.IsEnum) Then
      Throw New ArgumentException("Not an enum type: " & enumType.Name)
   End If
   Dim values As List(Of T) = New List(Of T)()
   For Each field As System.Reflection.FieldInfo In enumType.GetFields()
      If field.IsLiteral Then
         values.Add(CType(field.GetValue(enumType), T))
      End If
   Next field
   Return values.ToArray()
End Function
Public Sub CommentsSizeAndTypeExample()
   Debug.WriteLine("IptcSeparator : {0}", RasterCommentMetadata.IptcSeparator)

   Debug.WriteLine("Data type sizes:")
   Debug.WriteLine("------------------")
   Dim dataTypes As RasterCommentMetadataType() = GetEnumValues(Of RasterCommentMetadataType)()
   For Each dataType As RasterCommentMetadataDataType In dataTypes
      Dim size As Integer = RasterCommentMetadata.GetDataTypeSize(dataType)
      Debug.WriteLine("{0}: {1} bytes", dataType, size)
   Next dataType

   Debug.WriteLine("Comment data types:")
   Debug.WriteLine("------------------")
   Dim types As RasterCommentMetadataType() = GetEnumValues(Of RasterCommentMetadataType)()
   For Each type As RasterCommentMetadataType In types
      Dim dataType As RasterCommentMetadataDataType = RasterCommentMetadata.GetDataType(type)
      Debug.WriteLine("{0}: {1}", type, dataType)
   Next type
End Sub