Klavye Tuşları

[SUMIF]

Merhaba Arkadaşlar.Benim Userformumda Windows Media Player var.Klavyeden F9 ve F10 tuşlarına basınca ses azalıp-çoğalıyor.İstediğim userformuma koyacağım commandbutonların f9 ve f10 tuşlarının görevini yapması.Yardımlarınız için teşekkür ederim.

 

[Levent Menteşoğlu]

Userform üzerine 3 adet commandbutton yerleştirin ve aşağıdaki kodları userformun kod sayfasına kopyalayın. Birinci buton sesi azaltır, ikincisi arttırır, üçüncüsü ile kapatır (mute).

Const VK_VOLUME_MUTE = &HAD
Const VK_VOLUME_DOWN = &HAE
Const VK_VOLUME_UP = &HAF
Private Declare Sub keybd_event Lib "user32" ( _
   ByVal bVk As Byte, ByVal bScan As Byte, _
   ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub CommandButton1_Click()
keybd_event VK_VOLUME_DOWN, 0, 1, 0
keybd_event VK_VOLUME_DOWN, 0, 3, 0
End Sub

Private Sub CommandButton2_Click()
keybd_event VK_VOLUME_UP, 0, 1, 0
keybd_event VK_VOLUME_UP, 0, 3, 0
End Sub

Private Sub CommandButton3_Click()
keybd_event VK_VOLUME_MUTE, 0, 1, 0
End Sub

 

[SUMIF]

TeŞekkÜrler Hocam.elİnİze SaĞlik