vb2008 Direct编程之音乐播放器

又是新的一篇教程，来看看题目，很吸引人是吧，那就让我们来show一场，编写一个自己的音乐播放器。先来看一下我们的音乐播放器的功能——调节声道，调节音量，播放及停止，功能“不少”——算的上播放器了。废话不多说，开编喽……

来，在界面上放上

两个button：button1（text =“播放”，enabled = true）button2（text = “停止”， enabled = false），

两个trackbar：trackbar1（minimum = -5000，maximum = 0）trackbar2（minimum = -10000，maximum = 10000），

一个textBox：textBox1

界面准备好了吗？我们要开始写源码了：

别忘了引用directsound和imports，这里我不多说了，相信大多数人都会了吧，不会的再看上一节，剩下的，继续喽~

首先声明两个全局变量，这两个变量我也不多废话了，不会的请~看~上一节吧。

注意这里，第二个不直接实例化，否则会出错。

Dim devAs New Device

Dim sbAs SecondaryBuffer

声明完了吧，我们要写事件喽~在写播放事件之前，我们首先要在窗体的load事件中将dev设为置为窗体服务：

dev.SetCooperativeLevel(Me,CooperativeLevel.Normal)

还要修改两个值，这两个值是为后面的调节声道和音量作准备的，只有

Enb_DS.ControlVolume = True

的时候，调节声音才有效，否则调节音量会出错的。

同理，只有

Enb_DS.ControlPan = True

的时候，调节声道才有效，否则也会出错。总的load事件的代码：