====================================== Dim ad As Device Dim Buf As SecondaryBuffer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ad = New Device Dim desc As New BufferDescription desc.ControlPan = True desc.ControlVolume = True desc.ControlFrequency = True desc.Flags = BufferDescriptionFlags.GlobalFocus ''''全局的,上一篇有介绍
ad.SetCooperativeLevel(Me.Handle, CooperativeLevel.Normal) Buf = New SecondaryBuffer("G:\MEDIA\WAV\rod2.wav", desc, ad) Buf.Play(0, BufferPlayFlags.Looping)
Label5.Text = Buf.Frequency.ToString End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown Buf.Volume = 0 ''''最大就是0 Label2.Text = Buf.Volume.ToString End Sub
Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp '''' Buf.Volume = -50 * 100 Buf.Volume = -5 * 100 Label2.Text = Buf.Volume.ToString
End Sub
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown If e.Button = MouseButtons.Left Then Buf.Pan = -20 * 500 Else Buf.Pan = 20 * 500 End If Label4.Text = Buf.Pan.ToString End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp Buf.Pan = 0 Label4.Text = Buf.Pan.ToString
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
