调整Windows扬声器音量VB.NET

发布时间：2020-12-14 02:48:40 所属栏目：Windows 来源：网络整理

导读：如何通过VB.NET更改 Windows扬声器音量(主输出音量控制音量值)？我想要一种方式来像我们从Windows 7上的音量控制应用程序那样间接地改变整个系统的音量解决方法从： http://social.msdn.microsoft.com/Forums/vstudio/en-US/8308f020-b9e6-472c-aaac-93619

如何通过VB.NET更改 Windows扬声器音量(主输出音量控制音量值)？我想要一种方式来像我们从Windows 7上的音量控制应用程序那样间接地改变整个系统的音量

解决方法

从：

http://social.msdn.microsoft.com/Forums/vstudio/en-US/8308f020-b9e6-472c-aaac-93619a8a5a7d/vbnet-control-the-system-volume-mute-and-output-the-current-level-to-the-user?forum=vbgeneral

Imports System.Runtime.InteropServices
Public Class Form1
    <DllImport("user32.dll",SetLastError:=True,CharSet:=CharSet.Auto)> Private Shared Function SendMessage(ByVal hWnd As IntPtr,ByVal Msg As UInteger,ByVal wParam As IntPtr,ByVal lParam As IntPtr) As IntPtr
    End Function

    Const WM_APPCOMMAND As UInteger = &H319
    Const APPCOMMAND_VOLUME_UP As UInteger = &HA
    Const APPCOMMAND_VOLUME_DOWN As UInteger = &H9
    Const APPCOMMAND_VOLUME_MUTE As UInteger = &H8

    Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
        SendMessage(Me.Handle,WM_APPCOMMAND,&H30292,APPCOMMAND_VOLUME_UP * &H10000)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click
        SendMessage(Me.Handle,APPCOMMAND_VOLUME_DOWN * &H10000)
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button3.Click
        SendMessage(Me.Handle,&H200EB0,APPCOMMAND_VOLUME_MUTE * &H10000)
    End Sub
End Class

我能在一分钟内把它扔到一起没问题.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!