VB控制系统和麦克风音量调节实例
VB 的音量控制小程序，用起来还挺顺手的。它不是用控件去堆功能，而是靠调用系统自带的 API 函数 来干活，像 waveOutSetVolume 和 waveInSetVolume 这些，能直接调节系统和麦克风的音量。加个 TrackBar 滑块控件就能让用户滑动调音量，操作也直观。
代码写起来不复杂，比如系统音量你只要在滑块的 Scroll 事件里调用 waveOutSetVolume 就行。注意音量值要乘个 &H10000，因为 API 接收的是 16 位数据。VB 老用户应该对 Declare 语句不陌生，用来声明这些 API 是标配。
麦克风音量也是同理，换成 waveInSetVolume 就行了。你甚至可以加个复选框做静音切换，或者搞个 NumericUpDown 微调更精细的音量值，玩法还蛮多的。
这套思路用在替代 Windows 原生音量控制挺合适的，写个小工具自己用或者集成到项目里都不错。要是你对 VB 操作音频感兴趣，建议顺手看看这篇VB 控制麦克风实例，也蛮实用的。
如果你平时项目里有点音量调节的需求，又不想引入太重的依赖，用这种方式其实还挺轻便的，关键是好上手。
文件大小：7.49KB
评论区