Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As LongPrivate Sub Command1_Click() mciExecute "open 断点.mp3 alias sound" mciExecute "play sound" mciExecute "set sound audio all off" mciExecute "set sound audio left on" End SubPrivate Sub Form_Unload(Cancel As Integer) mciExecute "stop sound" End Sub 以上set 指令还有很多 如.. set sound audio right on 打开右声道. set sound audio channel 2 设为立体声. 等等.. 也可用mciSensString 来发送MCI指令..
后面的STOP 改为close 指令 用来关闭设备。。
mciExecute "set sound audio all off" mciExecute "set sound audio left on" 这两个指令提示错误啊!
指定一个喇叭放wav.
mciExecute "open 断点.mp3 alias sound"
mciExecute "play sound"
mciExecute "set sound audio all off"
mciExecute "set sound audio left on"
End SubPrivate Sub Form_Unload(Cancel As Integer)
mciExecute "stop sound"
End Sub
以上set 指令还有很多
如..
set sound audio right on 打开右声道.
set sound audio channel 2 设为立体声.
等等..
也可用mciSensString 来发送MCI指令..
改为close 指令
用来关闭设备。。
mciExecute "set sound audio left on"
这两个指令提示错误啊!
[email protected]