Sneltoetsen

[CoD_NL]

Ik krijg toch nog steeds die fout hoor...
Ik werk met vs 2005 op een vista, kan het daar soms aan liggen ofzow?

http://www.vbib.be/index.php?name=PNphpBB2&file=viewtopic&p=3072

Op bovenstaande link heeft iemand dezelfde foutmelding gekregen als jij hebt. Misschien vind je daar nog iets nuttigs.

 

[bn2vs]

Hmm, dat werkt ja

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

    Private Sub tmrKeys_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrKeys.Tick
        For i As Integer = 65 To 90
            If GetAsyncKeyState(i) = -32767 Then
                MessageBox.Show(Chr(i) & " aangeslaan")
            End If
        Next i
    End Sub

Probleem zat dus bij "ByVal vKey As Integer", en niet "As Long"