音量控制程序下载？求一个自动控制电脑音量的VB程序
- 跳转官网下载下载点击免费下载
大家好，今天来为大家分享音量控制程序下载的一些知识点，和求一个自动控制电脑音量的VB程序的问题解析，大家要是都明白，那么可以忽略，如果不太清楚的话可以看看本篇文章，相信很大概率可以解决您的问题，接下来我们就一起来看看吧！
安卓手机怎么调试音量
调节音量方法：
1、调节闹钟、媒体、通知、铃声音量：
进入设置--声音与振动/声音、振动与静音键--分别左右拖动“媒体”、“通知”、“铃声”、“闹钟”的指示条即可调节音量的大小；
2、调节通话音量：
在通话过程中，按音量加减键即可调节通话音量；
3、应用音量单独调节：
进入设置--声音与振动--应用音量单独调节，开启“应用音量单独调节”后的开关，当需要单独调节应用音量时，按下音量键，点击音量面板上方箭头，展开后可单独调节应用声音大小；同时还可开启“记住调节结果”，设置更符合使用习惯的音频体验。
目前支持应用音量单独调节的机型：iQOO Neo7和后续安卓13及以上的机型。
若有更多疑问，可进入vivo官网/vivo商城APP--我的--在线客服或者vivo官网网页版--下滑底部--在线客服--输入人工客服进入咨询了解。
电脑上的音量怎么调
电脑音量控制怎么设置
全部调到中线上
电脑音量那里应该怎么设置。
讲一下音量控制。第一步,我们找到音量控制的按钮，首先，打开开始菜单，找到程序子菜单，右光标展开，再用上下光标找到附件子菜单，右光标展开，上下光标找到娱乐子菜单，右光标展开，上下光标找到音量控制，回车就能打开了；第二步，我介绍一下关于音量控制里的一些情况，音量控制总共分成两部分，我们可以把它设想成两个区域，一区域是播放的音量控制，第二个区域，就是录音的音量控制。总之，大家记住两边的音量设置是有不同用处的，下面我说一下具体的音量设置，接上面的话往下说，我们打开了音量控制，默认是在播放这一边的，也就是说在这里我们可以设置播放这边的音量设置，用tab可以切到很多的内容,每一个内容的后面都有调节滑快，用上下光标和上下翻页键，可以调节数值，最重要的当然是这里的麦克风，注意这里的麦克风和录音里的麦克风功能是不一样的哦，大家不要糊涂了，音量控制里总共有两个麦克风，一个是播放这一边的，另一个是在录音那边的，播放这边的麦克风如果你要在聊天室唱歌，一定不要把这个麦克风给静音，大家可以用tab切到麦克风的地方看看，在麦克风的下面就是这个麦克风静音和不静音的复选框，还有这里面的波形音量，是调节整个电脑的系统声音的，还有一个高级按钮，如果你的麦克风开到最大还是没有什么声音，就要用到高级按钮了，你打开高级按钮，里面有两个复选框，大家可以把他选中然后再去测试一下你的麦克风，声音可能就大多了。当然不同的声卡，这里面的内容可能有所不一样，大家只要一看就会明白的。有人要问了，我没看到有高级阿，别着急,如果没找到高级,请安一下alt，上光标找到高级,回车把他打上沟,，再用tab就能找到了。好了，在播放这里我们只要设置这些就差不多了，接下来我们去看看录音那边，在播放这边的界面上，我们按一下alt，上光标找到属性，回车打开，打开以后，用tab切一下，会听到播放当选按钮选中，在这里我们用上下光标,找到录音当选按钮选中，回车打开，这样我们就到了录音音量设置的这一边，同样的用tab可以切到很多的内容，这里我们最重要的是怎么样打开系统声音，也就是所谓的混响，因为我们在聊天室唱歌是一定要选中系统声音的，要不然别人只能听到你人的声音，听不到伴奏的声音。前面说了录音这里面也有一个麦克风，注意这里的麦克风和系统声音是玩跷跷板的，也就是说你如果选中了系统声音，那么这里的麦克风就会自动的关闭，也就是在前面说为什么在聊天室唱歌一定不能把播放那边的麦克风给静音的道理了，好了这下大家明白了。虽然这里打开系统而关闭了这里的麦克风，但是我们只要不把播放里的麦克风静音，你唱的歌声和伴奏就可以一起传入大家的耳中了，大家可能找不到打开系统声音的按钮吧，对了，因为不同的声卡这里面的显示内容是不一样的，如果是中文的，大家就可以看到，有混响或者立体声，这样的字；,如果是英文的，我拿我的声卡来举个例子，我的声卡是Stereo,Mix,音量:23,,这就是我的声卡系统混响的英文，大家可以自己去摸索一下，你可以看看哪个和麦克风玩跷跷板，八九不离十就是他了，只要把他选中，再看看播放里的麦克风只要没有静音，那你就可以在聊天室里给大家唱歌了。最后还有一个重要的说一下，有人可能打开音量控制在里面找不到麦克风和其他一些内容，不要急，如果你没找到你要找的内容那就是这个内容的沟没打上，我们去把他打上沟就什么都有了，在音量设置的界面，按一下alt，上下光标找到属性，回车打开，tab切一下，听到播放当选按钮选中，好，再用tab切一下，注意了，这里是一个列表，上下光标可以看到很多内容，你把这里面没有打上勾的给他打上，或许你看到这里面的麦......
电脑声音怎么调啊？
电脑没有声音，最常见的是驱动问题电脑没有声音(一般与声卡驱动有关）了怎么办?
右下角没有声音控制图标（一般与多媒体管理驱动有关）了怎么办？或者是没有设置在桌面显示。这可以通过控制面板进入设置
我来帮你驱动安装方法，绝对好用：
1.下载最新版的驱动人生
2.安装后--驱动更新--多媒体管理驱动（或者声卡驱动）等就会出现更新就是驱动管理软件那些有个叹号的都表示没有安装。都下载更新，20分钟搞定（打开驱动更新项目，看那些可以更新或者没有安装的后面点击下载并安装就可以了）
3.安装完后卸载驱动人生
4.使用得当，人格保证
5.驱动人生下载地址 updrv/
第二步特别说明：如果显示无声卡驱动或者多媒体管理驱动更新，可以先卸载原来驱动’卸载在我的电脑属性-硬件-设备管理器里面进行，或者在驱动人生里也可以进行，再试试就会有驱动更新如果还不行，就是硬件原因，或者外置音箱设备问题只有拿去修理
如何将电脑声音调大
"开始”-“控制面板”-“声音与音频设备”通过这个可能调节音量。
开始-控制面版-声音语音和音频设备-声音和音频设备-将音量图标放入任务栏（打上勾，如果已经打上勾了的话先去掉勾确定在进去打上勾确定就OK了）
这样任务栏里就有了呀
那就下载一个“音量控制程序”，看它还有什么话说的！！
电脑音量控制在哪里
如果是刷新率设置过低，会导致屏幕抖动，检查方法是用鼠标右键单击系统桌面的空白区域，从弹出的右键菜单中单击“属性”命令，进入到显示器的属性设置窗口。单击该窗口中的“设置”标签，在其后弹出的对应标签页面中单击“高级”按钮，打开显示器的高级属性设置界面，再单击其中的“监视器”标签，从中可以看到显示器的刷新频率设置为“60”，这正是造成显示器屏幕不断抖动的原因。将新频率设置为“75”以上，再点击确定返回桌面就可以了。
音量控制在电脑里的哪里设置？
最礌接的方法是在电脑的右下角，那个小喇叭就是，单击可以直接设置音量，双击有更多功能。
另外一种方法是：电脑左下角点开始——>控制面板——>声音、语音和音频设备就可以找到
怎样调整电脑上的声音设置
如何对系统声音进行选择与设置系统声音的选择与设置就是为系统中的事件设置声音，当事件被激活时系统会根据用户的设置自动发出声音提示用户。选择系统声音的操作步骤如下：(1)在“控制面板”窗口中双击“声音及音频设备”图标，打开“声音及音频设备”属性对话框，它提供了检查配置系统声音环境的手段。这个对话框包含了音量、声音、音频、语声和硬件共5个选项卡。
(2)在“声音”选项卡中，“程序事件”列表框中显示了当前Windows XP中的所有声音事件。如果在声音事件的前面有一个“小喇叭”的标志，表示该声音事件有一个声音提示。要设置声音事件的声音提示，则在“程序事件”列表框中选择声音事件，然后从“声音”下拉列表中选择需要的声音文件作为声音提示。
(3)用户如果对系统提供的声音文件不满意，可以单击“浏览”按钮，弹出浏览声音对话框。在该对话框中选定声音文件，并单击“确定”按钮，回到“声音”选项卡。
(4)在Windows XP中，系统预置了多种声音方案供用户选择。用户可以从“声音方案”下拉表中选择一个方案，以便给声音事件选择声音。
(5)如果用户要自己设置配音方案，可以在“程序事件”列表框中选择需要的声音文件并配置声音，单击“声音方案”选项组中的“另存为”按钮，打开“将方案存为”对话框。在“将此配音方案存为”文本框中输入声音文件的名称后，单击“确定”按钮即可。如果用户对自己设置的配音方案不满意，可以在“声音方案”选项组中，选定该方案，然后单击“删除”按钮，删除该方案。
(6)选择“音量”选项卡，打开“音量”选项卡。你可以在“设备音量”选项组中，通过左右调整滑块改变系统输出的音量大小。如果希望在任务栏中显示音量控制图标，可以启用“将音量图标放入任务栏”复选框。
(7)你想调节各项音频输入输出的音量，单击“设备音量”区域中的“高级”按钮，在弹出的“音量控制”对话框里调节即可。这里列出了从总体音量到CD唱机、PC扬声器等单项输入输出的音量控制功能。你也可以通过选择“静音”来关闭相应的单项音量。
(8)单击“音量”选项卡中的“扬声器设置”区域中的“高级”按钮后，在弹出的“高级音频属性”对话框你可以为自己的多媒体系统设定最接近你的硬件配置的扬声器模式。
(9)在“高级音频属性”对话框中选择“性能”选项卡，这里提供了对音频播放及其硬件加速和采样率转换质量的调节功能。要说明的是，并不是所有的选项都是越高越好，你需要根据自己的硬件情况进行设定，较好的质量通常意味着较高的资源占有率。
电脑上的主音量怎么调才是最好的？ 5分
线路音量一般不用，可以选择“静音”，其它的根据实际需要选择就行川，没有最好之说。但建议主音量最好不要搞到最大。
酷狗音乐电脑版上的音量怎么调啊？
方法一：查看是否是酷狗音乐盒设置了静音；
打开酷狗音乐盒，在音乐盒的首页找到声音，查看这里是否被设置成静音了，如图；
方法二：查看是否你电脑音频把酷狗音乐盒设置为静音了；
左键点电脑任务栏上的声音小图标，选择“合成器”，如图；
进入合成器，在这里找到酷狗音乐盒，在这里查看是否被设置为静音了，如图；
方法三：如果上述方法都不能解决，那可能是软件损坏，建议重新安装最新版的酷狗音乐盒，如图；
怎么把电脑声音调大?
电脑声卡输出的音频信号紶很低的。这就是为什么电脑要用有源音响（音响本身带功率放大器），用耳机的话，如果耳机阻抗比较高，声音就会变得很小，如果硬要用软件提高音量的话会对音质造成损失，建议你去买个耳机放大器，这样在不损伤音质的前提下可以增加音量！！
求一个自动控制电脑音量的VB程序
添加一个类模块,设置其Name属性为clsvolume，输入以下代码
Option Explicit
Private hmem As Long
Const MMSYSERR_NOERROR= 0
Const MAXPNAMELEN= 32
Const MIXER_LONG_NAME_CHARS= 64
Const MIXER_SHORT_NAME_CHARS= 16
Const MIXER_GETLINEINFOF_COMPONENTTYPE=&H3&
Const MIXER_GETCONTROLDETAILSF_VALUE=&H0&
Const MIXER_SETCONTROLDETAILSF_VALUE=&H0&
Const MIXER_GETLINECONTROLSF_ONEBYTYPE=&H2&
Const MIXERLINE_COMPONENTTYPE_DST_FIRST=&H0&
Const MIXERLINE_COMPONENTTYPE_SRC_FIRST=&H1000&
Const MIXERLINE_COMPONENTTYPE_DST_SPEAKERS= _
(MIXERLINE_COMPONENTTYPE_DST_FIRST+ 4)
Const MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE= _
(MIXERLINE_COMPONENTTYPE_SRC_FIRST+ 3)
Const MIXERLINE_COMPONENTTYPE_SRC_LINE= _
(MIXERLINE_COMPONENTTYPE_SRC_FIRST+ 2)
Const MIXERCONTROL_CT_CLASS_FADER=&H50000000
Const MIXERCONTROL_CT_UNITS_UNSIGNED=&H30000
Const MIXERCONTROL_CONTROLTYPE_FADER= _
(MIXERCONTROL_CT_CLASS_FADER Or _
MIXERCONTROL_CT_UNITS_UNSIGNED)
Const MIXERCONTROL_CONTROLTYPE_VOLUME= _
(MIXERCONTROL_CONTROLTYPE_FADER+ 1)
Private Type MIXERCONTROLDETAILS
cbStruct As Long
dwControlID As Long
cChannels As Long
item As Long
cbDetails As Long
paDetails As Long
End Type
Private Type MIXERCONTROLDETAILS_UNSIGNED
dwValue As Long
End Type
Private Type MIXERCONTROL
cbStruct As Long
dwControlID As Long
dwControlType As Long
fdwControl As Long
cMultipleItems As Long
szShortName As String* MIXER_SHORT_NAME_CHARS
szName As String* MIXER_LONG_NAME_CHARS
lMinimum As Long
lMaximum As Long
reserved(10) As Long
End Type
Private Type MIXERLINECONTROLS
cbStruct As Long
dwLineID As Long
dwControl As Long
cControls As Long
cbmxctrl As Long
pamxctrl As Long
End Type
Private Type MIXERLINE
cbStruct As Long
dwDestination As Long
dwSource As Long
dwLineID As Long
fdwLine As Long
dwUser As Long
dwComponentType As Long
cChannels As Long
cConnections As Long
cControls As Long
szShortName As String* MIXER_SHORT_NAME_CHARS
szName As String* MIXER_LONG_NAME_CHARS
dwType As Long
dwDeviceID As Long
wMid As Integer
wPid As Integer
vDriverVersion As Long
szPname As String* MAXPNAMELEN
End Type
Private Declare Function GlobalAlloc Lib"kernel32"(ByVal wFlags As Long, _
ByVal dwBytes As Long) As Long
Private Declare Function GlobalLock Lib"kernel32"(ByVal hmem As Long) As Long
Private Declare Function GlobalFree Lib"kernel32"(ByVal hmem As Long) As Long
Private Declare Sub CopyPtrFromStruct Lib"kernel32" Alias"RtlMoveMemory" _
(ByVal ptr As Long, struct As Any, ByVal cb As Long)
Private Declare Sub CopyStructFromPtr Lib"kernel32" Alias"RtlMoveMemory" _
(struct As Any, ByVal ptr As Long, ByVal cb As Long)
Private Declare Function mixerOpen Lib"winmm.dll" _
(phmx As Long, ByVal uMxId As Long, ByVal dwCallback As Long, _
ByVal dwInstance As Long, ByVal fdwOpen As Long) As Long
Private Declare Function mixerSetControlDetails Lib"winmm.dll" _
(ByVal hmxobj As Long, pmxcd As MIXERCONTROLDETAILS, _
ByVal fdwDetails As Long) As Long
Private Declare Function mixerGetLineInfo Lib"winmm.dll" _
Alias"mixerGetLineInfoA"(ByVal hmxobj As Long, _
pmxl As MIXERLINE, ByVal fdwInfo As Long) As Long
Private Declare Function mixerGetLineControls Lib"winmm.dll" _
Alias"mixerGetLineControlsA"(ByVal hmxobj As Long, _
pmxlc As MIXERLINECONTROLS, ByVal fdwControls As Long) As Long
Private hmixer As Long
Private volCtrl As MIXERCONTROL'波形音量
Private micCtrl As MIXERCONTROL'麦克风音量
'以下用力保存变量
Private mvarprMicVolume As Long
Private mvarprMicMaxVolume As Long
Private mvarprMicMinVolume As Long
Private mvarprSpeakerVolume As Long
Private mvarprSpeakerMaxVolume As Long
Private mvarprSpeakerMinVolume As Long
Private mvarprMixerErr As Long
Private Function fGetVolumeControl(ByVal hmixer As Long, _
ByVal componentType As Long, ByVal ctrlType As Long, _
ByRef mxc As MIXERCONTROL) As Boolean
'该函数将控制混音效果
Dim mxlc As MIXERLINECONTROLS
Dim mxl As MIXERLINE
Dim hmem As Long
Dim rc As Long
mxl.cbStruct= Len(mxl)
mxl.dwComponentType= componentType
rc= mixerGetLineInfo(hmixer, mxl, MIXER_GETLINEINFOF_COMPONENTTYPE)
If MMSYSERR_NOERROR= rc Then
With mxlc
.cbStruct= Len(mxlc)
.dwLineID= mxl.dwLineID
.dwControl= ctrlType
.cControls= 1
.cbmxctrl= Len(mxc)
End With
'指定一个缓冲区
hmem= GlobalAlloc(&H40, Len(mxc))
mxlc.pamxctrl= GlobalLock(hmem)
mxc.cbStruct= Len(mxc)
rc= mixerGetLineControls(hmixer, mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE)
If MMSYSERR_NOERROR= rc Then
fGetVolumeControl= True
'在目标结构中加入控制
Call CopyStructFromPtr(mxc, mxlc.pamxctrl, Len(mxc))
Else
fGetVolumeControl= False
End If
Call GlobalFree(hmem)
Exit Function
End If
fGetVolumeControl= False
End Function
Private Function fSetVolumeControl(ByVal hmixer As Long, _
mxc As MIXERCONTROL, ByVal volume As Long) As Boolean
'该函数设置控制音量的变量
Dim rc As Long
Dim mxcd As MIXERCONTROLDETAILS
Dim vol As MIXERCONTROLDETAILS_UNSIGNED
With mxcd
.item= 0
.dwControlID= mxc.dwControlID
.cbStruct= Len(mxcd)
.cbDetails= Len(vol)
End With
hmem= GlobalAlloc(&H40, Len(vol))
mxcd.paDetails= GlobalLock(hmem)
mxcd.cChannels= 1
vol.dwValue= volume
'拷贝控制音量的变量到缓冲区
Call CopyPtrFromStruct(mxcd.paDetails, vol, Len(vol))
'设置控制变量
rc= mixerSetControlDetails(hmixer, mxcd, MIXER_SETCONTROLDETAILSF_VALUE)
Call GlobalFree(hmem)
If MMSYSERR_NOERROR= rc Then
fSetVolumeControl= True
Else
fSetVolumeControl= False
End If
End Function
Public Function meOpenMixer() As Long
Dim rc As Long
Dim bOK As Boolean
rc= mixerOpen(hmixer, 0, 0, 0, 0)
mvarprMixerErr= rc
If MMSYSERR_NOERROR<> rc Then
MsgBox"Could not open the mixer.", vbCritical,"Volume Control"
Exit Function
End If
'获取Wave音量控制
bOK= fGetVolumeControl(hmixer, _
MIXERLINE_COMPONENTTYPE_DST_SPEAKERS, _
MIXERCONTROL_CONTROLTYPE_VOLUME, volCtrl)
'如果函数取得对音量的控制
'那么最大、最小音量则和变量lMaximum、lMinimum相符合
If bOK Then
mvarprSpeakerMaxVolume= volCtrl.lMaximum
mvarprSpeakerMinVolume= volCtrl.lMinimum
End If
'获取对麦克风音量的控制
bOK= fGetVolumeControl(hmixer, _
MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE, _
MIXERCONTROL_CONTROLTYPE_VOLUME, micCtrl)
If bOK Then
mvarprMicMaxVolume= micCtrl.lMaximum
mvarprMicMinVolume= micCtrl.lMinimum
End If
End Function
Public Property Get prMixerErr() As Long
prMixerErr= mvarprMixerErr
End Property
Public Property Get prSpeakerMinVolume() As Long
prSpeakerMinVolume= mvarprSpeakerMinVolume
End Property
Public Property Get prSpeakerMaxVolume() As Long
prSpeakerMaxVolume= mvarprSpeakerMaxVolume
End Property
Public Property Let prSpeakerVolume(ByVal vData As Long)
mvarprSpeakerVolume= vData
Call fSetVolumeControl(hmixer, volCtrl, vData)
End Property
Public Property Get prSpeakerVolume() As Long
prSpeakerVolume= mvarprSpeakerVolume
End Property
Public Property Get prMicMinVolume() As Long
prMicMinVolume= mvarprMicMinVolume
End Property
Public Property Get prMicMaxVolume() As Long
prMicMaxVolume= mvarprMicMaxVolume
End Property
Public Property Let prMicVolume(ByVal vData As Long)
mvarprMicVolume= vData
Call fSetVolumeControl(hmixer, micCtrl, vData)
End Property
Public Property Get prMicVolume() As Long
prMicVolume= mvarprMicVolume
End Property
调用实例
sub form_load()
Set MyVolume= New clsVolume
MyVolume.meOpenMixer
MyVolume.prSpeakerVolume= MyVolume.prSpeakerMaxVolume
end sub
如果你还想了解更多这方面的信息，记得收藏关注本站。