编程问题

Question

vb中满足条件时如何自动播放声音

Answer 1

'利用API函数播放Wav声音文件
Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As LongPrivate Sub Command1_Click()
    Dim SoundFile As String, Result As Long
    SoundFile = "C:\windows\Media\Windows XP 启动.wav"
    Result = sndPlaySound(SoundFile, 1)
End Sub本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/asftrhgjhkjlkttttttt/archive/2009/11/13/4806083.aspx

Answer 2

Private Sub Command1_Click() '播放
Dim back, r%
back = mciSendString&("OPEN " + "C:\e.mid" + " TYPE SEQUENCER ALIAS NN", 0&, 0, 0)
back = mciSendString&("PLAY NN FROM 0", 0&, 0, 0)
r% = mciSendString&("CLOSE ANIMATION", 0&, 0, 0)
End Sub
Private Sub Command2_Click() '停止
Dim back
back = mciSendString&("CLOSE NN", 0, 0, 0)
End Sub

Answer 3

Private Declare Function mciSendString Lib "Winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrRetumString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Answer 4

本人空间资源：VB播放器源代码！http://download.csdn.net/source/2249956