用VB编写的Mp3播放器源代码汇总.docx
《用VB编写的Mp3播放器源代码汇总.docx》由会员分享，可在线阅读，更多相关《用VB编写的Mp3播放器源代码汇总.docx（7页珍藏版）》请在冰豆网上搜索。
用VB编写的Mp3播放器源代码汇总
PublicClassForm1
DimsoundnameAsString（
DimiAsInteger
Dimj,lAsBoolean
DimkAsInteger
DimfilenameAsString'取歌曲的名字
DimpathAsString（
Dims,mAsInteger
DimlujAsString
DimcountAsInteger'用来声明选择歌曲的数目
PrivateSubForm1_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgsHandlesMyBase.Load
i=0
j=False
l=False
Label2.Text="歌曲名:
"
Label3.Text="歌曲演唱者:
"
Label4.Text="歌曲描述:
"
Label5.Text="歌曲类型:
"
Label6.Text="歌曲大小:
"
EndSub
PrivateSubButton6_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgsHandlesButton6.Click
selectsound（
EndSub
PrivateSubTrackBar1_Scroll（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgsHandlesTrackBar1.Scroll
Me.AxWindowsMediaPlayer1.settings.volume=TrackBar1.Value
EndSub
PrivateSubButton3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgsHandlesButton3.Click
IfTimer1.Enabled=FalseThen
Timer1.Enabled=True
Else
Timer1.Enabled=False
EndIf
Ifi=0Then
Me.AxWindowsMediaPlayer1.Ctlcontrols.pause（
i=1
Button3.Text="继续"
ExitSub
EndIf
Ifi=1Then
Me.AxWindowsMediaPlayer1.Ctlcontrols.play（
Button3.Text="暂停"
i=0
ExitSub
EndIf
EndSub
PrivateSubTimer1_Tick（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgsHandlesTimer1.Tick
Dimstring1,ss,sssAsString
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
IfDir（luj<>NothingThen
DimfrAsSystem.IO.StreamReader=NewSystem.IO.StreamReader（luj,
System.Text.Encoding.Default
sss=fr.ReadLine'我们读取的第一行歌词
While（sss<>""
If（sss.LastIndexOf（ss<>-1Then'时间匹配了歌词中的时间
Me.TextBox1.Text=sss.Substring（sss.LastIndexOf（"]"+1
Form2.TextBox1.Text=Me.TextBox1.Text
EndIf
sss=fr.ReadLine
EndWhile
Else
TextBox1.Text="NotFind!
请从网上下载歌词!
"
Form2.TextBox1.Text="NotFind!
请从网上下载歌词!
"
EndIf
Label1.Text="当前进度:
"+Me.AxWindowsMediaPlayer1.Ctlcontrols.currentPositionStringEndSub
PrivateSubHScrollBar1_Scroll（ByValsenderAsSystem.Object,ByValeAs
System.Windows.Forms.ScrollEventArgsHandlesHScrollBar1.Scroll
Me.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition=Me.HScrollBar1.Value/1000*Me.AxWindowsMediaPlayer1.currentMedia.duration
EndSub
PrivateSubButton7_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgsHandlesButton7.Click
Me.AxWindowsMediaPlayer1.Ctlcontrols.fastForward（
EndSub
PrivateSubListBox1_SelectedIndexChanged（ByValsenderAsSystem.Object,ByValeAs
System.EventArgsHandlesListBox1.SelectedIndexChanged
Me.AxWindowsMediaPlayer1.URL=ListBox1.Items（ListBox1.SelectedIndex
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.AxWindowsMediaPlayer1.currentMedia.getItemInfo（"FileType"Label6.Text="歌曲大小:
"+Me.AxWindowsMediaPlayer1.currentMedia.getItemInfo（"FileSize"Timer1.Start（
EndSub
PrivateSubplaysound（
Timer1.Stop（
TrackBar1.Value=Me.AxWindowsMediaPlayer1.settings.volume
Ifj=FalseThen
Me.AxWindowsMediaPlayer1.URL=ListBox1.Items（ListBox1.SelectedIndexElseIfj=TrueThen
k=（ListBox1.SelectedIndex+1Modsoundname.Length
Me.AxWindowsMediaPlayer1.URL=ListBox1.Items（k
j=False
EndIf
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.currentMedia.getItemInfo（"Description"
Label5.Text="歌曲类型:
"+Me.AxWindowsMediaPlayer1.currentMedia.getItemInfo（"FileType"Label6.Text="歌曲大小:
"+Me.AxWindowsMediaPlayer1.currentMedia.getItemInfo（"FileSize"Timer1.Start（
EndSub
PrivateSubselectsound（
DimopenAsNewOpenFileDialog
DimiAsInteger
Withopen
.Filter="所有mp3文件（*.mp3|*.mp3|所有wma文件（*.wma|*.wma"
.Multiselect=True
.Title="请选择歌曲"
EndWith
If（open.ShowDialog=Windows.Forms.DialogResult.OKThen
soundname=open.FileNames
Fori=0Tosoundname.GetUpperBound（0
ListBox1.Items.Add（soundname（i
Next
ListBox1.SelectedIndex=0
EndIf
EndSub
PrivateSubAxWindowsMediaPlayer1_Enter（ByValsenderAsSystem.Object,ByValeAs
System.EventArgsHandlesAxWindowsMediaPlayer1.Enter
IfAxWindowsMediaPlayer1.playState=WMPLib.WMPPlayState.wmppsMediaEndedThen
j=True
Timer2.Start（
EndIf
EndSub
PrivateSubTimer2_Tick（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgsHandlesTimer2.Tick
playsound（
Timer2.Stop（
EndSub
PrivateSubButton5_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgsHandlesButton5.Click
Timer1.Stop（
IfListBox1.SelectedIndex=0Then
Me.AxWindowsMediaPlayer1.URL=ListBox1.Items（soundname.Length-1
ListBox1.SelectedIndex=（soundname.Length-1
Else
Me.AxWindowsMediaPlayer1.URL=ListBox1.Items（（ListBox1.SelectedIndexModsoundname.Length-1
ListBox1.SelectedIndex=（ListBox1.SelectedIndexModsoundname.Length-1EndIf
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.AxWindowsMediaPlayer1.currentMedia.getItemInfo（"FileType"Label6.Text="歌曲大小:
"+Me.AxWindowsMediaPlayer1.currentMedia.getItemInfo（"FileSize"Timer1.Start（
EndSub
PrivateSubButton9_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgsHandlesButton9.Click
Form2.Show（
EndSub
EndClass
升级会员 