Post: [VB.NET][SOURCE]Master Volume Control
05-09-2011, 11:39 PM #1
(adsbygoogle = window.adsbygoogle || []).push({});
Originally posted by kingdeath360 View Post
Here is something I put together after seeing a users post before. Hopefully this can help some of you.
    
#Region "Volume Control"
Private Declare Function SendMessageA Lib "user32" (ByVal Hwnd As IntPtr, ByVal Message As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Private Const WM_APPCOMMAND As Integer = &H319
Private Const APPCOMMAND_VOLUME_MUTE As Integer = &H80000
Private Const APPCOMMAND_VOLUME_DOWN As Integer = &H90000
Private Const APPCOMMAND_VOLUME_UP As Integer = &HA0000
Public Sub ToggleVolumeMute()
SendMessageA(Me.Handle, WM_APPCOMMAND, Me.Handle, APPCOMMAND_VOLUME_MUTE)
End Sub
Public Sub VolumeUp()
SendMessageA(Me.Handle, WM_APPCOMMAND, Me.Handle, APPCOMMAND_VOLUME_UP)
End Sub
Public Sub VolumeDown()
SendMessageA(Me.Handle, WM_APPCOMMAND, Me.Handle, APPCOMMAND_VOLUME_DOWN)
End Sub
#End Region

its a c&p///////////////////////////////

Copyright © 2024, NextGenUpdate.
All Rights Reserved.

Gray NextGenUpdate Logo