Início
#1Qui 30 maio - 19:08
![[VB.NET] Alterando volume do computador. Empty](https://2img.net/i/empty.gif)
[VB.NET] Alterando volume do computador. Olá galera , como não estou com muito conteúdo para trazer vim aqui mostrar para vocês como mudar o volume do computador de um método bem simples no visual basic!
Fação isso:
Em cima do public class vocês botem isso(Importar)
Em baixo do public class vocês ponham isso(Declarar)
Agora adicione 3 button ao seu form
Button1 = +
Button2 = -
Button3 = Mute
Agora de dois cliques no button1 e adicione o seguinte Código (Botão +)
Agora de dois cliques no button2 e adicione o seguinte Código (Botão -)
Agora de dois cliques no button3 e adicione o seguinte Código (Botão Mudo)
Créditos :
ForeverIstalone
Fação isso:
Em cima do public class vocês botem isso(Importar)
- Código:
Imports System.Runtime.InteropServices
Em baixo do public class vocês ponham isso(Declarar)
- Código:
Private Const APPCOMAND_VOLUME_UP As Integer = &HA0000
Private Const APPCOMAND_VOLUME_DOWN As Integer = &H90000
Private Const APPCOMAND_VOLUME_MUTE As Integer = &H80000
Private Const WM_COMMAND As Integer = &H319
<DllImport("user32.dll")> Public Shared Function SendMessageW(ByVal hwnd As IntPtr, ByVal msg As Integer, ByVal wparam As IntPtr, ByVal lParan As IntPtr) As IntPtr
End Function
Agora adicione 3 button ao seu form
Button1 = +
Button2 = -
Button3 = Mute
Agora de dois cliques no button1 e adicione o seguinte Código (Botão +)
- Código:
SendMessageW(Me.Handle, WM_COMMAND, Me.Handle, New IntPtr(APPCOMAND_VOLUME_UP))
Agora de dois cliques no button2 e adicione o seguinte Código (Botão -)
- Código:
SendMessageW(Me.Handle, WM_COMMAND, Me.Handle, New IntPtr(APPCOMAND_VOLUME_DOWN))
Agora de dois cliques no button3 e adicione o seguinte Código (Botão Mudo)
- Código:
SendMessageW(Me.Handle, WM_COMMAND, Me.Handle, New IntPtr(APPCOMAND_VOLUME_MUTE))
Créditos :
ForeverIstalone
