GetImageInformation Example for VB.NET

'LEADDICOM1 is a DICOM Dataset defined outside this method
Private Sub TestGetImageInformation()
   Dim msg As String
   LEADDICOM1.GetImageInformation(0)
   msg = "Compression: " & CStr(LEADDICOM1.ImageInfo.Compression) & Chr(13) & Chr(10)
   msg = msg & "Photometric: " & CStr(LEADDICOM1.ImageInfo.Photometric) & " - " & LEADDICOM1.ImageInfo.PhotometricString & Chr(13) & Chr(10)
   msg = msg & "Rows x Columns: " & CStr(LEADDICOM1.ImageInfo.Rows) & " x " & LEADDICOM1.ImageInfo.Columns & Chr(13) & Chr(10)
   msg = msg & "Bits Allocated: " & CStr(LEADDICOM1.ImageInfo.BitsAllocated) & Chr(13) & Chr(10)
   msg = msg & "Bits Stored: " & CStr(LEADDICOM1.ImageInfo.BitsStored) & Chr(13) & Chr(10)
   msg = msg & "High Bit: " & CStr(LEADDICOM1.ImageInfo.HighBit) & Chr(13) & Chr(10)
   msg = msg & "Pixel Representation: " & CStr(LEADDICOM1.ImageInfo.PixelRepresentation) & Chr(13) & Chr(10)
   msg = msg & "Planar Configuration: " & CStr(LEADDICOM1.ImageInfo.PlanarConfiguration) & Chr(13) & Chr(10)
   msg = msg & "ResolutionX: " & CStr(LEADDICOM1.ImageInfo.ResolutionX) & Chr(13) & Chr(10)
   msg = msg & "ResolutionY: " & CStr(LEADDICOM1.ImageInfo.ResolutionY) & Chr(13) & Chr(10)
   msg = msg & "SmallestImagePixelValue: " & CStr(LEADDICOM1.ImageInfo.SmallestImagePixelValue) & Chr(13) & Chr(10)
   msg = msg & "SmallestImagePixelValueFlag: " & LEADDICOM1.ImageInfo.SmallestImagePixelValueFlag & Chr(13) & Chr(10)
   msg = msg & "LargestImagePixelValue: " & CStr(LEADDICOM1.ImageInfo.LargestImagePixelValue) & Chr(13) & Chr(10)
   msg = msg & "LargestImagePixelValueFlag: " & LEADDICOM1.ImageInfo.LargestImagePixelValueFlag & Chr(13) & Chr(10)
   msg = msg & "RedEntries: " & CStr(LEADDICOM1.ImageInfo.RedEntries) & Chr(13) & Chr(10)
   msg = msg & "RedFirst: " & CStr(LEADDICOM1.ImageInfo.RedFirst) & Chr(13) & Chr(10)
   msg = msg & "RedBits: " & CStr(LEADDICOM1.ImageInfo.RedBits) & Chr(13) & Chr(10)
   msg = msg & "GreenEntries: " & CStr(LEADDICOM1.ImageInfo.GreenEntries) & Chr(13) & Chr(10)
   msg = msg & "GreenFirst: " & CStr(LEADDICOM1.ImageInfo.GreenFirst) & Chr(13) & Chr(10)
   msg = msg & "GreenBits: " & CStr(LEADDICOM1.ImageInfo.GreenBits) & Chr(13) & Chr(10)
   msg = msg & "BlueEntries: " & CStr(LEADDICOM1.ImageInfo.BlueEntries) & Chr(13) & Chr(10)
   msg = msg & "BlueFirst: " & CStr(LEADDICOM1.ImageInfo.BlueFirst) & Chr(13) & Chr(10)
   msg = msg & "BlueBits: " & CStr(LEADDICOM1.ImageInfo.BlueBits) & Chr(13) & Chr(10)
   msg = msg & "PaletteEntries: " & CStr(LEADDICOM1.ImageInfo.PaletteEntries) & Chr(13) & Chr(10)
   msg = msg & "PaletteFirst: " & CStr(LEADDICOM1.ImageInfo.PaletteFirst) & Chr(13) & Chr(10)
   msg = msg & "BitsPerPixel: " & CStr(LEADDICOM1.ImageInfo.BitsPerPixel) & Chr(13) & Chr(10)
   msg = msg & "Gray: " & LEADDICOM1.ImageInfo.Gray & Chr(13) & Chr(10)
   msg = msg & "Frames: " & CStr(LEADDICOM1.ImageInfo.Frames) & Chr(13) & Chr(10)

   MessageBox.Show(msg)

End Sub