得到MP3中隐藏的信息

Synth Pop"


    把以上代码写到一个模块中（.Bas），然后在窗体上加入5个TextBox和1个ComboBox控件，其中5个TextBox控件分别用来显示一首Mp3文件的以下信息：歌手、年代、唱片、评论、标题，ComboBox控件用来显示歌曲的风格。再放一个Command控件，其标题为“显示信息”，在它的Click事件中加入以下代码：
            Private sub Command1_click()
            Dim mp3Tag as Mp3tag
            mp3tag = GetMp3Tag ("c:\Song.mp3")
            Text1.Text = mp3tag.Artist
            Text2.Text = mp3tag.Album
            Text3.Text = mp3tag.Title
            Text4.Text = mp3tag.Year
            Text5.Text = mp3tag.Comments
            Combo1.ListIndex = mp3tag.Genre
            End Sub
     在窗体的加载过程中加入如下代码：
            Private Sub Form_Load()
            Dim i As Integer,GenreArray() As String
            GenreArray = Split(sGenreMatrix, "

关键词：得到MP3中隐藏的信息