在VB中如何播放音乐?

Question

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
        
Dim IsMusicOn As Boolean
Dim RetValue As Long
Private Sub Form_Load()
    IsMusicOn = True
'    RetValue = mciSendString("OPEN " & App.Path & "\canyon.mid TYPE SEQUENCER ALIAS BackgroundMusic", "", 0, 0)
    RetValue = mciSendString("OPEN canyon.mid TYPE SEQUENCER ALIAS BackgroundMusic", "", 0, 0)
End SubPrivate Sub Form_Unload(Cancel As Integer)
    IsMusicOn = False
    RetValue = mciSendString("CLOSE BackgroundMusic", "", 0, 0)
End SubPrivate Sub Timer1_Timer()
    Dim MCIStatusLen As Integer
    Dim MCIStatus As String
    If IsMusicOn = True Then
        MCIStatusLen = 15
        MCIStatus = String(MCIStatusLen + 1, " ")
        RetValue = mciSendString("STATUS BackgroundMusic MODE", MCIStatus, MCIStatusLen, 0)
        If UCase(Left$(MCIStatus, 7)) = "STOPPED" Then
            RetValue = mciSendString("PLAY BackgroundMusic FROM 0", "", 0, 0)
        End If
    End If
End Sub

Answer 1

Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Command1_Click()
SoundFile = "C:\windows\Media\The Microsoft Sound.WAV"
Result = sndPlaySound(SoundFile, 1)End Sub