VB实例Word格式文档下载.docx
《VB实例Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《VB实例Word格式文档下载.docx（23页珍藏版）》请在冰豆网上搜索。
初始化程序
PrivateSubForm_Load（）
MediaPlayer1.Visible=False
cmdPlay.BackColor=vbRed
cmdPause.BackColor=vbRed
cmdContinue.BackColor=vbRed
cmdStop.BackColor=vbRed
cmdNext.BackColor=vbRed
cmdContinue.Enabled=False
cmdPause.Enabled=False
cmdStop.Enabled=False
Text1.Text="
本播放器支持各种音乐格式。
谢谢使用。
土人。
"
Text1.BackColor=vbBlack
Text1.ForeColor=vbYellow
EndSub
播放
PrivateSubcmdPlay_Click（）
Text1.SetFocus
OnErrorGoTohandler
WithCommonDialog1
.Flags=cdlOFNAllowMultiselect
.InitDir=App.Path
.Filter="
MidiFiles（*.mid）|*.mid|MP3Files（*.mp3）|*.mp3|WaveFilse（*.wav）|*.wav|（*.m3u）|*.m3u"
.FileName="
.ShowOpen
EndWith
MediaPlayer1.FileName=CommonDialog1.FileName
MediaPlayer1.Play
现在正在播放：
&
CommonDialog1.FileName
cmdPlay.Enabled=False
cmdPause.Enabled=True
cmdStop.Enabled=True
ExitSub
handler:
MsgBox"
未选择媒体文件。
vbOKOnly,"
错误信息"
暂停播放
PrivateSubcmdPause_Click（）
MediaPlayer1.Pause
cmdContinue.Enabled=True
继续播放
PrivateSubcmdContinue_Click（）
播放下一曲
PrivateSubcmdNext_Click（）
OnErrorGoToNextErr'
播放非m3u文件时只能播放单曲，故设置出错处理
MediaPlayer1.Next
NextErr:
现在正在播放单曲，没有一下曲。
出错信息"
停止播放
PrivateSubcmdStop_Click（）
MediaPlayer1.Stop
cmdPlay.Enabled=True
怎么样？
代码不算多，一个自己的MP3播放器就做成了！
这个MP3播放器只占用具2％的资源，播放质量并不见得比Winamp差，是不是很诱人？
说明：
1.*.m3u文件应该是大家所认识的，就是Winamp之类的播放器的播放文件列表，我们完全可以用记事本编辑它（打开一个此类的文件看看，没什么神秘的）。
2.以上程序在VB6.0，Win98第二版下调试通过。
我是用WindowsMediaPlayer1作为播放器做的
窗体上建立一个FileListBox一个WindowsMediaPlayer和一个Timer控件在复制以下代码运行即可
歌曲数量AsLong
Dim歌曲文件夹路径AsString
Dim当前播放AsLong
歌曲文件夹路径="
C:
\Users\hu\Desktop"
'
歌曲文件夹目录
File1=歌曲文件夹路径
File1.Pattern="
*.mp3"
文件过滤器
File1.Visible=False
歌曲数量=File1.ListCount
If歌曲数量=0Then
未发现可以播放的音频文件!
vbExclamation,"
End
Else
WindowsMediaPlayer1.URL=歌曲文件夹路径&
"
\"
File1.List（当前播放）
当前播放=当前播放+1
Timer1.Interval=1
Timer1.Enabled=True
EndIf
PrivateSubTimer1_Timer（）
IfWindowsMediaPlayer1.playState=wmppsStoppedThen
If当前播放=歌曲数量-1Then
当前播放=0
用VB制作一个简单的MP3播放器
用vb做一个简单的mp3播放器
利用API函数[mciSendString]可以轻松实现MP3音乐文件的播放。
下面这段程序实现了MP3播放的大部分常规操作，对其稍加修改，做一个100KB大小的MP3播放器轻而易举
启动VB程序，在窗体上放置6个命令按钮，三个标签，一个公用对话框、一个进度条、一个状态栏和一个计时器，窗本的布置请参考附图
按钮"
OpenMP3File"
是用来打开对话框选择MP3文件，其他5个按钮分别为Play（播放）、Pause（暂停）、Stopplay（停止播放）、Back（向后跳跃）、Prew（向前跳跃）。
Label1用来表示歌曲当前时间；
label2放在时度条的最左边，Caption属性为"
00：
00"
；
lable3放在时度条的右边，用来表示歌曲总长。
下面就可以编写代码了。
首先在窗体的"
通用声明"
部分声明函数
PrivateDeclareFunctionmciSendStringLib"
winmm.dll"
Alias"
mciSendStringA"
（ByvallpstrCommandAsString,ByVallpstrRetumStringAsString,ByValuReturnLengthAslong,ByValhwndCallbackaslong）Aslong
DimmfnAsString
下面就是各个对象的代码了：
PrivateSubForm_load（）
mfn="
play.Enabled=False
pause.Enabled=False
Stopplay.Enabled=False
back.Enabled=False
prew.Enabled=False
Timer1.Enabled=False
Timer1.Interval=500
PrivateSubopen_Click（）
OnErrorGotoerr
.CancelError=True
.Filter="
音乐文件|*.mp3;
*.wav;
*.mid"
.Flags=cdlOFNNoChangeDirAndcdlOFNPathMustExist
.Action=1
stopplay_Click'
停止按钮同时可以设备初始化
mfn=.FileName'
这个程序中文件名一定不能带空格
Form1.Caption=.FileName
play.Enabled=True
play_Click
err:
PrivateSubplay_Click（）
OnErrorResumeNext
DimtAsLong
t=mciSendString（"
open"
+mfn,0&
0,0）'
Open后边的空格一定不能丢
DimretAsString*128
status"
+mfn+"
length"
ret,128,0）
显示歌曲总长
ret=Left（ret,8）
Ifret<
>
Then
ProgressBar1.Min=0
ProgressBar1.Max=Val（ret）
Label3.Caption=gettime（Val（ret））
pause.Enabled=True
stopplay.Enabled=True
back.Enabled=True
prew.Enabled=True
+mfn+"
mode"
得到设备的当前状态，是播放还是暂停等等
StatusBar1.Panels
（1）.text=ret
在状态栏显示播放状态
play"
form"
+Str（ProgressBar1.Value）,0&
0,0）
开始播放
Timer1.Enabled=True
PrivateSubpause_Click（）
t%=mciSendString（"
pause"
+mfn
升级会员 