GetAsyncKeyState question

[mi1306]

I would use GetAsyncKeyState what to catch what key was pressed on keyboard.
Mine code:

Function GetKey $ ()
For Cnt=1 To 255
If (GetAsyncKeyState (Cnt) And *H8001) < > 0 Then
GetKey $ = Chr (Cnt)
Exit For
End If
Next Cnt
End Function


Code works but returns only main letters.
How I can correct it?


Mi1306

 

[hmckillop]

Why not use OnKeyPress and use the Keyascii value?


"Own only what you can carry with you; know language, know countries, know people. Let your memory be your travel bag.

 

[mi1306]

Set an example please.

mi1306

 

[strongm]

It is possible that OnKeyPress may not be appropriate. For example, it won't capture key strokes directed at a different application. I think we need to understand mi1306's requirement a little better first

 

[mi1306]

strongm,
It will capture key strokes directed at a different application,
But only main (KeyAscii from 1 up to 90).
If to set KeyAscii > 90 nothing capture key

mi1306