These functions are used to get the attributes of any image format native to VB.Net. Some of attributes are held as binary flags - each bit represents the absence/presence of a specific attribute.

Public Function GetImage_Size(filename as string) As Size
 Dim bmp as New Bitmap(filename)
 Return bmp.Size
End Function
'
Public Function GetImage_HorizontalResolution(filename as string) As Single
 Dim bmp as New Bitmap(filename)
 Return bmp.HorizontalResolution
End Function
'
Public Function GetImage_VerticalResolution(filename as string) As Single
 Dim bmp as New Bitmap(filename)
 Return bmp.VerticalResolution
End Function
'
Public Function Image_Caching(filename as string) As Boolean
 Dim bmp As New Bitmap(filename)
 Return ((bmp.Flags And 131072) > 0)
End Function
'
Public Function Image_IsReadOnly(filename as string) As Boolean
 Dim bmp As New Bitmap(filename)
 Return ((bmp.Flags And 65536) > 0)
End Function
'
Public Function Image_HasRealPixelSize(filename as string) As Boolean
 Dim bmp As New Bitmap(filename)
 Return ((bmp.Flags And 8192) > 0)
End Function
'
Public Function Image_HasRealDPI(filename as string) As Boolean
 Dim bmp As New Bitmap(filename)
 Return ((bmp.Flags And 4096) > 0)
End Function
'
Public Function Image_ColorSpaceYCCK(filename as string) As Boolean
 Dim bmp As New Bitmap(filename)
 Return ((bmp.Flags And 256) > 0)
End Function
'
Public Function Image_ColorSpaceYCBCR(filename as string) As Boolean
 Dim bmp As New Bitmap(filename)
 Return ((bmp.Flags And 128) > 0)
End Function
'
Public Function Image_ColorSpaceGay(filename as string) As Boolean
 Dim bmp As New Bitmap(filename)
 Return ((bmp.Flags And 64) > 0)
End Function
'

 Dim bmp As New Bitmap(filename)
 Return ((bmp.Flags And 32) > 0)
End Function
'
Public Function Image_ColorSpaceRGB(filename as string) As Boolean
 Dim bmp As New Bitmap(filename)
 Return ((bmp.Flags And 16) > 0)
End Function
'
Public Function Image_PartiallyScalable(filename as string) As Boolean
 Dim bmp As New Bitmap(filename)
 Return ((bmp.Flags And 8) > 0)
End Function
'
Public Function Image_HasTranslucent(filename as string) As Boolean
 Dim bmp As New Bitmap(filename)
 Return ((bmp.Flags And 4) > 0)
End Function
'
Public Function Image_HasAlpha(filename as string) As Boolean
 Dim bmp As New Bitmap(filename)
 Return ((bmp.Flags And 2) > 0)
End Function
'
Public Function Image_Scalable(filename as string) As Boolean
 Dim bmp As New Bitmap(filename)
 Return ((bmp.Flags And 1) > 0)
End Function
'
  

DigitalDan.co.uk