Taglib#是一个为.NET开发的元数据读取类库，为一个开源项目，可以在他们的官网上获取windows版本的源码包或者编译好的类库：http://download.banshee.fm/taglib-sharp/
可以使用下面的一个小小的类读取mp3音频文件中的ID3v2标签，类模块输出的字段包括最常用的专辑名称、专辑作者、歌曲标题和内嵌于mp3文件中的专辑封面。
内嵌的专辑封面的读取参阅这篇文章：http://social.msdn.microsoft.com/Forums/pl-PL/vbgeneral/thread/b540120b-1904-44ad-9448-9695482aebdf
Private Class ID3v2
Dim MP3 As TagLib.File= Nothing
Public lbAlbum, lbArtist, lbTitle As String
Public AlbumArt As Image = Nothing
Private Function GetString(ByVal str As String(), ByVal strDelimeter As String) As String
Dim value As String= Nothing
For i As Integer = 0 To str.Length - 1
value += str(i)
Ifi = str.Length - 1 Then Exit For
value += strDelimeter
Next
Return value
End Function
Sub New(ByVal lpFile As String)
MP3 = TagLib.File.Create(lpFile)
If MP3.Tag.Album = Nothing OrElse MP3.Tag.Album.Trim = "" Then
lbAlbum = "Unknown"
Else
lbAlbum = MP3.Tag.Album
End If
If MP3.Tag.Title = Nothing OrElse MP3.Tag.Title.Trim = "" Then
'如果歌曲标题字段为空，则默认使用文件名作Á为歌曲的标题
lbTitle = GetFileName(lpFile)
Else
lbTitle = MP3.Tag.Title
EndIf
lbArtist = GetString(MP3.Tag.AlbumArtists, ",")
If lbArtist = Nothing OrElse lbArtist.Trim = "" Then lbArtist = "Unknown"
If Not MP3.Tag.Pictures.Length >= 1 Then
AlbumArt = My.Resources.rhythmbox
Return
End If
'Esle
Dim bin = DirectCast(MP3.Tag.Pictures(0).Data.Data, Byte())
AlbumArt = Image.FromStream(New MemoryStream(bin)).GetThumbnailImage(115, 115, Nothing, System.IntPtr.Zero)
End Sub
Private Function GetFileName(ByVal path As String) As String
Dim Tmp As String() = Split(path, "")
'找到文件拓展名，并将其去除
For i As Integer = Tmp(Tmp.Length - 1).Length To 1 Step -1
IfMid(Tmp(Tmp.Length - 1), i, 1) = "."Then ReturnMid(Tmp(Tmp.Length - 1), 1, i - 1).Trim
Next
'没有文件拓展名的，则直接返回文件名
Return Tmp(Tmp.Length - 1).Trim
End Function
End Class
嗯，效果吗，真的很不错
不过，似乎TagLib-Sharp对utf8编码的中文不是非常的兼容，读取的时候很容易出现乱码，对于中文字符串的处理似乎需要而外的解码处理，需要在日后查阅资料来解决这个问题，郁闷纠结中。。。