《用VB编写的Mp3播放器源代码汇总》由会员分享,可在线阅读,更多相关《用VB编写的Mp3播放器源代码汇总(10页珍藏版)》请在金锄头文库上搜索。
1、Public Class FormlDim soundname As String(Dim i As IntegerDim j, l As BooleanDim k As IntegerDim filename As String取歌曲的名字Dim path As String(Dim s, m As IntegerDim luj As StringDim count As Integer用来声明选择歌曲的数目Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs Handles MyB
2、ase.Loadi = 0j = Falsel = FalseLabel2.Text =歌曲名:Label3.Text =歌曲演唱者:Label4.Text =歌曲描述:Label5.Text =歌曲类型:End SubPrivate Sub Button6_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs Handles Button6.Clickselectsound(End SubPrivate Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal
3、e AsSystem.EventArgs Handles TrackBar1.ScrollMe.AxWindowsMediaPlayer1.settings.volume = TrackBar1.ValueEnd SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs Handles Button3.ClickIf Timer1.Enabled = False ThenTimer1.Enabled = TrueElseTimer1.Enabled = FalseEnd IfIf
4、 i = 0 ThenButton3.Text =继续Exit SubEnd IfIf i = 1 ThenMe.AxWindowsMediaPlaye1Ctlcontrols.play(Button3.Text =暂停i = 0Exit SubEnd IfEnd SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs Handles Timer1.TickDim string1, ss, sss As Stringstring1 =ListBox1.SelectedItem.T
5、oString.Substring(ListBox1.SelectedItem.ToString.LastInd exOf( + 1filename = string1.Substring(0, string1.LastIndexOf(.luj = ListBox1.SelectedItem.ToString.Substring(0,ListBox1.SelectedItem.ToString.LastIndexOf(. + .lrCss = Me.AxWindowsMediaPlayeU.Ctlcontrols.currentPositionStringMe.Label1.Text = ss
6、If Dir(luj Nothing ThenDim fr As System.IO.StreamReader = New System.IO.StreamReader(luj,System.Text.Encoding.Defaultsss = fr.ReadLine我们读取的第一行歌词While (sss If (sss.LastIndexOf(ss -1 Then时间匹配了歌词中的时间Me.TextBox1.Text = sss.Substring(sss.LastIndexOf( + 1Form2.TextBox1.Text = Me.TextBox1.TextEnd Ifsss = f
7、r.ReadLineEnd WhileElseTextBox1.Text = Not Find!请从网上下载歌词!”Form2.TextBox1.Text = Not Find!请从网上下载歌词!End IfLabel1.Text =当前进度:+Me.AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString End SubPrivate Sub HScrollBaU_Scroll(ByVal sender As System.Object, ByVal e AsSystem.Windows.Forms.ScrollEventArgs Han
8、dles HScrollBar1.ScrollMe.AxWindowsMediaPlayeU.Ctlcontrols.currentPosition = Me.HScrollBar1.Value / 1000 * Me.AxWindowsMediaPlayelcurrentMedia.durationEnd SubPrivate Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs Handles Button7.ClickMe.AxWindowsMediaPlayer1.Ctlcontrols
9、.fastForward(End SubPrivate Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs Handles ListBoxl.SelectedlndexChangedMe.AxWindowsMediaPlayer1.URL = ListBox1.Items(ListBox1.SelectedIndexMe.AxWindowsMediaPlayer1.Ctlcontrols.play(Label2.Text =歌曲名:+Me.AxWindowsMed
10、iaPlayer1.currentMedia.getItemInfo(TitleLabel3.Text =歌曲演唱者:+Me.AxWindowsMediaPlayer1.currentMedia.getItemInfo(Author Label4.Text =歌曲 描述:+Label5.Text =歌曲类型:+Me.AxWindowsMediaPlaye1currentMedia.getItemInfo(FileType Label6.Text =歌 曲大小:”+ Me.AxWindowsMediaPlayeU.currentMedia.getItemInfo(FileSizeTimer1.S
11、tart(End SubPrivate Sub playsound(Timer1.Stop(TrackBar1.Value = Me.AxWindowsMediaPlayer1.settings.volumeIf j = False ThenMe.AxWindowsMediaPlayer1.URL = ListBox1.Items(ListBox1.SelectedIndexElseIf j = True Thenk = (ListBox1.SelectedIndex + 1 Mod soundname.LengthMe.AxWindowsMediaPlayer1.URL = ListBox1
12、.Items(kj = FalseEnd IfListBox1.SelectedIndex = kMe.AxWindowsMediaPlayer1.Ctlcontrols.play(Label2.Text =歌曲名:+Me.AxWindowsMediaPlayer1.currentMedia.getItemInfo(TitleLabel3.Text =歌曲演唱者:+Me.AxWindowsMediaPlaye1currentMedia.getItemInfo(Author Label4.Text =歌曲 描述:+Me.AxWindowsMediaPlaye1currentMedia.getIt
13、emInfo(DescriptionLabel5.Text =歌曲类型:+Me.AxWindowsMediaPlaye1currentMedia.getItemInfo(FileType Label6.Text =歌 曲大小:”+ Me.AxWindowsMediaPlaye1currentMedia.getItemInfo(FileSizeTimer1.Start(End SubPrivate Sub selectsound(Dim open As New OpenFileDialogDim i As IntegerWith open.Filter =所有 mp3 文件(*mp3|*.mp3
14、|所有 wma 文件(*wma|*wma.Multiselect = True.Title =请选择歌曲End WithIf (open.ShowDialog = Windows.Forms.DialogResult.OK Thensoundname = open.FileNamesFor i = 0 To soundname.GetUpperBound(0ListBox1.Items.Add(soundname(iNextListBoxl.SelectedIndex = 0End IfEnd SubPrivate Sub AxWindowsMediaPlayeU_Enter(ByVal se
15、nder As System.Object, ByVal e AsSystem.EventArgs Handles AxWindowsMediaPlayer1.EnterIf AxWindowsMediaPlayer1.playState =WMPLib.WMPPlayState.wmppsMediaEnded Thenj = TrueTimer2.Start(End IfEnd SubPrivate Sub Timer2_Tick(ByVal sender As System.Object, ByVal e AsSystem.EventArgs Handles Timer2.Tickplaysound(Timer2.Stop(End SubPrivate Sub Button5_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs Handles Butto