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

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.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_Click ByVal sender As System.Object, ByVal e As System.EventArgs Handles Button6.Click selectsound End Sub Private Sub 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 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_Tick ByVal 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.Substring 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 我们读取的第一行歌词 While 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