VB如何读取修改MP3的ID3V1，ID3V2信息
VB如何读取修改MP3的ID3V1，ID3V2信息呢
[解决办法]
请自行参考：
http://www.codesky.net/article/doc/200311/2003112885999545.htm
另外，请参考这个例子：http://www.vbaccelerator.com/home/VB/Code/vbMedia/Reading_and_Writing_MP3_ID3v1_and_v2_Tags/MP3_ID3_Tags_Code.zip
但是这个代码有一点问题，需要修改。
[解决办法]
读取的
song type:
Blues;ClassicRock;Country;Dance;Disco;Funk;Grunge;Hip-Hop;Jazz;Metal;NewAge;Oldies;Other;Pop;R&B;Rap;Reggae;Rock;Techno;Industrial;Alternative;Ska;DeathMetal;Pranks;Soundtrack;Euro-Techno;Ambient;Trip-Hop;Vocal;Jazz+Funk;Fusion;Trance;Classical;Instrumental;Acid;House;Game;SoundClip;Gospel;Noise;AlternRock;Bass;Soul;Punk;Space;Meditative;InstrumentalPop;InstrumentalRock;Ethnic;Gothic;Darkwave;Techno-Industrial;Electronic;Pop-Folk;Eurodance;Dream;SouthernRock;Comedy;Cult;Gangsta;Top40;ChristianRap;Pop/Funk;Jungle;NativeAmerican;Cabaret;NewWave;Psychadelic;Rave;Showtunes;Trailer;Lo-Fi;Tribal;AcidPunk;AcidJazz;Polka;Retro;Musical;Rock&Roll;HardRock;Folk;Folk-Rock;NationalFolk;Swing;FastFusion;Bebob;Latin;Revival;Celtic;Bluegrass;Avantgarde;GothicRock;ProgessiveRock;PsychedelicRock;SymphonicRock;SlowRock;BigBand;Chorus;EasyListening;Acoustic;Humour;Speech;Chanson;Opera;ChamberMusic;Sonata;Symphony;BootyBass;Primus;PornGroove;Satire;SlowJam;Club;Tango;Samba;Folklore;Ballad;PowerBallad;RhythmicSoul;Freestyle;Duet;PunkRock;DrumSolo;Acapella;Euro-House;DanceHall;Goa;Drum&Bass;Club-House;Hardcore;Terror;Indie;BritPop;Negerpunk;PolskPunk;Beat;ChristianGangstaRap;HeavyMetal;BlackMetal;Crossover;ContemporaryChristian;ChristianRock;Merengue;Salsa;TrashMetal;Anime;JPop;Synthpop
Dim fp As Integer
Dim mp3tag As ID3V1
Dim SongType() As String
SongType = Split(LoadResString(1001), "; ")
fp = FreeFile
Open App.Path & "\4.mp3 " For Binary As #fp
Seek #fp, FileLen(App.Path & "\4.mp3 ") - 127
Get #fp, , mp3tag
Close #fp
MsgBox RTrim(mp3tag.Title) & vbCrLf & RTrim(mp3tag.Artist) & vbCrLf & RTrim(mp3tag.Album) & _
vbCrLf & RTrim(mp3tag.Year) & vbCrLf & RTrim(mp3tag.Comment)
