vb2008 Direct编程之音乐播放器
又是新的一篇教程，来看看题目，很吸引人是吧，那就让我们来show一场，编写一个自己的音乐播放器。先来看一下我们的音乐播放器的功能——调节声道，调节音量，播放及停止，功能“不少”——算的上播放器了。废话不多说，开编喽……
来，在界面上放上
两个button：button1（text =“播放”，enabled = true）button2（text = “停止”， enabled = false），
两个trackbar：trackbar1（minimum = -5000，maximum = 0）trackbar2（minimum = -10000，maximum = 10000），
界面准备好了吗？我们要开始写源码了：
别忘了引用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事件的代码：