在 vb 中使用轨迹栏控制调整系统音量答案

【问题标题】：Adjust system volume with trackbar control in vb在 vb 中使用轨迹栏控制调整系统音量
【发布时间】：2014-08-16 10:12:12
【问题描述】：

是否可以在 VB.NET 中使用轨迹栏控件来控制系统音量？

当用户调整trackbar的值时，系统的音量也会发生变化。

提前致谢！

【问题讨论】：

当您查询“vb.net 更改系统音量”时，Google 会为您提供百万次点击的 3/4。我们不需要另一个。
至少see this
Control Volume in vb.net的可能重复

标签： vb.net volume trackbar

【解决方案1】：

我在@dude 提供的链接上找到了答案。谢谢。

进口系统导入 System.Windows.Forms 导入 System.Runtime.InteropServices

命名空间 WindowsFormsApplication1 部分公开课Form1 继承表格 Private Const APPCOMMAND_VOLUME_MUTE As Integer = &H80000 Private Const APPCOMMAND_VOLUME_UP As Integer = &HA0000 Private Const APPCOMMAND_VOLUME_DOWN As Integer = &H90000 Private Const WM_APPCOMMAND As Integer = &H319

    <DllImport("user32.dll")> _
    Public Shared Function SendMessageW(ByVal hWnd As IntPtr, _
           ByVal Msg As Integer, ByVal wParam As IntPtr, _
           ByVal lParam As IntPtr) As IntPtr
    End Function

    Private Sub btnMute_Click(ByVal sender As Object, ByVal e As EventArgs)
        SendMessageW(Me.Handle, WM_APPCOMMAND, _
                      Me.Handle, New IntPtr(APPCOMMAND_VOLUME_MUTE))
    End Sub

    Private Sub btnDecVol_Click(ByVal sender As Object, ByVal e As EventArgs)
        SendMessageW(Me.Handle, WM_APPCOMMAND, _
                     Me.Handle, New IntPtr(APPCOMMAND_VOLUME_DOWN))
    End Sub

    Private Sub btnIncVol_Click(ByVal sender As Object, ByVal e As EventArgs)
        SendMessageW(Me.Handle, WM_APPCOMMAND, _
                     Me.Handle, New IntPtr(APPCOMMAND_VOLUME_UP))
    End Sub
End Class

结束命名空间

【讨论】：