有些照片保存了拍摄时使用的的相机品牌、型号以及GPS、光圈、快门、白平衡、ISO、焦距、日期时间等信息，通常称为Exif信息，保存在Jpg文件头部，使用Bitmap类的
PropertyItems属性很容易获得这些信息。
PropertyItems是PropertyItem对象数组，这些对象分别对应于此图像中存储的每个属性项。
PropertyItem有4个属性：
Id：某个图像信息的 ID。
Value： 某个图像信息的值。
Len：Value 属性的长度（以字节为单位）。
Type：整数，它定义了Value 属性包含的数据类型。具体的数据类型如下（来自MSDN）：
PropertyItem有4个属性：
Id：某个图像信息的 ID。
Value： 某个图像信息的值。
Len：Value 属性的长度（以字节为单位）。
Type：整数，它定义了Value 属性包含的数据类型。具体的数据类型如下（来自MSDN）：
我在查看其它资料的时候，发现除了MSDN指出的外，还有：
8 'SSHORT
9 'SLONG
11 'FLOAT
12 'DOUBLE
9 'SLONG
11 'FLOAT
12 'DOUBLE
但我暂时还没有遇到过。
了解了以上知识，下面看看具体使用的代码。
设计时窗体：
当按钮按下时候：
Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click
Dim ofd As New OpenFileDialog()
ofd.Filter = "JPG文件|*.jpg"
ofd.FileName = ""
If ofd.ShowDialog() <> DialogResult.OK Then
Exit Sub
End If
Dim filename As String
filename = ofd.FileName
Label1.Text = filename
TextBox1.Text = getPicInfo(filename)
End SubgetPicInfo的代码：
Private Function getPicInfo(ByVal picFullPath As String) As String
Dim bmp As New Bitmap(picFullPath)
Dim strPro As String = ""
For Each pro As Imaging.PropertyItem In bmp.PropertyItems
Dim strTmp As String = ""
Select Case pro.Type
Case 2 '空终止 ASCII 字符串
strTmp = System.Text.Encoding.ASCII.GetString(pro.Value).Replace(Chr(0),"")
Case Else
strTmp = "长度:" & pro.Len
End Select
strPro &= pro.Id.ToString & "----" & pro.Len & "----" & pro.Type & "----" & strTmp & ControlChars.CrLf
Next
Return strPro
End Function
运行情况：
由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。
学习更多vb.net知识，请参看vb.net 教程 目录