锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net获取系统音量 vba播放声音

IT技术音量

vb.net控制系统音量Imports System.Runtime.InteropServices
Public Class Form1
Private mute As Integer = H80000
Private up As Integer = HA0000
Private down As Integer = H90000
Private WM_APPCOMMAND As Integer = H319
DllImport("user32.dll") _
Public Shared Function SendMessageW(hWnd As IntPtr, Msg As Integer, wParam As IntPtr, lParam As IntPtr) As IntPtr
End Function
'加大
Private Sub btnUp_Click(sender As System.Object, e As System.EventArgs) Handles btnUp.Click
SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr(up))
End Sub
'减小
Private Sub btnZero_Click(sender As System.Object, e As System.EventArgs) Handles btnZero.Click
SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr(mute))
End Sub
'静音
Private Sub btnDown_Click(sender As System.Object, e As System.EventArgs) Handles btnDown.Click
SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr(down))
End Sub
End Class
vb 获得系统音量代码 要WIN7,XP都能用的 急 有重谢我自己在用的代码，VBXP SP3通过，WIN7应该也能用的，毕竟VB的API还是支持的 。
添加一个TEXT1和一个按钮COMMAND1控件，TEXT1存放音量
'您可以使用API函数waveOutGetVolume来得到当前Wave播放设备的音量
'HFFFF时音量最大，设为H0000时最小
Private Declare Function waveOutGetVolume Lib "Winmm.dll" (ByVal uDeviceID As Long, lpdwVolume As Long) As Long
Private Declare Function waveOutSetVolume Lib "Winmm.dll" (ByVal wDeviceID As Integer, ByVal dwVolume As Long) As Integer
Private Sub Command1_Click()
Dim a, i As Long
a = waveOutGetVolume(0, i)
Text1 = CLng("h"Right(Hex$(i), 4))
End Sub
VB.net如何加载音效？方法一：调用系统DLL（这个有点不完善 ， 也就是播放声音时窗体无法控制，效果相当于Enabled=true，但音频播放完毕后就没事了）
Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim SoundFile As String, Result As Long
SoundFile = "D:\KuGou\Pianoboy - 第105天.wav" '此处为路径
Result = sndPlaySound(SoundFile, 0)
End Sub
方法二：使用WindowsMediaPlayer（WindowsMediaPlayer1的可见为False）
先添加一个windowsmediaplayer控件（工具箱里没有 ， 需要手动添加）
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WindowsMediaPlayer1.visible=False
Me.WindowsMediaPlayer1.URL = "D:\KuGou\Pianoboy - 第105天.mp3"
End Sub
上面的都是点击button1（按钮1）后播放声音，若是鼠标移动到某控件上发出声音的话改一下触发事件就OK了 。
多媒体 音频 声音 音量 大小 如何得到系统实时音量大?。肰B.net易的win7声音控制软件 ， 驱动程序 ， 设置，文件，注册表四个方面，震动，如看它是否可以恢复全面检查，案件的接口是坏的，这是为配件
首先，请检查声音卡驱动程序，右键单击“我的电脑” - 属性 - 硬件 - 设备管理器 - 声音 ， 视频和游戏控制器 - 右击 - ReaItek - 更新或扫描，卸载并重新安装 。（如果你下载的驱动程序生命没有驱动程序包 - 驱动更新 - 声音，视频 - 开始更新 - 自动找到的官方驱动程序 - 重新启动计算机 。）
【vb.net获取系统音量 vba播放声音】调试麦克风：控制面板 - 高清晰音频配置 - 混频器 - 重放 - 小扳手 - 选择 - 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
publicstaticexternlongwaveOutSetVolume(longdeviceID,longVolume);
在winmm.dll中
第一个参数可以为0vb.net获取系统音量，表示首选设备
第二个参数为音量:0xFFFF为最大vb.net获取系统音量，0x0000为最小vb.net获取系统音量，其中高位（前两位）表示右声道音量 ， 低位（后两位）表示左 声道音量。
2、弹出系统音量调节框
ProcessStartInfo Info=new ProcessStartInfo();
Info.FileName = "Sndvol32";
Process.Start(Info);
vb.net获取系统音量的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba播放声音、vb.net获取系统音量的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：net存数据库，数据库怎么存图片

    下一篇：怎么填写excel内容，xls表格如何填写内容