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

1、初始化程序Private Sub Form_Load（）MediaPlayer1.Visible = FalsecmdPlay.BackColor = vbRedcmdPause.BackColor = vbRedcmdContinue.BackColor = vbRedcmdStop.BackColor = vbRedcmdNext.BackColor = vbRedcmdContinue.Enabled = FalsecmdPause.Enabled = FalsecmdStop.Enabled = FalseText1.Text = 本播放器支持各种音乐格式。谢谢使用。 土人。Text1

2、.BackColor = vbBlackText1.ForeColor = vbYellowEnd Sub播放Private Sub cmdPlay_Click（）Text1.SetFocusOn Error GoTo handlerWith CommonDialog1.Flags = cdlOFNAllowMultiselect.InitDir = App.Path.Filter = Midi Files（*.mid）|*.mid|MP3 Files（*.mp3）|*.mp3|Wave Filse（*.wav）|*.wav|（*.m3u）|*.m3u.FileName = .ShowOpen

3、End WithMediaPlayer1.FileName = CommonDialog1.FileNameMediaPlayer1.Play 现在正在播放： & CommonDialog1.FileNamecmdPlay.Enabled = FalsecmdPause.Enabled = TruecmdStop.Enabled = TrueExit Subhandler:MsgBox 未选择媒体文件。, vbOKOnly, 错误信息暂停播放Private Sub cmdPause_Click（）MediaPlayer1.PausecmdContinue.Enabled = True继续播放P

4、rivate Sub cmdContinue_Click（）播放下一曲Private Sub cmdNext_Click（）On Error GoTo NextErr 播放非m3u文件时只能播放单曲，故设置出错处理MediaPlayer1.NextNextErr:现在正在播放单曲，没有一下曲。出错信息停止播放Private Sub cmdStop_Click（）MediaPlayer1.StopcmdPlay.Enabled = True怎么样？代码不算多，一个自己的MP3播放器就做成了！这个MP3播放器只占用具2的资源，播放质量并不见得比Winamp差，是不是很诱人？说明：1.*.m3u文件

5、应该是大家所认识的，就是Winamp之类的播放器的播放文件列表，我们完全可以用记事本编辑它（打开一个此类的文件看看，没什么神秘的）。2.以上程序在VB6.0，Win98第二版下调试通过。我是用WindowsMediaPlayer1作为播放器做的 窗体上建立一个FileListBox 一个WindowsMediaPlayer 和 一个 Timer控件在复制以下代码运行即可歌曲数量 As LongDim 歌曲文件夹路径 As StringDim 当前播放 As Long歌曲文件夹路径 = C:UsershuDesktop 歌曲文件夹目录File1 = 歌曲文件夹路径File1.Pattern =

6、*.mp3文件过滤器File1.Visible = False歌曲数量 = File1.ListCountIf 歌曲数量 = 0 Then未发现可以播放的音频文件!, vbExclamation, EndElseWindowsMediaPlayer1.URL = 歌曲文件夹路径 & File1.List（当前播放）当前播放 = 当前播放 + 1Timer1.Interval = 1Timer1.Enabled = TrueEnd IfPrivate Sub Timer1_Timer（）If WindowsMediaPlayer1.playState = wmppsStopped ThenIf

7、当前播放 = 歌曲数量 - 1 Then当前播放 = 0用VB制作一个简单的MP3播放器用vb做一个简单的mp3播放器利用API函数mciSendString可以轻松实现MP3音乐文件的播放。下面这段程序实现了MP3播放的大部分常规操作，对其稍加修改，做一个100KB大小的MP3播放器轻而易举 启动VB程序，在窗体上放置6个命令按钮，三个标签，一个公用对话框、一个进度条、一个状态栏和一个计时器，窗本的布置请参考附图按钮Open MP3 File是用来打开对话框选择MP3文件，其他5个按钮分别为Play（播放）、Pause（暂停）、Stopplay（停止播放）、Back（向后跳跃）、Prew（向

8、前跳跃）。Label1用来表示歌曲当前时间；label2放在时度条的最左边，Caption属性为00：00；lable3放在时度条的右边，用来表示歌曲总长。下面就可以编写代码了。首先在窗体的通用声明部分声明函数Private Declare Function mciSendString Lib winmm.dll Alias mciSendStringA（Byval lpstrCommand As String,ByVal lpstrRetumString As String,ByVal uReturnLength As long,ByVal hwndCallback as long） As

9、longDim mfn As String下面就是各个对象的代码了：Private Sub Form_load（）mfn=play.Enabled=Falsepause.Enabled=FalseStopplay.Enabled=Falseback.Enabled=Falseprew.Enabled=FalseTimer1.Enabled=FalseTimer1.Interval=500Private Sub open_Click（）On Error Goto err.CancelError=True.Filter=音乐文件|*.mp3;*.wav;*.mid.Flags=cdlOFNNoCh

10、angeDir And cdlOFNPathMustExist.Action=1stopplay_Click 停止按钮同时可以设备初始化mfn=.FileName 这个程序中文件名一定不能带空格Form1.Caption=.FileNameplay.Enabled=Trueplay_Clickerr:Private Sub play_Click（）On Error Resume NextDim t As Longt=mciSendString（open + mfn,0&,0,0） Open后边的空格一定不能丢Dim ret As String * 128status + mfn + lengt

11、h,ret,128,0）显示歌曲总长ret=Left（ret,8）If ret ThenProgressBar1.Min=0ProgressBar1.Max=Val（ret）Label3.Caption=gettime（Val（ret）pause.Enabled=Truestopplay.Enabled=Trueback.Enabled=Trueprew.Enabled=True + mfn + mode得到设备的当前状态，是播放还是暂停等等StatusBar1.Panels（1）.text=ret在状态栏显示播放状态play form + Str（ProgressBar1.Value）,0&,0,0）开始播放Timer1.Enabled=TruePrivate Sub pause_Click（）t%=mciSendString（pause + mfn