【VB开源代码栏目提醒】:网学会员,鉴于大家对VB开源代码十分关注,论文会员在此为大家搜集整理了“用VB编写的Mp3播放器源代码 - 培训资料”一文,供大家参考学习!
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_LoadByVal sender As System.Object ByVal e As System.EventArgs Handles MyBase.Load i 0 j False l False Label2.Text 歌曲名 Label3.Text 歌曲演唱者 Label4.Text 歌曲描述 Label5.Text 歌曲类型 Label6.Text 歌曲大小 End Sub Private Sub Button6_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button6.Click selectsound End Sub Private Sub TrackBar1_ScrollByVal sender As System.Object ByVal e As System.EventArgs Handles TrackBar1.Scroll Me.AxWindowsMediaPlayer1.settings.volume TrackBar1.Value End Sub Private Sub Button3_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button3.Click If Timer1.Enabled False 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_TickByVal sender As System.Object ByVal e As System.EventArgs Handles Timer1.Tick Dim string1 ss sss As String string1 ListBox1.SelectedItem.ToString.SubstringListBox1.SelectedItem.ToString.LastIndexOf 1 filename string1.Substring0 string1.LastIndexOf. luj ListBox1.SelectedItem.ToString.Substring0 ListBox1.SelectedItem.ToString.LastIndexOf. .lrc ss Me.AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString Me.Label1.Text ss If Dirluj Nothing Then Dim fr As System.IO.StreamReader New System.IO.StreamReaderluj System.Text.Encoding.Default sss fr.ReadLine 我们读取的第一行歌词 While sss If sss.LastIndexOfss -1 Then 时间匹配了歌词中的时间 Me.TextBox1.Text sss.Substringsss.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 当前进度: Me.AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString End Sub Private Sub HScrollBar1_ScrollByVal sender As System.Object ByVal e As System.Windows.Forms.ScrollEventArgs Handles HScrollBar1.Scroll Me.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition Me.HScrollBar1.Value / 1000 Me.AxWindowsMediaPlayer1.currentMedia.duration End Sub Private Sub Button7_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button7.Click Me.AxWindowsMediaPlayer1.Ctlcontrols.fastForward End Sub Private Sub ListBox1_SelectedIndexChangedByVal sender As System.Object ByVal e As System.EventArgs Handles ListBox1.SelectedIndexChanged Me.AxWindowsMediaPlayer1.URL ListBox1.ItemsListBox1.SelectedIndex Me.AxWindowsMediaPlayer1.Ctlcontrols.play Label2.Text 歌曲名 Me.AxWindowsMediaPlayer1.currentMedia.getItemInfoTitle Label3.Text 歌曲演唱者 Me.AxWindowsMediaPlayer1.currentMedia.getItemInfoAuthor Label4.Text 歌曲描述 Me.AxWindowsMediaPlayer1.currentMedia.getItemInfoDescription Label5.Text 歌曲类型 Me.AxWindowsMediaPlayer1.currentMedia.getItemInfoFileType Label6.Text 歌曲大小 Me.AxWindowsMediaPlayer1.currentMedia.getItemInfoFileSize Timer1.Start End Sub Private Sub playsound Timer1.Stop TrackBar1.Value Me.AxWindowsMediaPlayer1.settings.volume If j False Then Me.AxWindowsMediaPlayer1.URL ListBox1.ItemsListBox1.SelectedIndex ElseIf j True Then k ListBox1.SelectedIndex 1 Mod soundname.Length Me.AxWindowsMediaPlayer1.URL ListBox1.Itemsk j False End If ListBox1.SelectedIndex k Me.AxWindowsMediaPlayer1.Ctlcontrols.play Label2.Text 歌曲名 Me.AxWindowsMediaPlayer1.currentMedia.getItemInfoTitle Label3.Text 歌曲演唱者