利用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=False
pause.Enabled=False
Stopplay.Enabled=False
back.Enabled=False
prew.Enabled=False
Timer1.Enabled=False
Timer1.Interval=500
End Sub
Private Sub open_Click()
On Error Goto err
With CommonDialog1
.CancelError=True
.Filter="音乐文件|*.mp3;*.wav;*.mid"
.Flags=cdlOFNNoChangeDir And cdlOFNPathMustExist
.Action=1
stopplay_Click '停止按钮同时可以设备初始化
mfn=.FileName '这个程序中文件名一定不能带空格
Form1.Caption=.FileName
play.Enabled=True
End With
play_Click
Exit Sub
err:
End Sub
Private Sub play_Click()
On Error Resume Next
Dim t As Long
t=mciSendString("open " + mfn,0&,0,0) 'Open后边的空格一定不能丢
Dim ret As String * 128
t=mciSendString("status " + mfn + " length",ret,128,0)
'显示歌曲总长
ret=Left(ret,8)
If ret<>"" Then
ProgressBar1.Min=0
ProgressBar1.Max=Val(ret)
Label3.Caption=gettime(Val(ret))
End If
play.Enabled=False
pause.Enabled=True
stopplay.Enabled=True
back.Enabled=True
prew.Enabled=True
t=mciSendString("status " + mfn +" mode",ret,128,0)
'得到设备的当前状态，是播放还是暂停等等
ret=Left(ret,8)
StatusBar1.Panels(1).text=ret
'在状态栏显示播放状态
t=mciSendString("play " + mfn + " form " + Str(ProgressBar1.Value),0&,0,0)
'开始播放
Timer1.Enabled=True
End Sub
Private Sub pause_Click()
t%=mciSendString("pause " + mfn,0&,0,0)
'发出暂停的命令
play.Enable=True
pause.Enabled=False
stopplay.Enabled=True
back.Enabled=False
prew.Enabled=False
End Sub
Private Sub stopplay_Click()
t%=mciSendString("stop " + mfn,0&,0,0)
t%=mciSendString("close " + mfn,0&,0,0)
'停止播放
play.Enabled=True
pause.Enabled=False
stopplay.Enabled=False
back.Enabled=False
prew.Enabled=False
End Sub
Private Sub back_Click()
t%=mciSendString("play " + mfn + " from " + Str(ProgressBar1.Value-(ProgressBar1.Max/10)),0&,0,0) '向后跳一小段再播放
End Sub
Private Sub prew_Click()
t%=mciSendString("play " + mfn + " from " + Stri(ProgressBar1.Value+(ProgressBar1.Max/10)),0&,0,0) '向前跳一小段再播放
End Sub
Private Sub Timer1_Timer()
Dim t As Long
Dim ret As String * 128
t=mciSendString("status " + mfn + " position",ret,0,0)
'得到当前播放位置
ret=left(ret,8)
ProgressBar1.Value=Val(ret)
Label1.Caption=gettime(Val(ret))
'显示歌曲当前时间
If ProgressBar1.Value=ProgressBar1.Max Then
stopplay_Click
End If
t=mciSendString("status " + mfn + " mode",ret,128,0)
ret=Left(ret,8)
StatusBar1.Panels(1).Text=ret
End Sub
Private Sub Form_Unload(Cacel As Integer)
t%=mciSendString("stop " + mfn,0&,0,0)
t%=mciSendString("close " + mfn,0&,0,0)
End Sub
Private Function Gettime(position As Long) As String
'这个函数的功能是把以长整型表示的时间转换为电子钟式的"**:**"
Dim min,sec
min=position/1000
min=min/60
sec=min-Int(min)
min=Int(min)
sec=60 * sec / 100
sec=Int(sec * 100)
gettime=Str(min) + ":" + Str(sec)
End Function
图中5个控制按钮，其实是把字体设为"Webdings"，让它们的Caption属性分别为"4" ";" "<" "7" "8"
就可以了

学习界面设计的4个对象:窗体、命令按钮、标签、文本框
1、窗体Form 窗体文件扩展名.frm
窗体是放置VB提供的各种控件的一个容器，在窗体上设计和编辑应用程序的界面。
窗体的添加(工程→添加窗体);修改(在窗体设计器中修改);删除(工程资源管理器)。
每日I积累
2、窗体常用的属性: name(每个控件对象必须有的、不能重复的、区分作用、写代码时引用)
位置: top 和left
大小: width 和height
caption font enabled visible backcolor
3、事件: Load(加载)、Click、 DblClick、 Unload(卸载)、 Resize、Queryunload (查询卸载)
4、窗体的方法: Show、 Hide、Move、Print、 Cls、Refresh
坚持I打卡
5、设置启动窗体:应用程序有单窗体、多窗体情况，多窗体时可指定程序从哪一个窗体或是Sub Main开始执行:
◆设置启动窗体:工程属性→通用→启动对象
◆不使用启动窗体:以一个过程开始，选择Sub Main
Sub Main:如果一应用程序只包含1个窗体，则程序从执行窗体Form的load过程开始。如果有多个窗体，则从设计阶段建立的第1个窗体开始执行。有时，希望在运行窗体程序之前先执行一些操作， 此时可以将这些操作写在Sub Main过程中。
Sub Main是在模块中定义的，如果1个程序中包含有多个模块，只能允许有1个Sub Main过程。SubMain过程中可以包含若干语句。但它与其他语言中的主程序不同，程序启动时不会自动执行。
收获I累累
5、按钮Command  按钮控件 命令按钮
按钮的属性: name、 caption、 height、 width、left、top、 enabled、 visible、font
按钮的事件: Click
方法: Move、Setfocus 获得焦点
6、文本控件:标签 Label 文本框 TextBox
标签:只能输出(显示)文本;
文本框:输入、输出(显示)文本，没有Caption属性，文本框中显示的内容是Text属性
喜欢就多多关注我哦！

如果能将ActiveX控件像放置到VB窗体上一样方便地放置到Web网页上，然后通过VBScript来访问控件的属性和方法，可以为你的网页增色不少，同时也能大大简化网页设计过程。通常在一个Web网页上显示一个ActiveX控件要使用HTML的OBJECT标识，将一个命令按钮插入到网页中的标识如下： 
　　〈OBJECT ID=″CommandButton1″ WIDTH=96 HEIGHT=32 
　　CLASSID=″CLSID:D7053240－CE69－11CD－A777－00DD01143C57″〉 
　　〈PARAM NAME=″Caption″ VALUE=″Click Me″〉 
　　〈PARAM NAME=″Size″ VALUE=″2540;846″〉 
　　〈PARAM NAME=″FontName″ VALUE=″System″〉 
　　〈PARAM NAME=″FontEffects″ VALUE=″1073741825″〉 
　　〈PARAM NAME=″FontCharSet″ VALUE=″134″〉 
　　〈PARAM NAME=″FontPitchAndFamily″ VALUE=″34″〉 
　　〈PARAM NAME=″ParagraphAlign″ VALUE=″3″〉 
　　〈PARAM NAME=″FontWeight″ VALUE=″700″〉 
　　〈/OBJECT〉 
　　OBJECT具有几个参数，CLASSID是Windows用来注册ActiveX控件的类标识，PARAM初始化该控件的属性，定义好控件后就可以为这个控件编写必要的代码来响应事件了。不难看出，用上述的方法进行控件的定义是很繁琐的，有没有更简便的方法将ActiveX控件放到Web页面上呢？有，它就是ActiveX Control Pad，这个工具软件可以从微软的站点上下载。 
　　ActiveX Control Pad提供了四个构件，可以大大简化网页的设计：Text Editor(HTML文档编辑器)、Object Editor(直观地改变控件大小和属性)、HTML Layout Editor(HTML布局编辑器，用于生成HTML的布局)、Script Wizard(脚本向导程序)。 
　　运行ActiveX Control Pad后，在编辑器中输入HTML标识可生成Web页面，需要插入ActiveX控件时，选择Edit→Insert ActiveX Control就会打开如下窗口： 
　　选择你所要的ActiveX控件后会出现相应的属性窗口，通过它可以设置控件的属性。一切工作做完后，关闭控件窗口，相应的HTML代码已经插入到HTML文档中了。要建立一个HTML布局，操作步骤如下：File→New HTML Layout，打开Layout和Toolbox窗口，Layout窗口类似VB的设计窗体，可以方便地在上面放置各种控件，要加入VBScript的脚本，用右键单击Layout窗体，选择Script Wizard，在1号窗选择相应的控件和事件，在下方的代码视窗中输入代码即可。完成HTML布局后，保存退出。在HTML文档中需要插入布局的地方进行如下操作：Edit→Insert HTML Layout,选择好Layout文件后，在文档中会插入相应的代码。这样你可以非常方便地生成一个活动的Web页面，这个页面能更好地与用户进行交互。有兴趣的朋友不妨一试，相信您一定会喜欢它的。 

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/peter824/archive/2007/07/11/1685387.aspx

如果能将ActiveX控件像放置到VB窗体上一样方便地放置到Web网页上，然后通过VBScript来访问控件的属性和方法，可以为你的网页增色不少，同时也能大大简化网页设计过程。通常在一个Web网页上显示一个ActiveX控件要使用HTML的OBJECT标识，将一个命令按钮插入到网页中的标识如下： 

　　〈OBJECT ID=″CommandButton1″ WIDTH=96 HEIGHT=32 

　　CLASSID=″CLSID:D7053240－CE69－11CD－A777－00DD01143C57″〉 

　　〈PARAM NAME=″Caption″ VALUE=″Click Me″〉 

　　〈PARAM NAME=″Size″ VALUE=″2540;846″〉 

　　〈PARAM NAME=″FontName″ VALUE=″System″〉 

　　〈PARAM NAME=″FontEffects″ VALUE=″1073741825″〉 

　　〈PARAM NAME=″FontCharSet″ VALUE=″134″〉 

　　〈PARAM NAME=″FontPitchAndFamily″ VALUE=″34″〉 

　　〈PARAM NAME=″ParagraphAlign″ VALUE=″3″〉 

　　〈PARAM NAME=″FontWeight″ VALUE=″700″〉 

　　〈/OBJECT〉 

　　OBJECT具有几个参数，CLASSID是Windows用来注册ActiveX控件的类标识，PARAM初始化该控件的属性，定义好控件后就可以为这个控件编写必要的代码来响应事件了。不难看出，用上述的方法进行控件的定义是很繁琐的，有没有更简便的方法将ActiveX控件放到Web页面上呢？有，它就是ActiveX Control Pad，这个工具软件可以从微软的站点上下载。 

　　ActiveX Control Pad提供了四个构件，可以大大简化网页的设计：Text Editor(HTML文档编辑器)、Object Editor(直观地改变控件大小和属性)、HTML Layout Editor(HTML布局编辑器，用于生成HTML的布局)、Script Wizard(脚本向导程序)。 

　　运行ActiveX Control Pad后，在编辑器中输入HTML标识可生成Web页面，需要插入ActiveX控件时，选择Edit→Insert ActiveX Control就会打开如下窗口： 

　　选择你所要的ActiveX控件后会出现相应的属性窗口，通过它可以设置控件的属性。一切工作做完后，关闭控件窗口，相应的HTML代码已经插入到HTML文档中了。要建立一个HTML布局，操作步骤如下：File→New HTML Layout，打开Layout和Toolbox窗口，Layout窗口类似VB的设计窗体，可以方便地在上面放置各种控件，要加入VBScript的脚本，用右键单击Layout窗体，选择Script Wizard，在1号窗选择相应的控件和事件，在下方的代码视窗中输入代码即可。完成HTML布局后，保存退出。在HTML文档中需要插入布局的地方进行如下操作：Edit→Insert HTML Layout,选择好Layout文件后，在文档中会插入相应的代码。这样你可以非常方便地生成一个活动的Web页面，这个页面能更好地与用户进行交互。有兴趣的朋友不妨一试，相信您一定会喜欢它的。