请问如何在程序VB程序中播放WAV的声音文件(十万火急)

解决方案 »

  1.   

    http://expert.csdn.net/Expert/topic/1368/1368362.xml?temp=.991543
      

  2.   

    用一个 windows media palyer 控件就行
      

  3.   

    private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal SoundName As String, ByVal Flags As Long) As LongCall sndPlaySound("c:\a.wav", 0)
      

  4.   

    非常同意ww28(ww28)
    你放两个控件就可以同时播放两个声音
    sndplaysound不能同时播放两个声音
      

  5.   

    Private Sub Form_Load()
        PlaySound App.Path & "\newemail.wav"
    End Sub模块
    'API Declares 声音效果
    Public Declare Function sndPlaySound Lib "winmm" Alias _
        "sndPlaySoundA" (ByVal lpszSoundName As String, _
        ByVal uFlags As Long) As Long
        
    ' flag uitzetten
    Public Const SND_SYNC = &H0
    Public Const SND_ASYNC = &H1
    Public Const SND_NODEFAULT = &H2
    Public Const SND_MEMORY = &H4
    Public Const SND_LOOP = &H8
    Public Const SND_NOSTOP = &H10Public Sub PlaySound(strSound As String)
        sndPlaySound strSound, SND_ASYNC Or SND_NODEFAULT
    End Sub我刚刚编完的
    绝对好使