如何播放背景音乐(midi).txt

VB技巧问答10000例 VB技巧问答10000例

你 使 用 的 是 VB 6.0， 可 你 调 用 的 API函 数 却 都 是 16位 的 ， 当 然 不 会 成 功 。 正 确 的 方 法 如 下 ： 
    实 现 加 入 如 下 声 明 ： 
    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>