VB实例Word格式文档下载.docx

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