在vb.net里添加音效 vb添加背景音乐

vb.net设置音量

调用系统Api

[DllImport("winmm.dll")] //引用winmm.dll

public static extern long waveOutSetVolume(long deviceID, long Volume);

在winmm.dll中

第一个参数可以为0，表示首选设备

第二个参数为音量:0xFFFF为最大，0x0000为最小，其中高位（前两位）表示右声道音量，低位（后两位）表示左 声道音量 。

2、弹出系统音量调节框

ProcessStartInfo Info=new ProcessStartInfo();

Info.FileName = "Sndvol32";

Process.Start(Info);

相关问答

Q1: 如何在VB里加入声音?

在一个新建的窗体中，加入一个MMControl控件

控件在工具箱空白处点击右键--〉部件---〉Microsoft

Multimedia

Control

6.0

在窗体中添加下面这段代码:

Private

Sub

Form_Load()

MMC.FileName

=

App.Path

+

"\*.mp3"

MMC.Command

=

"Open"

MMC.Command

=

"Play"

End

Sub

Q2: vb.net中如何播放声音，是要什么控件嘛？

My.Computer.Audio.Play("SoundFile.wav")

SoundFile.wav是你要播放的声音文件的路径

Q3: 想在vb.net的程序中有一个语音提示，该怎么写

首先添加一个系统在vb.net里添加音效的语音COM组件的引用microsoft speech object library然后在程序中声明一个语音类dim RC As SpeechLib.SpSharedRecoContext这个类有一些事件,如果你要处理它的一些事件,可以用withevent来声明然后在窗体LOAD事件或你需要的地方先创建一个实例RC = New SpeechLib.SpSharedRecoContext当一个RC被实例化后,系统就会运行语音识别程序.前提是你的系统已经正确安装这个功能.一般默认就已经安装好的.其次提醒一下,WIN7的语音识别比XP的好N倍.从阅读到侦听都好很多.然后就可以在你需要阅读的地方使用RC.Voice.Speak("hello 在vb.net里添加音效我", 11)11那里是一些枚举,用来标识系统用前台还是后台或其他方式来阅读文字,简单的来说就是阅读的时候不会卡住你的程序.你可以选其他的枚举来试试作用.以上为阅读部分.如果需要程序听你说话,则需要声明一个侦听类dim RG As SpeechLib.ISpeechRecoGrammar在初始化时将之与上面的RC建立关系,此时则必须要用withevent来声明上面的RC,因为涉及电脑听到你的语音后,会触发一个事件,并将听到的内容传递到该事件.其次,要让系统听到的解析为命令,就必须准备一个XML结构的文件来保存那些固定的命令.如果电脑在XML文件中找不到那些固定命令或同时不属于系统命令,电脑将会将其解释为听写.RG = RC.CreateGrammar '(0)

RG.CmdLoadFromFile("听到.xml", SpeechLib.SpeechLoadOption.SLODynamic)

RG.CmdSetRuleIdState(0, SpeechLib.SpeechRuleState.SGDSActive)然后写一个过程来处理听到的事件Private Sub 听到命令(ByVal StreamNumber As Integer, ByVal StreamPosition As Object, ByVal RecognitionType As SpeechLib.SpeechRecognitionType, ByVal 话语 As SpeechLib.ISpeechRecoResult) Handles RC.Recognition RC.Voice.Speak("我听到在vb.net里添加音效了" 话语.PhraseInfo.GetText, 11)End Sub以上为侦听部分.下面列一个XML的例文?xml version="1.0" encoding="gb2312"?

GRAMMAR LANGID="804"

RULE NAME="命令" TOPLEVEL="ACTIVE"

L

P打开播放器

P上我的QQ

P关闭你自己 /L

/RULE

/GRAMMAR要让系统正确地侦听到你说的话,前提你必须运行语音识别程序并让其激活到"正在聆听"状态.并且你必须有一个能正常使用的话筒而且保证话筒已经打开.(废话-_-|||)以上就是用VB.NET语音识别的最基本的一些操作.希望对你有帮助.更深入的内容有兴趣的话可以和我一起研究.

Q4: 怎么在VB中播放音效

'//透明代码 '//模块。也可以写成private窗体级函数 '//上边为api函数。下边几个是常量 Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Const GWL_EXSTYLE = (-20) Public Const WS_EX_LAYERED = H80000 Public Const LWA_ALPHA = H2 '//窗体 Private Sub Form_Load() Dim rtn As Long rtn = GetWindowLong(hwnd, GWL_EXSTYLE) rtn = rtn Or WS_EX_LAYERED SetWindowLong hwnd, GWL_EXSTYLE, rtn SetLayeredWindowAttributes hwnd, 0, 150, LWA_ALPHA '//150为透明度。越小透明度越大。0-255 End Sub '****下边为播放音效。说白在vb.net里添加音效了不用在vb.net里添加音效的格式所用的api不一样。api里边可以用过的有wav mp3.好像mid。其在vb.net里添加音效他就不知道在vb.net里添加音效了。有些是不可以直接调用。要解码。比如视频 '//直接放模块中。根据过程来调用。如点击按钮command1播放 Private sub Command1_click () 音乐'//这样就可以在vb.net里添加音效了。音乐是1.mp3 目录是在当前app.path和程序同一个目录。。要更换改一下即可。 End Sub Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Public Sub 音乐() Dim Res As Integer, Ret As String * 1024 If blnBaojing = False Then Exit Sub 'Res = mciSendString("play " APP.PATH "Shili.wav from 3000 to 8000", Ret, 1024, 0) Res = mciSendString("play " APP.PATH "1.mp3", Ret, 1024, 0) '整首播放 End Sub Public Sub 停止播放() Dim Res As Integer, Ret As String * 1024 Res = mciSendString("STOP " APP.PATH "1.mp3", Ret, 1024, 0) Res = mciSendString("close all", Ret, 1024, 0) End Sub

关于在vb.net里添加音效和vb添加背景音乐的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。