Imports System.Drawing.Imaging
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class MainClass
public Shared Sub Main
Dim curImage As Image = Image.FromFile("yourfile.JPG")
Dim imgProperties As PropertyItem() = curImage.PropertyItems
Console.WriteLine(imgProperties.Length.ToString())
Dim i As Integer
For i = 0 To imgProperties.Length - 1
Console.WriteLine("Id :" + imgProperties(i).Id.ToString)
Console.WriteLine("Value:" + BitConverter.ToString(imgProperties(i).Value))
Next i
End Sub
End class
|