麦克风音量实时显示VB源代码

就是当我对着麦克风说话时，麦克风的音量会有一个类似于波形显示的VB源代码。

你好哦楼主~
很高兴看到你的问题。
但是又很遗憾到现在还没有人回答你的问题。也可能你现在已经在别的地方找到了答案，那就得恭喜你啦。
对于你的问题我爱莫能助！
可能是你问的问题有些专业了，或者别人没有遇到或者接触过你的问题，所以帮不了你。建议你去问题的相关论坛去求助，那里的人通常比较多，也会比较热心，能快点帮你解决问题。
快过年了，
最后祝您全家幸福健康快乐每一天！

没搞过控制麦克风输入音量 但能控制系统音量 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 wm_appcommand as long = &h319 private const appcommand_volume_up as long = 10 private const appcommand_volume_down as long = 9 private const appcommand_volume_mute as long = 8 private sub command1_click() '音量加 sendmessage me.hwnd, wm_appcommand, &h30292, appcommand_volume_up * &h10000 end sub private sub command2_click() '音量减 sendmessage me.hwnd, wm_appcommand, &h30292, appcommand_volume_down * &h10000 end sub private sub command3_click() '静音开 sendmessage me.hwnd, wm_appcommand, &h200eb0, appcommand_volume_mute * &h10000 end sub