📄 音乐播放器.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>VB程序设计基础</title>
</head>
<body bgcolor="#CCFFFF" vlink="#0000FF">
<p align="center" style="margin-top: 0; margin-bottom: 0"><font color="#FF0000"><font face="华文彩云" size="6">音乐播放器</font></font></p>
<p align="left" style="line-height: 150%; margin-top: 0; margin-bottom: 0"><br>
<font color="#0000FF">十、音乐播放器</font><br>
<font color="#0000FF">媒体</font>播放器控件（MCI）可以播放<font color="#800000">音频</font>和<font color="#800000">视频</font>，也就是音乐和影碟。<br>
<font color="#0000FF">在 </font>D:盘根目录下新建一个文件夹，名字改为<font color="#800000">music</font>，里面拷入三个音乐文件，一个<font color="#800000">Wav</font>文件重命名为<font color="#800000">one</font>，另一个<font color="#800000">Mp3</font>文件，重命名为<font color="#800000">two</font>，再将第十课中的<font color="#800000">thr</font>视频文件拷贝进去，这是一个<font color="#800000">Avi</font>文件。<br>
<font color="#0000FF">启动</font>VB，修改好窗体的各个<font color="#800000">属性</font>，再添加一个标签，将<font color="#800000">Caption</font>改为“我的播放器”。<br>
<font color="#0000FF">MCI控件</font>要自己添加到工具箱中，方法是在<font color="#800000">工具箱</font>上单击鼠标<font color="#800000">右键</font>，选择“<font color="#800000">部件</font>”在对话框中找到Microsoft Multimeia Control6.0
<font color="#800000">打上勾</font>选中，再单击“<font color="#800000">确定</font>”这样在工具箱中就加入了多媒体控件MMControl。<br>
<font color="#0000FF">在</font>工具箱里找到MMControl控件（<font color="#800000">最后</font>一个），选中后在窗体上画一个，可以发现跟我们常见的设备符号一样，有播放、停止、暂停、快进、弹碟等等。以“<font color="#800000">音乐播放器</font>”为文件名<font color="#800000">保存文件到自己的文件夹</font>。<br>
<font color="#0000FF">现在</font>播放器是<font color="#800000">虚的</font>，还要设置一下显示属性，用鼠标<font color="#800000">右键</font>单击<font color="#800000">窗体中</font>的多媒体控件，在弹出的菜单中选择“<font color="#800000">属性</font>”，在弹出的对话框顶端选择“<font color="#800000">控件</font>”标签，将各个按钮符号旁边的<font color="#800000">有效</font>选中打上勾，单击“<font color="#800000">确定</font>”回到窗体中，这时候控件就可以使用了。<br>
<font color="#0000FF">单击</font>启动按钮运行一下，窗口中的播放器还是<font color="#800000">虚的</font>，这是因为还没有要播放的文件。<br>
<font color="#0000FF">关闭</font>程序回到窗体窗口，添加一个<font color="#800000">框架</font>Fram1，向里面添加三个<font color="#800000">单选按钮</font>Option，分别设置Caption为<font color="#800000">Wav</font>，<font color="#800000">Mp3</font>和<font color="#800000">Avi</font>，再修改好背景色。<br>
<font color="#0000FF">下面</font>我们来添加代码打开播放器，播放一个指定的文件，<font color="#800000">双击</font>窗体，添加代码到Form_Load()过程中初始化播放器：<br>
MMcontrol1.Notify=False <font color="#008000"> '不返回播放信息</font><br>
MMcontrol1.Wait=True <font color="#008000"> '播放时其他人等待</font><br>
<font color="#0000FF">在</font>代码窗口的<font color="#800000">顶部</font>左边的<font color="#800000">列表中</font>选择Option1，右边自动选择Click，在弹出的Option_Click()过程中添加播放<font color="#800000">Wav</font>的代码：<br>
MMControl1.Command = "close" <font color="#008000"> '先关闭播放器</font><br>
MMControl1.DeviceType = "Waveaudio" <font color="#008000"> 'Wav音频格式</font><br>
MMControl1.FileName = "d:\music\one.wav" <font color="#008000"> '文件夹中的one.wav文件</font><br>
MMControl1.Command = "open" <font color="#008000"> '打开设备</font><br>
MMControl1.Command = "play" <font color="#008000"> '播放文件</font><br>
<font color="#0000FF">各行</font>代码的作用，在后面的<font color="#800000">绿色</font>注释中讲到，最后一句用来自动播放，相当于<font color="#800000">单击</font>播放器的“<font color="#800000">播放</font>”按钮，播放时必须要有<font color="#800000">文件名</font>和播放<font color="#800000">命令</font>。<br>
<font color="#0000FF">同样</font>找到Option2的Click()过程，添加播放MP3的代码：<br>
MMControl1.Command = "close" <font color="#008000"> '先关闭播放器</font><br>
MMControl1.DeviceType = "" <font color="#008000"> '其他类型</font><br>
MMControl1.FileName = "d:\music\two.mp3" <font color="#008000"> '文件夹中的two.mp3文件</font><br>
MMControl1.Command = "open" <font color="#008000"> '打开设备</font><br>
MMControl1.Command = "play" <font color="#008000"> '也可以点击播放按钮</font><br>
<font color="#0000FF">这里</font>的Mp3格式是<font color="#800000">压缩</font>格式属于其他类型，别的跟Wav文件相同，<font color="#800000">都是</font>声音文件，没有图像只有音乐。<br>
<font color="#0000FF">注意</font>Option3有些不同，它是Avi<font color="#800000">视频</font>格式，也就是既有声音还有图像，它的Click()代码为：<br>
MMControl1.Command = "close" <font color="#008000"> '先关闭播放器</font><br>
MMControl1.DeviceType = "AviVideo" <font color="#008000"> 'Avi视频格式</font><br>
MMControl1.hWndDisplay = Form1.hWnd <font color="#008000"> '用背景窗体当屏幕</font><br>
MMControl1.FileName = "d:\music\thr.avi" <font color="#008000"> '文件夹中的thr.avi文件</font><br>
MMControl1.Command = "open" <font color="#008000"> '打开设备</font><br>
MMControl1.Command = "play" <font color="#008000"> '也可以点击播放按钮</font><br>
<font color="#0000FF">这儿</font>第三行代码是让视频<font color="#800000">图像</font>显示在背景中，也可以添加一个图片框，把Form1改为PIcture1，注意图像的比例一般是4:3 或者16:9。<br>
<font color="#0000FF">检查</font>一遍代码，注意<font color="#800000">中英文</font>和<font color="#800000">标点符号</font>以及大小写的正确性。<font color="#800000">保存一下文件</font><br>
<font color="#0000FF">单击</font>“启动”按钮运行程序，点击不同的格式文件来播放音乐，看看我们的多媒体播放器强大的功能，<font color="#800000">注意</font>重复播放时要<font color="#800000">倒带子</font>，单击“<font color="#800000">倒带</font>”然后<font color="#800000">再</font>播放就重新播放了，退出前一定要<font color="#800000">关闭</font>设备也就是“<font color="#800000">close</font>”命令。
</p>
<p align="left" style="line-height: 150%; margin-top: 0; margin-bottom: 0">
<font color="#0000FF">整个代码为</font>：
</p>
<p align="left" style="line-height: 150%; margin-top: 0; margin-bottom: 2">Private Sub Command1_Click()
<font color="#008000"> '退出程序</font><br>
MMControl1.Command = "close" <font color="#008000"> '关闭播放器设备</font><br>
MMControl1.Shareable = True <font color="#008000"> '允许别人使用播放器</font><br>
End<br>
End Sub<br>
<br>
Private Sub Form_DblClick()'双击退出<br>
MMControl1.Command = "close" <font color="#008000"> '关闭播放器</font><br>
MMControl1.Shareable = True<br>
End<br>
End Sub<br>
<br>
Private Sub Form_Load()<br>
MMControl1.Notify = False <font color="#008000"> '不返回播放信息</font><br>
MMControl1.Wait = True <font color="#008000"> '播放时其他人稍等</font><br>
End Sub<br>
<br>
Private Sub Form_Unload(Cancel As Integer) <font color="#008000"> '关闭窗口</font><br>
MMControl1.Command = "close" <font color="#008000"> '关闭播放器</font><br>
MMControl1.Shareable = True<br>
End Sub<br>
<br>
Private Sub Option1_Click()<br>
MMControl1.Command = "close" <font color="#008000"> '先关闭播放器</font><br>
MMControl1.DeviceType = "Waveaudio" <font color="#008000"> 'Wav音频格式</font><br>
MMControl1.FileName = "d:\music\one.wav" <font color="#008000"> '文件夹中的文件</font><br>
MMControl1.Command = "open" <font color="#008000"> '打开设备</font><br>
MMControl1.Command = "play" <font color="#008000"> '播放文件</font><br>
<br>
End Sub<br>
<br>
Private Sub Option2_Click()<br>
MMControl1.Command = "close" <font color="#008000"> '先关闭播放器</font><br>
MMControl1.DeviceType = "" <font color="#008000">'其他类型</font><br>
MMControl1.FileName = "d:\music\two.mp3" <font color="#008000"> '当前文件夹中的文件</font><br>
MMControl1.Command = "open" <font color="#008000"> '打开设备</font><br>
MMControl1.Command = "play" <font color="#008000"> '也可以点击播放按钮</font><br>
End Sub<br>
<br>
Private Sub Option3_Click()<br>
MMControl1.Command = "close" <font color="#008000"> '先关闭播放器</font><br>
MMControl1.DeviceType = "AviVideo" <font color="#008000"> 'Avi视频格式</font><br>
MMControl1.hWndDisplay = Form1.hWnd <font color="#008000"> '用背景窗体当屏幕</font><br>
MMControl1.FileName ="d:\music\thr.avi" <font color="#008000"> '文件夹中的文件</font><br>
MMControl1.Command = "open" <font color="#008000"> '打开设备</font><br>
MMControl1.Command = "play" <font color="#008000"> '也可以点击播放按钮</font><br>
End Sub<br>
<br>
<font color="#0000FF">本节</font>学习了多媒体播放器的制作和使用。
</p>
<!--
复选框CheckBox
是用来标记是否选中的控件，代码是Check1.Value＝(0,1)
也就是或者选中，或者没有选中。<br>
启动VB、设置好窗体的名称为“复选框”以及背景色、图标，添加一个标签Label，Caption改为“我的复选框”，以“复选框”为文件名，保存文件到自己的文件夹中。<br>
找到工具箱中的一个打勾的控件，这就是复选框，添加一个到窗体中，在属性窗口中修改它的Caption为“复选框的值”，再修改字体、字号，把提示ToolTipText设为“这是第一个复选框”。<br>
<br>
-->
<p style="line-height: 100%; margin-top: 0; margin-bottom: 1"> <a href="音乐播放器.exe">音乐播放器</a> <font size="2">（在弹出的对话框中选择“<font color="#800000">在当前位置运行该程序</font>”和“<font color="#800000">是</font>”）</font></p>
<p style="line-height: 100%; margin-top: 0; margin-bottom: 1"><font SIZE="1" COLOR="#000000">本教程由86团学校TeliuTe制作</font><font SIZE="1" color="#008000">|</font><font SIZE="1" COLOR="#000000">著作权所有，不得用于商业用途</p>
<p style="line-height: 100%; margin-top: 0; margin-bottom: 1">美丽的校园……</p>
</font>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -