版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
有些照片保存了拍摄时使用的的相机品牌、型号以及GPS、光圈、快门、白平衡、ISO、焦距、日期时间等信息，通常称为Exif信息，保存在Jpg文件头部，使用Bitmap类的PropertyItems属性很容易获得这些信息。
PropertyItems是PropertyItem对象数组，这些对象分别对应于此图像中存储的每个属性项。
PropertyItem有4个属性：
Id：某个图像信息的 ID。
Value：某个图像信息的值。
Len：Value 属性的长度（以字节为单位）。
Type：整数，它定义了Value 属性包含的数据类型。具体的数据类型如下（来自MSDN）：
我在查看其它资料的时候，发现除了MSDN指出的外，还有：
8 'SSHORT
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 Sub
getPicInfo的代码：
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教程目录
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
