Me.Controls.Add(Me.Button4)

        Me.Controls.Add(Me.Button3)

        Me.Controls.Add(Me.Button2)

        Me.Controls.Add(Me.Button1)

        Me.Controls.Add(Me.TextBox1)

        Me.Name = "Form1"

        Me.Text = "Form1"

        Me.ResumeLayout(False)

    End Sub

#End Region

    Dim Dev As Device

    Dim PB As Buffer

    Dim SB As SecondaryBuffer

    Dim Desc1 As BufferDescription

    Dim desc2 As BufferDescription

    Dim eff As EffectDescription

    Private Structure EffectInfo

        Public description As EffectDescription

        Public EffectSettings As Object

        Public Effect As Object

    End Structure

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ''''''''''''加载DirectSound

        Dev = New Device

        Dev.SetCooperativeLevel(Me, CooperativeLevel.Priority)

        Me.Text = "init ok"

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        ''''''''''''读取wav

        Desc1 = New BufferDescription

        Desc1.ControlEffects = True

        SB = New SecondaryBuffer(TextBox1.Text, Desc1, Dev)

        Me.Text = "load ok"

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        ''''''''''''播放啊播放

        If SB Is Nothing Then Exit Sub

        SB.Play(0, BufferPlayFlags.Default)

        Me.Text = "playing"

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        ''''''''''''停止播放,释放当前的wav

        SB.Stop()

        SB.Dispose()

        Me.Text = "disposed"

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

''''''''''''主要看这个

        '''''''''''' 我的数组声明了一个元素,看起来没有必要,但是设置的时候要求必须是数组,哪怕元素只有一个

        '''''''''''

上一页  [1] [2] [3] [4]  下一页