如何用vb控制系统的声音

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：空间域名、虚拟空间、营销软件、网站建设、横山网站维护、网站推广。

Private Declare Function waveOutGetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, lpdwVolume As Long) As Long

Private Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long

Dim vol1

i = waveOutSetVolume(0, -1) '最大音量

i = waveOutSetVolume(0, 1100000000) '音量适中

i = waveOutSetVolume(0, 0) '音量小

i = waveOutSetVolume(0, vol1) '恢复原始音量

k = App.Path + "\*.wav" '播放音乐

L = H1 Or H2 '识别标识

i = sndPlaySound(k, L) '播放音乐

vb.net的，按键连续触发事件，比如，按着键不放，音量增大。

1.定义变量记录键是否被按下，按下的累计时间

Dim 按下A键  As Boolean

Dim 按下A键时间 As Integer

2.添加一个TextBox1用于接收键盘事件，或者直接用窗体的键盘事件(确保KeyPreview为True)

在KeyDown事件中添加如下代码：

If e.Keycode = keys.A Then 按下A键 = True

在KeyUp事件中添加如下代码：

If e.Keycode = keys.A Then 按下A键 = False

3.添加一个Timer1控件，调整Timer1的Interval来决定按键频率，记得要把Timer1.Enable开启

在Tick事件中添加如下代码：

If 按下A键 = True

按下A键时间+=1

Call 音量设置(按下A键时间 * 10)

End If

PS: 按下的秒数 = 按下A键时间*Timer1.Interval / 1000

多媒体 音频 声音 音量 大小 如何得到系统实时音量大小，用VB.net易的win7声音控制软件，

驱动程序，设置，文件，注册表四个方面，震动，如看它是否可以恢复全面检查，案件的接口是坏的，这是为配件

首先，请检查声音卡驱动程序，右键单击“我的电脑” - 属性 - 硬件 - 设备管理器 - 声音，视频和游戏控制器 - 右击 - ReaItek - 更新或扫描，卸载并重新安装。 （如果你下载的驱动程序生命没有驱动程序包 - 驱动更新 - 声音，视频 - 开始更新 - 自动找到的官方驱动程序 - 重新启动计算机。）

调试麦克风：控制面板 - 高清晰音频配置 - 混频器 - 重放 - 小扳手 - 选择 - OK - - 后粉红色 - X'静音，推高了麦克风插孔前面板 - 选择 - OK，然后打X麦克风静音，然后在右边拉点音频I/O--小扳手 - 选择“禁用前面板插孔检测 - OK - 返回混频器 - 录制 - 小扳手 - 点击麦克风的音量（版本不一致需打X-静音立体声混音）

加强麦克风：右键单击右下角的小喇叭（小喇叭的音量上） - 调整音频属性 - 音量 - 设备音量 - 高级 - （主音??量全推到上） - 选项 - 属性 - 麦克风音量打勾 - 确定返回选项 - 高级控制 - 高级 - 麦克风加强了钩。

右下角的小喇叭显示：开始---设置---控制面板 - 声音和音频设备 - 音量 - （勾选）将音量图标放入任务栏上。

5。在网页中，网页声音的操作方法：打开网页 - 工具 - 选项 - 高级 - （勾选）播放的声音。

6。游戏耳机出声来：控制面板---高清晰音频配置 - 音频I/O--耳机 - 选举8CH喇叭。

7。前部和后部面板插孔调试：控制面板 - 高清晰音频配置 - 音频I/O--模拟 - 后面板插孔图标 - 单击 - 你插入的设备吗？ （需插入的设备，如插耳机） - 当选耳机 - OK，所以

8。使用QQ聊天的语言时，MIC音量无法调整，请下载补丁。

9，如声卡驱动安装不上的解决方法：控制面板 - 管理工具 - 服务 - Windows音频 - 启动类型设置为“自动”重新启动它。

10。注册表的方法：

开始 - 运行 - 输入regedit打开注册表，然后单击“打开HKEY_LOCAL_MACHINE \ SOFTWARE \微软\的Windows \ CurrentVersion \ Run在右侧窗口中新建字符串”系统托盘“点右键（在运行于新的）键（在系统托盘中双击编辑）“C：\ WINDOWS \ SYSTEM32 \ Systray.exe”win2000系统，或“C：\ WINNT \ SYSTEM32 \ Systray.exe”

开始 - 运行 - 输入regedit打开注册表，然后单击“打开HKEY_LOCAL_MACHINE \ SOFTWARE \微软\ WINDOWSNT \ CURRENTVERSION \ Drivers32创建一个新的字符串值，命名为”wavemapper“值”msacm32。DRV“。重新启动计算机。

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);

网站题目：vb.net调节声音大小 vbs70声音
转载来于：http://csdahua.cn/article/doihgge.html