Отрегулируйте громкость системы с помощью трекбара в vb

Можно ли управлять громкостью системы с помощью трекбара в VB.NET?

Когда пользователь регулирует значение трекбара, громкость системы также изменяется.

Заранее спасибо!


volume vb.net trackbar
person JDS404    schedule 16.08.2014    source источник
comment
Google дает вам 3/4 миллиона обращений, когда вы запрашиваете vb.net change system volume. Другой нам не нужен.   -  person Hans Passant    schedule 16.08.2014
comment
по крайней мере см. это   -  person Vivek S.    schedule 16.08.2014
comment
возможный дубликат контрольного объема в vb.net   -  person Vivek S.    schedule 16.08.2014

Ответы (1)


arrow_upward
-1
arrow_downward

Я нашел ответ по предоставленной ссылке @dude. Спасибо.

Импортирует System Imports System.Windows.Forms Импортирует System.Runtime.InteropServices

Пространство имен WindowsFormsApplication1 Частичный общедоступный класс Form1 наследует частную константу формы APPCOMMAND_VOLUME_MUTE как целое число = & H80000 Закрытая константа APPCOMMAND_VOLUME_UP как целое число = & HA0000 Частная константа APPCOMMAND_VOLUME_DOWN как целое число = & H90000 Частная константа H90000 WM_APPC

    <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

Конец пространства имен

person JDS404    schedule 17.08.2014