【VB开源代码栏目提醒】：网学会员,鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“播放音效.frm”一文，供大家参考学习!

    VERSION 5.00
    Begin VB.Form Form1 
       Caption         =   "播放音效"
       ClientHeight    =   3195
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   4680
       LinkTopic       =   "Form1"
       ScaleHeight     =   3195
       ScaleWidth      =   4680
       StartUpPosition =   3  '窗口缺省
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Dim objDX As New DirectX7
    Dim objDS As DirectSound
    Dim DSBuffer As DirectSoundBuffer
    Dim bufferdss As DSBUFFERDESC
    Dim waveformat As WAVEFORMATEX
    Private Sub Form_Load()
      Me.Show
      Set objDS = objDX.DirectSoundCreate("")
      objDS.SetCooperativeLevel Me.hWnd, DSSCL_NORMAL
      bufferdss.lFlags = DSBCAPS_STATIC
      With waveformat
        .nFormatTag = 1
        .nChannels = 1
        .lSamplesPerSec = 22050
        .lAvgBytesPerSec = 44100
        .nBlockAlign = 2
      End With
      
      Set DSBuffer = objDS.CreateSoundBufferFromFile("sample1.wav", bufferdss, waveformat)
      
      DSBuffer.Play DSBPLAY_LOOPING
    End Sub