加一个系统音量组件。
.子程序 __启动窗口_创建完毕
.局部变量 左音量, 整数型
.局部变量 右音量, 整数型
系统音量1.打开 (#音量类型.主音量)
系统音量1.取音量 (左音量, 右音量)
标签1.标题 = 到文本 (左音量)
标签2.标题 = 到文本 (右音量)
因为系统音量的最大音量为65535,所以最好和滑块条配合使用。参考下面代码:
.程序集 窗口程序集1
.程序集变量 左音量, 整数型
.程序集变量 右音量, 整数型
.程序集变量 最大音量, 整数型
.子程序 __启动窗口_创建完毕
.如果真 (系统音量1.打开 (#音量类型.主音量) = 0) ' 打开系统音量并判断是否成功打开
信息框 (“主音量控制打开失败!”, 0, “错误”)
结束 ()
.如果真结束
最大音量 = 系统音量1.取最大音量 () ' 取出系统最大音量
系统音量1.取音量 (左音量, 右音量) ' 取出系统音量
滑块条1.位置 = 到整数 ((左音量 + 右音量) ÷ 2 × 100 ÷ 最大音量 + 1) ' 显示当前系统音量
标签2.标题 = 到文本 (滑块条1.位置) ' 用数字来显示滑块条位置
.子程序 _滑块条1_位置被改变
标签2.标题 = 到文本 (滑块条1.位置) ' 拖动滑块条时实时用数字来显示滑块条位置
系统音量1.置音量 (最大音量 × 滑块条1.位置 ÷ 100, 最大音量 × 滑块条1.位置 ÷ 100)
在扩展组件那里找到系统音量组件,放一个到窗口上,再放1个按钮:
版本 2
支持库 eMMedia。
子程序 _按钮1_被单击。
局部变量 z, 整数型。
局部变量 y, 整数型。
系统音量1.打开 (#音量类型.主音量)。
系统音量1.置音量 (系统音量1.取最大音量 (), 系统音量1.取最大音量 ())。
设置系统音量()