时间:2019-11-10 23:33作者:admin来源:未知人气:442我要评论(0)
Access VBA 使用API 关闭系统声音和打开系统声音的 方法
即让整个系统静音及取消静音的代码如下
------VBA 实现 源码--------------------
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hwnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
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 BM_GETCHECK = &HF0 ' 取得复选框状态
Private Const BM_SETCHECK = &HF1 '设置复选框状态
' Private Const BST_UNCHECKED = &00 设置复选框为未选中状态
' Private Const BST_CHECKED = &01 设置复选框为选中状态
Private Sub Command1_Click()
Dim hwnd0 As Long ' 用于记录“音量控制”程序的句柄
Shell "sndvol32.exe" ' 启动“音量控制”程序
hwnd0 = FindWindow(vbNullString, "主音量")
Dim hwnd1 As Long ' 用于记录“全部静音”复选框句柄
hwnd1 = FindWindowEx(hwnd0, 0&, "Button", "全部静音(&M)") ' 复选框的类名是"Button"
Dim State As Long ' 用于记录复选框状态,如果复选框处于未选中状态,则返回0,选中状态返回1
State = SendMessage(hwnd1, BM_GETCHECK, ByVal CLng(0), ByVal CLng(0))
SendMessage hwnd1, BM_SETCHECK, 1, 0 '使系统静音
SendMessage hwnd1, BM_SETCHECK, 0, 0 '使系统发音
End Sub
相关阅读 access怎么做点击选择学历的效果access怎么取消冻结字段access怎么冻结字段access怎么删除子数据表access怎么在表格中插入子数据表access设置快速访问栏在功能区下方显示access设置快速访问栏在功能区上方显示access怎么将设计视图加到快速访问栏access怎么将导出Excel表格加到快速访问栏access怎么将数据表视图加到快速访问栏
热门文章 Microsoft Office Access 2019 官方版激活版 免费下载如何设计一个简单的Access登录窗体Access创建数据库实现图解教程access怎么求平均成绩
最新文章
access怎么做点击选择学历的效果access怎么取消冻结字段
access怎么冻结字段access怎么删除子数据表access怎么在表格中插入子数据表access设置快速访问栏在功能区下方显示
人气排行 Microsoft Office Access 2019 官方版激活版 免费下载如何设计一个简单的Access登录窗体Access创建数据库实现图解教程access怎么求平均成绩怎么在Access报表的页面页脚区添加一个计算控件Access 2007、2010、2016三个版本的使用心得Access查询标准(条件)详解电脑没有access怎么办? access文件打不开怎么办?
盖楼回复X
(您的评论需要经过审核才能显示)
查看所有0条评论>>