KeyDown Problem

Ved at du først fange en OnKeyDown, herefter finder du ud af hvornår brugeren slipper tasten igen med OnKeyUp.

//>Rune

Hvordan gør man det?

Har du fundet ud af det siden du har accepteret mit svar?

//>Rune

kom til acceptere dit svar, men ikke med vilje

Men vil du ikke godt svare aligevel?

Jov, det skal jeg nok, men jeg har lige lidt travlt, så der komme rlige til at at gå lidt tid...

//>Rune

Her har du det:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then MsgBox ("A tasten bliver holdt nede!")
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then MsgBox ("A tasten bliver sluppet!")
End Sub

//>Rune

ok Tak.. Jeg skal os til Eksamen kl 12, så bare skriv.
Har du msn? da det nok går lidt hurtigere

tjoo, det har jeg da,.. rune{snabela}medions.dk

//>Rune

Nej det har jeg ikke

Skal jeg sætte det ind?

du skal sætte form1.keypreview = True - hvor form1 evt erstattes med det navn din form har.

På denne måde vil formen få tastetryk først og du skal så evaluere dem i henhold til det input der fra tastaturet.

Læg denne kode på din form

Option Explicit

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    Dim ctrlKey As String
   
    me.windowstate = vbmaximized

    Select Case Shift
   
    Case 0
        ctrlKey = "INGEN"
    Case 1
    'shift = 1
        ctrlKey = "SHIFT"
    Case 2
    'ctrl = 2
        ctrlKey = "CTRL"
    Case 3
    'ctrl+shft = 3
        ctrlKey = "CTRL+SHIFT"
    Case 4
    'alt = 4
        ctrlKey = "ALT"
    Case 6
    'ctrl+alt = 6
        ctrlKey = "CTRL+ALT"
    Case 7
    'shft+ctrl+alt
        ctrlKey = "SHIFT+CTRL+ALT"
    Case Else
        ctrlKey = "IKKE DEFINERET"
    End Select
   
    Print "Skiftetaste : " & ctrlKey & vbCr
    Print "Tastetryk : " & KeyCode & vbCrLf

End Sub


Du vil nu få nogle værdier skrevet på formen alt efter hvilke taster du trykker.

Du så kunne se alle de forskellige kombinationer der kan laves.

//>Rune