|
Me.Controls.Add(Me.Button5)
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] 下一页
[系统软件]BCB6 下devexpress 安装手记 [常用软件]Internet Explorer 6 Public Preview 最新出击！！
[常用软件]painter 6 手绘实例《油彩篇》 [常用软件]painter 6 手绘实例《粉彩篇》
[常用软件]Painter 6 手绘实例《胶彩篇》 [VB.NET程序]VB.NET实现DirectSound9 (8) 音效控制器
[VB.NET程序]VB.NET实现DirectSound9 (7) 录音 [VB.NET程序]VB.NET 实现DirectSound9 (5) DS3D2
[VB.NET程序]用VB.Net实现DirectSound9 (4) DS3D [VB.NET程序]VB.NET 使用DirectSound 3
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
