'按钮一是音量增加,按钮二是音量减少,按钮三是静音切换.
Option Explicit
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Private Const WM_APPCOMMAND As Long = &H319
Private Const APPCOMMAND_VOLUME_UP As Long = 10
Private Const APPCOMMAND_VOLUME_DOWN As Long = 9
Private Const APPCOMMAND_VOLUME_MUTE As Long = 8
Private Sub Command1_Click()
'音量增加
SendMessage Me.hwnd, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_UP * &H10000
End Sub
Private Sub Command2_Click()
'音量减少
SendMessage Me.hwnd, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_DOWN * &H10000
End Sub
Private Sub Command3_Click()
'静音
SendMessage Me.hwnd, WM_APPCOMMAND, &H200EB0, APPCOMMAND_VOLUME_MUTE * &H10000
End Sub
分享到:
相关推荐
VB 控制音量的样例代码 调用WIN32的API函数控制音量 懂VB得人一看就明白 很好用
vb 控制音量 可以调高音量,调低音量,还可以在静音直接切换!
用vb写的控制电脑声音的源代码,代码比较简单,还可以对麦克风控制
用VB控制系统音量。
VB 音量控制程序 (含话筒音量) VB音量控制程序,除了控制Windows音量外,还可对话筒音量进行控制,并播放.wav格式音频文件,具体使用时,可单独摘录出来作为模块来使用,效果不错。
vb控制win7系统的主音量,可设置静音,值得收藏的好代码
VB编程源代码 48控制音量VB编程源代码 48控制音量VB编程源代码 48控制音量VB编程源代码 48控制音量VB编程源代码 48控制音量VB编程源代码 48控制音量VB编程源代码 48控制音量VB编程源代码 48控制音量VB编程源代码 48...
VB音量VB音量控制控制VB音量控制VB音量控制VB音量VB音量控制控制
VB控制系统音量和麦克风音量一例,带替Windows的音量控制程序,本程序可以控制麦克风和系统音量的大小,较简单实用的小程序,收藏一下也不错哦。
VB 音量控制 VB 音量控制 VB 音量控制 VB 音量控制
音量控制 VB音量控制 VB音量控制 VB音量控制 VB
大家想用VB来控制系统的音量吗?这个文件可以帮助你了解音量控制方面的方法
vb.net控制系统音量的示例
用vb写的控制音量的程序,很小巧,代码很经典哦
VB编程设计音量控制模块经典代码VB Programming Volume Control Module classic code
vb编写对程序运行时的声音音量进行大小调节
一个VB音量调整、混音类程序,可以用来控制Windows音频混合器的程序,调整波形音量及左右声道**衡,整个代码为一个类文件,可以在你编写的多媒体播放软件中用来动态控制音量。
2013-06-17VB音量控制的程序(详细中文注释)
新写一个基于VB代码的音量控制模块 新写一个基于VB代码的音量控制模块
VB音量控制。源码。带透明窗体。、、、、、、