vb.net2008 Direct编程(三)音乐播放器——第一部分

前端之家收集整理的这篇文章主要介绍了vb.net2008 Direct编程(三)音乐播放器——第一部分前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

vb2008 Direct编程之音乐播放器

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

来,在界面上放上

两个buttonbutton1text =“播放”,enabled = truebutton2text = “停止 enabled = false),

两个trackbartrackbar1minimum = -5000maximum = 0trackbar2minimum = -10000maximum = 10000),

一个textBoxtextBox1

界面准备好了吗?我们要开始写源码了:

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

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

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

Dim devAs New Device

Dim sbAs SecondaryBuffer

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

dev.SetCooperativeLevel(Me,CooperativeLevel.Normal)

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

Enb_DS.ControlVolume = True

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

同理,只有

Enb_DS.ControlPan = True

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

转自《 http://hi.baidu.com/752664788/blog/item/bf80eaecf85ea54678f055a4.html 原文链接:https://www.f2er.com/vb/259776.html

猜你在找的VB相关文章