Lyd styrke

'Her er det med at opfange keys
'[CTRL]+[ALT]+

• og [CTRL]+[ALT]+
  • 
    
  '------------------------- Form1 -------------------------
  

Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private valVolume As Integer

Private Sub Form_Load()
  Timer1.Interval = 10
  valVolume = 50
End Sub

Private Sub Timer1_Timer()
'------------ Test for at finde keynummer ------------
'Dim i As Integer
'For i = 0 To 255
  'KeyResult = GetAsyncKeyState(i)
    'If KeyResult = -32767 Then
      'Me.Caption = i
    'End If
  'Next i
'------------ Test for at finde keynummer ------------
Call GetValue
Me.Caption = valVolume
End Sub


Public Sub GetValue()
'--------- keynummer ---------
'CTRL = 17
'ALT = 18
'- = 109
'+ = 107
'--------- keynummer ---------

  If GetAsyncKeyState(17) <> 0 And GetAsyncKeyState(18) <> 0 And GetAsyncKeyState(107) <> 0 Then
    valVolume = valVolume + 1
  End If
  If GetAsyncKeyState(17) <> 0 And GetAsyncKeyState(18) <> 0 And GetAsyncKeyState(109) <> 0 Then
    valVolume = valVolume - 1
  End If
End Sub
'------------------------- Form1 -------------------------

du kunne også gøre sådan i GetValue :-)

'[CTRL]+[ALT]+

• teller med 10
  

'[CTRL]+

• teller med 1
  

'[CTRL]+[ALT]+

• teller med 10
  

'[CTRL]+

• teller med 1
  

Public Sub GetValue()
'--------- keynummer ---------
'CTRL = 17
'ALT = 18
'- = 109
'+ = 107
'--------- keynummer ---------

  If GetAsyncKeyState(17) <> 0 And GetAsyncKeyState(107) <> 0 Then
    If GetAsyncKeyState(18) <> 0 Then
      valVolume = valVolume + 10
        Else
      valVolume = valVolume + 1
    End If
  End If
  If GetAsyncKeyState(17) <> 0 And GetAsyncKeyState(109) <> 0 Then
    If GetAsyncKeyState(18) <> 0 Then
      valVolume = valVolume - 10
        Else
      valVolume = valVolume - 1
    End If
  End If
End Sub

lyd styrken:

http://www.allapi.net/apilist/example.php?example=auxVolume

Takker mange gange :) det var lige det jeg manglede :)

Selv Tak. :-)

Hvad er koden, hvis der skal komme en MsgBox hver gang man trykker på Ctrl + ALT + Delete

If GetAsyncKeyState(17) <> 0 And GetAsyncKeyState(107) <> 0 And GetAsyncKeyState(46) <> 0 Then