博文
一个简单的MP3播放器(2006-05-05 23:11:00)
摘要：
作者：未知 来源：月光软件站 加入时间：2005-2-28 月光软件站
利用API函数[mciSendString]可以轻松实现MP3音乐文件的播放。下面这段程序实现了MP3播放的大部分常规操作，对其稍加修改，做一个100KB大小的MP3播放器轻而易举
启动VB程序，在窗体上放置6个命令按钮，三个标签，一个公用对话框、一个进度条、一个状态栏和一个计时器，窗本的布置请参考附图
按钮"Open MP3 File"是用来打开对话框选择MP3文件，其他5个按钮分别为Play(播放)、Pause(暂停)、Stopplay(停止播放)、Back(向后跳跃)、Prew(向前跳跃)。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 longDim mfn As String
下面就是各个对象的代码了：Private Sub Form_load()mfn=""play.Enabled=Falsepause.Enabled=FalseStopplay.Enabled=Falseback.Enabled=Falseprew.Enabled=FalseTimer1.Enabled=FalseTimer1.Interval=500End Sub
Private Sub open_Click()On Error Goto errWith CommonDialog1.CancelError=True.Filter="音乐文件|*.mp3;*.wav;*.mid".Flags=cdlOFNNoChangeDir And cdlOFNPathMustExist.Action=1stopplay_Click '停止按钮同......
小叮当也战江湖—VB实例七日谈(二)(2006-05-05 21:56:00)
摘要：第二天、自制媒体播放器 小蘑菇：姐姐来看我刚刚下载的《黑衣人2》，可好玩了。 小叮当：用MediaPlayer看的？不如这样吧，今天我教你怎样制作一个媒体播放器，你看如何？ 小蘑菇：自己做的媒体播放器也可以看《黑衣人2》吗？ 小叮当：那是当然的，不然我岂不是变成了大骗子？ 小蘑菇：呵呵，那感情好呀，这样我可以拿到班上给同学炫耀一下喽。 小叮当：我们这个媒体播放器的目的是可以播放VCD、WAV、MP3等媒体文件，而且全部的功能基本上和Windows附带的媒体播放器差不多。其实要制作这样一个播放器并不困难，因为在VB中提供了一个MediaPlayer控件，它帮我们解决了很多实际问题，只要按照下面的步骤就可以了。 1、因为我们需要使用到MediaPlayer控件，所以刚开始就要右击工具面板并在部件添加窗口里选择“Windows MediaPlayer”来添加这个控件，同时还要添加“CommonDialog”控件。 2、在窗口设计器中创建一个MediaPlayer控件、五个Command Button控件和一个CommonDialog控件。 3、将Form1的Caption属性更改为“小叮当的媒体播放器”。 4、分别将五个Command Button控件的Caption属性分别命名为“暂停”、“播放”、“停止”、“选择”和“退出”，然后把它们按照一定的位置放好。 5、选中CommonDialog控件之后，在右边属性的“Filter”对话框中输入“WAV（*.wav）|*.wav|MIDI（*.mid）|*.mid|MPEG（*.mpeg）|*.mpeg|DAT（*.dat）|*.dat|AVI（*.avi）|*.avi|MP3（*.mp3）|*.mp3”的文件过滤选项，这样就可以支持各种常见的媒体影像文件了。 小蘑菇：看起来和真正的MediaPlayer差不多呀，还蛮有专业水准的呢。 小叮当：是呀，这全要归功于MediaPlayer控件，下面就是代码编写部分内容了： 1、首先要双击Form1窗口，并选择“通用”对象，输入下面的通用代码： Option Explicit Dim playfilename As String /定义播放文件的名称 Dim playposition As Double /定义当前播放的位置 ......
用VB制作一个简单的MP3播放器(2006-05-05 18:35:00)
摘要：利用API函数[mciSendString]可以轻松实现MP3音乐文件的播放。下面这段程序实现了MP3播放的大部分常规操作，对其稍加修改，做一个100KB大小的MP3播放器轻而易举 启动VB程序，在窗体上放置6个命令按钮，三个标签，一个公用对话框、一个进度条、一个状态栏和一个计时器。
按钮"Open MP3 File"是用来打开对话框选择MP3文件，其他5个按钮分别为Play(播放)、Pause(暂停)、Stopplay(停止播放)、Back(向后跳跃)、Prew(向前跳跃)。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 long
Dim mfn As String
下面就是各个对象的代码了：
Private Sub Form_load()mfn=""play.Enabled=Falsepause.Enabled=FalseStopplay.Enabled=Falseback.Enabled=Falseprew.Enabled=FalseTimer1.Enabled=FalseTimer1.Interval=500End Sub
Private Sub open_Click()On Error Goto errWith CommonDialog1.CancelError=True.Filter="音乐文件|*.mp3;*.wav;*.mid".Flags=cdlOFNNoChangeDir And cdlOFNPathMustExist.Action=1stopplay_Click '停止按钮同时可以设备初始化mfn=.FileName......