写程序累的时候，可以用好听的音乐放松身体。 用VB制作简单的音乐播放器吧。
1、如下图所示创建表单界面
表格包含五个标签、一个公共诊断程序和一个windows媒体播放器。
标签的标题从左到右依次为“选择”、“暂停”、“继续”、“停止”、“结束”，通用诊断程序的“过滤器”为“音频文件(*.Mp3 ) ).MP3 )”
2，代码功能的实现：
(1)在代码窗口中定义函数和常数。
1 .选项专用
2.dim播放文件名as字符串
3.dim播放位置为双精度
(2)、“选择”代码：
1 .私有子命令1 _ click (
2 .通用诊断1 .显示打开
3 .播放文件名=公用诊断1 .文件名
4 .命令1 .启用=真
5 .命令3 .启用=真
6.windows媒体播放器1.URL=播放文件名
7.windows媒体播放器1.controls.current position=播放位置
8.windows媒体播放器1 .控制.播放
9 .结束子
(三)、“暂停”代码：
1 .私有子命令2 _ click (
2 .命令1 .启用=假
3.windows媒体播放器1.controls.pause
4 .播放位置=windows媒体播放器1.controls.current位置
5 .结束子
(四)、“继续”代码：
1 .私有子命令3 _ click (
2.windows媒体播放器1 .控制.播放
3 .命令1 .启用=真
4 .结束子
(5)、“停止”代码：
1 .私有子命令4 _ click (
2 .播放位置=0
3 .命令1 .启用=真
4 .命令2 .启用=真
5 .命令3 .启用=假
6.windows媒体播放器1 .控制.停止
7 .结束子
(六)、“终止”代码：
1 .私有子命令5 _ click (
2 .结束
3 .结束子
功能演示：
思考：
最后在录制程序功能的视频时，发现了一个小问题。 在录制界面中，单击“暂停”停止播放音乐，但在最终录制的视频中音乐是完整的。 也就是说，“暂停”功能在录像软件中发挥不佳。 请想想理由。