VBA窗體與音樂播放（未完成）

 

方法1：在窗體上添加 medieplayer控件

 窗體的默認控件裏沒有 音樂控件，需要添加 mediaplayer

• 工具欄上郵件：添加
• 找到 microsoft mediaplayer

 

 音樂控件的播放

• 播放音樂的屬性
• 播放器.url
• 播放器.controls.play    

 

• WindowsMediaPlayer1.URL = "C:\Users\Administrator\Desktop\rain.mp3"
• WindowsMediaPlayer1.Controls.Play
   

   

 

Private Sub WindowsMediaPlayer1_Click(ByVal nButton As Integer, ByVal nShiftState As Integer, ByVal fX As Long, ByVal fY As Long)

WindowsMediaPlayer1.URL = "C:\Users\Administrator\Desktop\rain.mp3"
WindowsMediaPlayer1.Controls.Play

End Sub

 

2 用加載lib 調用API的方法

 

Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Sub auto_open()
    ReturnSoundValue=mciExecute("open " & ThisWorkbook.Path &
    "\上海灘.mid ALIAS rsv")
    mciExecute "play rsv"
End Sub
Sub關閉()
    mciExecute "close rsv"
End Sub

 

 

 

 

是不是隻能播放MP3?

 

 

 

一次播放多個MP3?

http://club.excelhome.net/thread-1400639-1-1.html

 

其他方法

http://www.excelpx.com/thread-177197-1-1.html

 

用shell?

http://club.excelhome.net/thread-553187-1-1.html