- 帖子
- 10
- 主題
- 5
- 精華
- 0
- 積分
- 16
- 點名
- 0
- 作業系統
- windows XP
- 軟體版本
- SP3
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-7-23
- 最後登錄
- 2011-7-3
|
VBA音效
Excel之VBA聲音警示使用音樂檔發聲
在宣告區宣告
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
在程式區家上呼叫音樂檔
file1 = "D:\pocketPC\Audio-1.wav" '填要播放的音樂檔
mciSendString "seek " & file1 & " to start", vbNullString, 0, 0
mciSendString "open " & file1, vbNullString, 0, 0
mciSendString "play " & file1, vbNullString, 0, 0
測試OK |
|