Question

VB6.0中怎么播放声音，不要让用户看到控件，最好要代码

VB中怎么播放声音，最好要代码，控件也行，要隐藏

Answer 1

Private 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

Private Sub Command1_Click() '开始播放
    Dim mf As String
    mf = "h:\temp\123.mp3" '声音文件名
    mciSendString "Open """ & mf & """ Alias music1 type MPEGVideo", 0&, 0, 0
    mciSendString "Play music1", 0&, 0, 0
End Sub

Private Sub Command2_Click() '停止播放
    mciSendString "Stop music1", 0&, 0, 0
    mciSendString "Close music1", 0&, 0, 0
End Sub