vb.net调节声音大小 excel vba 声音

如何用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) '播放音乐

相关问答

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

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

SoundFile.wav是vb.net调节声音大小你要播放vb.net调节声音大小的声音文件的路径

Q2: 多媒体 音频 声音 音量 大小 如何得到系统实时音量大小，用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“。重新启动计算机。

Q3: vb中怎样自动控制电脑声卡的音量调节

在一个多媒体应用程序中，如果涉及对声音的播 放与操作，那么我们就有必要先对用户系统中的声卡 及真功能进行一下测试。幸好有VB，所以我们要实现 这些功能并不用费多大力气（也就是吃顿饭的力气）， 在下面的程序中我们将利用VB调用两个windows Api函数--Waveoutgetnumdevs()和Waveoutgetdev- capS()来访问设备驱动程序，获取有关信息，实现上述 目的。OK，Let's Go! 一、我们先要捡测一下声卡是否存在 1．新建一工程并添加模块Module1.bas，在其声 明部分加入如下代码： Declare Function Waveoutgetnumdevs Lib"Winmm.Dll"() as Long Public Const Mb_ok= H40 2.在窗体上添加一个命令按钮cmdtest，设置Caption的属性为“测试声卡” 3.在窗体的通用声明部分加入一函数testcard,代码如下： Public Function Testcard() As Boolean Dim Y As long Dim Find As String Find = “Fied Sound Blaster Card" Y = Waveoutgetnumdevs() If Y 0 Then Testcard = True Msgbox "啥啥，我找到你了--声卡!", Mb_ok,Find Else Testcard = Falsc Msgbox "未发现设备",Mb_ok,Find End if End Function 4.在命令按钮的单击事件中加入代码: Private sub Cmdtest_Click() Dim Existent As Boolean Existent =Testcard End sub 现在你可以运行这个程序试试看了，它会检测你 的系统中是否有声卡的存在。 二、测试声卡的功能 既然已经发现了声卡的存在，接下来就要测试一 下它的功能。为什么？举个例子来说，老式声卡支持的 采样率和位分辨率是远不及现在声卡的，如果你试图 用只有8位分辨率和22.05KHz采样率的声卡来播放 44.1KHz、16位立体声的声音文件，嘿嘿……有你好 看（其实也没啥大不了的）。好，你大胆的往下看。 1．在窗体上加入picturebox控件picture1。 2．在Module1.bass的声名节中加入代码： Declare Function Waveoutgetdevcaps Lib "Winmm.dll" Alias"Waveoutgetdevcapsa"（ByvaI Udcviceid As Long，Lpcaps As WaveOutcaps， ByvaI Usize As Long） As Long '参数1指定被测设备。由于一台PC上装有几个音频设 备是完全可能的，所以Windows自动给每个设备编号，第一 个可用设备号为0。 '参数2是一个Waveoutcaps结构的指针。 '多数3是第二个参数的大小。 Public Const Maxpnamelen = 32 Public Const Wave_Format_1m08 = H1 Public Const Wavp_Format_1ml6 = H4 Public Const Wave_Format_1s08 = H2 Public Const Wave_Format_1sl6 = H8 Public Const Wavc_Format_2m0B = H1O Public Const Wave_Format_2m16 = H40 Public Const Wave_Format_2s08 = H20 Public Const Wave_Format_2s16 = H80 Public Const Wave_Format_4m08 = H100 Public Const Wave_Format_4ml6 = H400 Public Const Wave_Format_4s08 = H200 Public Const Wave_Format_4s16 = H800 Public Const Wavecaps_Lrvolume = H8 Public Const Wavecaps_Pitch = H1 Public Const Wavecaps_Playbackrate = H2 Public Const Wavecaps_Sync = H10 Public Const Wavecaps_Volume = H4 Type WaveoutCaps Wmid As Integer '设备驱动程序厂商标识 Wpid As Integer '声卡厂商标识 Vdriverversion As Long '驱动程序版本号，高字节为主版 本号，低字节为次版本号 Szpname As String ＊ Maxpnamelen '产品名称 Dwformats As Long '支持的wave格式，每一位代表一 种格式 Wchannels As Integer '返回整型值1（单声道）或2（立体 声） Dwsupport As Long '设备支持的扩展输出功能 End Type 3. 在窗体的声明节内增加两个函数： '函数 listwaveformat 检测波形音频支持的格式 Public Function Listwaveformat(Aboutwave As long) As String Dim Waveformat As String Select Case Aboutwave Case Wave_Format_1m08 Waveformat = "11.025khz, Mono, 8bit, 11kb/Ps" Case Wave_Format_1m16 Waveformat = "11.025khz, Mono, 16bit, 22kb/Ps" Case Wave_Format_1s08 Waveformat = "11.025khz, Stereo, 8bit, 22kb/Ps" Case Wave_Format_1s16 Waveformat = "11.025khz, Stereo, 16bit, 43kb/Ps" Case wave_Format_2m08 Waveformat = "22.05khz, Mono, 8bit, 22kb/Ps" Case Wavc_Format_2m16 Waveformat = "22.05khz. Mono,16bit, 43kb/Ps" Case Wave_Format_2s16 Waveformat = "22.05khz, Stereo, 8bit, 43kb/Ps" Case Wave_Format_2s16 Waveformat = "22.05khz, Stereo, 16bit, 86kb/Ps" Case Wave_Format_4m08 Waveformat = "44.1khz, Mono, 8bit, 43kb/Ps" Case Wave_Format_4m16 Wavcformat = "44.lkhz, Mono, 16bit, 86KB/Ps" Case Wave_Format_4s08 Waveformat = "44.lkhz, Stereo, 8bit, 86kb/Ps" Case Wavc_Format_4s16 Waveformat = "44.lkhz. Stereo, 16bit, 172kb/Ps" End Select Listwaveformat = Waveformat End Function '函数 Listwavesupport 检测设备支持的扩展输出功能 Public Function Listwavesupport(Aboutwave As long) As String Dim Wavefun As String Sclect Case Aboutwave Case Wavecaps_Pitch Wavefun = "Support Pitch" Casc Wavecaps_Playbackrate Wavefun = "Support Playback" Case Wavecaps_Volume Wavefun = "Support Volume Control" Csae Wavecaps_Lrvolume Wavefun = "Support Left - Right Channals" Csae Wavecaps_sync Wavcfun = "Support Synchronization" End Select Listwavesupport = Wavefun End Function 4. 修改 cmdtest_Click 事件的代码为: Private Sub Cmdtest_Click() Dim Existent As Boolean Dim Consequence As long Dim Returncaps As Waveoutcaps Dim Rainver As Long Dim Lesservcr As long Dim Pname As String * 32 Dim Aboutwave As long Dim Channel As String * 2 Dim I As lnteger Existent = Testcard If Existent Then Consequence = Waveoutgetdevcaps(0, Returncaps, Len (Returncaps)) If Consequence = 0 Then Mainver = Returncaps.Vdriverversion \ 256 Lesserver = Returncaps.Vdriverversion Mod 256 '因为API在返回Returncaps.szpname 时在返回值与空格之 间会插入一个空的终止符，用Rtrim$会返回一个0终止字符 串，所以我们采用Instr+Left$的方法. Pname = Left$ (Returncaps.Szpname,Instr(Returncaps .Szpname, Chrr$(0))-1) Channe1 = Str$ (Returncaps.Wchannels) Picture1.Print "产品名称:"; Pname Picture1.Print "产品 Id:"; Returncaps.Wpid Picture1.Print "驱动程序 Id:"; Returncaps.Wrmid Picture1.Print "驱动程序版本:"; Mainver; "."; Lesserver Picture1.Print "输出声道:"; Channel Picture1.Print "支持格式列表:" For I = 0 TO 11 If Returncaps.Dwformats And (2^I) Then Picture1.Print Listwaveformat (2^I) End if Next I Picture1.Print "扩展输出功能列表:" For l = 0 To 4 If Returncaps.Dwsupport And (2^I) Then Picture1.Print Listwavesupport(2^I) End if Next I End if Else End End if End Sub 5. 为 Form_load 事件加入 代码: Private Sub Form_Load() Picture1.Cls End Sub 本程序在Win95(osr2)、 VB5企业版下调试通过，在 win3.2 下仅仅两个API函数 略有改变，照猫画虎即可。 好了，工作已经全部做完了。现在你要做的只是按下 F5

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

1.定义变量记录键是否被按下vb.net调节声音大小，按下vb.net调节声音大小的累计时间

Dim 按下A键  As Boolean

Dim 按下A键时间 As Integer

2.添加一个TextBox1用于接收键盘事件，或者直接用窗体vb.net调节声音大小的键盘事件(确保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调节声音大小和excel vba 声音的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。