我用易语言编写了一个音乐播放器,想增加一个音量调节功能,我用的是系统音量、滑块条控件,我写的代码如
除以100是因为你的电脑最大音量是100,你可以百度“易语言MP3播放器”,只有8步,你的问题在第六步以后可以看到。
怎么没有最大音量呢?,只有取最大音量!
.程序集 窗口程序集_启动窗口
.程序集变量 最大音量, 整数型
.程序集变量 左音量, 整数型
.程序集变量 右音量, 整数型
.子程序 _按钮1_被单击
通用对话框1.过滤器 = “MP3文件(*.mp3)|*.mp3”
.如果真 (通用对话框1.打开 () = 真)
编辑框1.内容 = 通用对话框1.文件名
媒体播放1.打开 (通用对话框1.文件名)
.如果真结束
.子程序 _按钮2_被单击
媒体播放1.播放 (-1, )
滑块条1.最大位置 = 媒体播放1.取总时间 ()
.子程序 _按钮3_被单击
媒体播放1.暂停 ()
.子程序 _按钮4_被单击
媒体播放1.停止 ()
.子程序 __启动窗口_创建完毕
拖放对象1.注册拖放控件 (取窗口句柄 ())
.如果真 (系统音量1.打开 (#音量类型.主音量) = 0)
信息框 (“主控音量打开失败”, 0, , )
.如果真结束
最大音量 = 系统音量1.取最大音量 ()
系统音量1.取音量 (左音量, 右音量)
滑块条2.位置 = 到整数 ((左音量 + 右音量) × 50 ÷ 最大音量 + 1)
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
编辑框1.内容 = 到文本 (接收到的文件路径)
通用对话框1.文件名 = 编辑框1.内容
媒体播放1.打开 (通用对话框1.文件名)