怎么实现静音功能

jiangjian0427 2002-04-06 02:41:41
怎么实现静音功能
...全文
519 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
jiangjian0427 2002-04-10
  • 打赏
  • 举报
回复
再来点帮助
acptvb 2002-04-09
  • 打赏
  • 举报
回复
感谢您使用微软产品。

如果您只要控制wav播放设备的音量,可以调用API函数waveOutSetVolume。
其第二第三个参数设为&HFFFF时音量最大,设为&H0000时最小即静音。
您可以参考以下链接的样例程序:
Q118377 How to Control the Volume of Sound Files from Visual Basic
http://support.microsoft.com/support/kb/articles/q118/3/77.asp

如果您需要控制系统混音设备的功能,您可以调用API函数mixerSetControlDetails来实现,设置代表音量大小的变量值为&H0000,也能达到静音的效果。
相关函数还有:
mixerClose - 关闭指定的混音设备
mixerOpen – 打开指定的混音设备
mixerGetDevCaps – 查询指定混音设备的声音大小范围
mixerGetID – 检索与指定设备句柄相关的混音器的设备ID
mixerSetControlDetails – 设置单一音频线的属性
mixerGetControlDetails – 检索单一音频线的详细信息

您可以参考以下链接的样例程序:
Q178456 SAMPLE: Volume.exe: Set Volume Control Levels Using Visual Basic
http://support.microsoft.com/support/kb/articles/q178/4/56.asp
mixerSetControlDetails
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wcesdkr/htm/_wcesdk_am_mixersetcontroldetails.asp


- 微软全球技术中心 VB技术支持

本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。具体事项可参见使用条款
(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境,请参加我们的用户满意度调查
(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。
======================
jiangjian0427 2002-04-07
  • 打赏
  • 举报
回复


我是要原码实现 不要任何原理
hx 2002-04-07
  • 打赏
  • 举报
回复
音量最小。

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧