?? 音樂播放器.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 + -