用VB编写的Mp3播放器源代码.doc

1、Public Class Form1 Dim soundname As String() Dim i As Integer Dim j, l As Boolean Dim k As Integer Dim filename As String 取歌曲的名字 Dim path As String() Dim s, m As Integer Dim luj As String Dim count As Integer 用来声明选择歌曲的数目 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventAr

2、gs) Handles MyBase.Load i = 0 j = False l = False Label2.Text = 歌曲名： Label3.Text = 歌曲演唱者： Label4.Text = 歌曲描述： Label5.Text = 歌曲类型： Label6.Text = 歌曲大小： End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click selectsound() End Sub Private Sub

3、TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll Me.AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If Timer1.Enabled = Fal

4、se Then Timer1.Enabled = True Else Timer1.Enabled = False End If If i = 0 Then Me.AxWindowsMediaPlayer1.Ctlcontrols.pause() i = 1 Button3.Text = 继续 Exit Sub End If If i = 1 Then Me.AxWindowsMediaPlayer1.Ctlcontrols.play() Button3.Text = 暂停 i = 0 Exit Sub End If End Sub Private Sub Timer1_Tick(ByVal

5、sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim string1, ss, sss As String string1 = ListBox1.SelectedItem.ToString.Substring(ListBox1.SelectedItem.ToString.LastIndexOf() + 1) filename = string1.Substring(0, string1.LastIndexOf(.) luj = ListBox1.SelectedItem.ToString.Su

6、bstring(0, ListBox1.SelectedItem.ToString.LastIndexOf(.) + .lrc ss = Me.AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString Me.Label1.Text = ss If Dir(luj) Nothing Then Dim fr As System.IO.StreamReader = New System.IO.StreamReader(luj, System.Text.Encoding.Default) sss = fr.ReadLine 我们读取的第一行歌词 W

7、hile (sss ) If (sss.LastIndexOf(ss) -1) Then 时间匹配了歌词中的时间 Me.TextBox1.Text = sss.Substring(sss.LastIndexOf() + 1) Form2.TextBox1.Text = Me.TextBox1.Text End If sss = fr.ReadLine End While Else TextBox1.Text = Not Find! 请从网上下载歌词！ Form2.TextBox1.Text = Not Find! 请从网上下载歌词！ End If Label1.Text = 当前进度: + M

8、e.AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString End Sub Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll Me.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = Me.HScrollBar1.Value / 1000 * Me.AxWindow

9、sMediaPlayer1.currentMedia.duration End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Me.AxWindowsMediaPlayer1.Ctlcontrols.fastForward() End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As Syste

10、m.EventArgs) Handles ListBox1.SelectedIndexChanged Me.AxWindowsMediaPlayer1.URL = ListBox1.Items(ListBox1.SelectedIndex) Me.AxWindowsMediaPlayer1.Ctlcontrols.play() Label2.Text = 歌曲名： + Me.AxWindowsMediaPlayer1.currentMedia.getItemInfo(Title) Label3.Text = 歌曲演唱者： + Me.AxWindowsMediaPlayer1.currentMe

11、dia.getItemInfo(Author) Label4.Text = 歌曲描述： + Me.AxWindowsMediaPlayer1.currentMedia.getItemInfo(Description) Label5.Text = 歌曲类型： + Me.AxWindowsMediaPlayer1.currentMedia.getItemInfo(FileType) Label6.Text = 歌曲大小： + Me.AxWindowsMediaPlayer1.currentMedia.getItemInfo(FileSize) Timer1.Start() End Sub Priv

12、ate Sub playsound() Timer1.Stop() TrackBar1.Value = Me.AxWindowsMediaPlayer1.settings.volume If j = False Then Me.AxWindowsMediaPlayer1.URL = ListBox1.Items(ListBox1.SelectedIndex) ElseIf j = True Then k = (ListBox1.SelectedIndex + 1) Mod soundname.Length Me.AxWindowsMediaPlayer1.URL = ListBox1.Item

13、s(k) j = False End If ListBox1.SelectedIndex = k Me.AxWindowsMediaPlayer1.Ctlcontrols.play() Label2.Text = 歌曲名： + Me.AxWindowsMediaPlayer1.currentMedia.getItemInfo(Title) Label3.Text = 歌曲演唱者： + Me.AxWindowsMediaPlayer1.currentMedia.getItemInfo(Author) Label4.Text = 歌曲描述： + Me.AxWindowsMediaPlayer1.c

14、urrentMedia.getItemInfo(Description) Label5.Text = 歌曲类型： + Me.AxWindowsMediaPlayer1.currentMedia.getItemInfo(FileType) Label6.Text = 歌曲大小： + Me.AxWindowsMediaPlayer1.currentMedia.getItemInfo(FileSize) Timer1.Start() End Sub Private Sub selectsound() Dim open As New OpenFileDialog Dim i As Integer Wi

15、th open .Filter = 所有mp3文件(*.mp3)|*.mp3|所有wma文件(*.wma)|*.wma .Multiselect = True .Title = 请选择歌曲 End With If (open.ShowDialog = Windows.Forms.DialogResult.OK) Then soundname = open.FileNames For i = 0 To soundname.GetUpperBound(0) ListBox1.Items.Add(soundname(i) Next ListBox1.SelectedIndex = 0 End If

16、End Sub Private Sub AxWindowsMediaPlayer1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWindowsMediaPlayer1.Enter If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsMediaEnded Then j = True Timer2.Start() End If End Sub Private Sub Timer2_Tick(ByVal sender As

17、 System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick playsound() Timer2.Stop() End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Timer1.Stop() If ListBox1.SelectedIndex = 0 Then Me.AxWindowsMediaPlayer1.URL = ListBox1.Item

18、s(soundname.Length - 1) ListBox1.SelectedIndex = (soundname.Length - 1) Else Me.AxWindowsMediaPlayer1.URL = ListBox1.Items(ListBox1.SelectedIndex Mod soundname.Length) - 1) ListBox1.SelectedIndex = (ListBox1.SelectedIndex Mod soundname.Length) - 1 End If Me.AxWindowsMediaPlayer1.Ctlcontrols.play() Label2.Text = 歌曲名： + Me.AxWindowsMediaPlayer1.currentMedia.getItemInfo(Title) Label3.Text = 歌曲演唱者： + Me.AxWindowsMediaPlayer1.currentMedia.getItemInfo(Author) Label4.Text = 歌曲描述： + Me.AxWindowsMediaPlayer1.currentMedia.getItemInfo(Description) Label5.Text = 歌曲类型： + Me.Ax