?? 如何播放背景音樂(midi).txt
字號:
你 使 用 的 是 VB 6.0, 可 你 調(diào) 用 的 API函 數(shù) 卻 都 是 16位 的 , 當 然 不 會 成 功 。 正 確 的 方 法 如 下 :
實 現(xiàn) 加 入 如 下 聲 明 :
Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
hwndCallback As Long) As Long
' 如 果 你 想 播 放 其 它 文 件 , 修 改 這 里
Private Const Song As String = "C:\Win95\Media\Canyon.MID"
播 放 時 使 用 如 下 命 令 :
mciSendString "open " & Song & " type sequencer alias canyon", _
0&, 0, 0
mciSendString "play canyon FROM 0", 0&, 0, 0
停 止 時 使 用 :
mciSendString "close canyon", 0&, 0, 0
<END>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -