About Us

bau

Thank you very much. It works well.
Regards,
Bau

"Chip Pearson" wrote:

Use GetAsyncKeyState instead of GetKeyboardState and toss in a
DoEvents at the top of the loop. E.g,

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

Sub AAA()
Dim B(0 To 255) As Byte
Dim N As Integer
Do Until False
DoEvents
N = GetAsyncKeyState(vbKeyDown)
If N = 0 Then
Range("A1").Value = "up"
Else
Range("A1").Value = "down"
End If
Loop
End Sub

Cordially,
Chip Pearson
Microsoft MVP 1998 - 2010
Pearson Software Consulting, LLC
www.cpearson.com
[email on web site]

On Wed, 20 Jan 2010 14:44:02 -0800, bau
wrote:

I want to create a loop so the program will look for the actual keyboard
input (not a program sendkey nor the virtual key) , say "arrow_down" key, and
when it sees the change, it does something else.

Here is my loop:

Dim keystat(0 To 255) As Byte

While keystat(40) < 1 ' keystat(40) is arrow down key

' Check if the arrow down key has been pressed
' This is where I could not see the change. Need some interrupt loop to
' enter keyboard such as input (but I don't want to see it shows on the
screen)

retval = GetKeyboardState(keystat(0))

Wend

Thanks,
Bau
.

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro with interrupt for user input	Valerie	Excel Programming	2	February 26th 09 08:56 PM
How to interrupt code	Ben	Excel Programming	4	February 1st 08 03:36 PM
Interrupt code	srroduin	Excel Programming	2	May 11th 06 07:41 PM
Interrupt While loop	jimbo_jones[_4_]	Excel Programming	2	September 20th 05 04:49 PM
QueryTables Interrupt if URL is Down	Steve Hieb	Excel Programming	0	November 17th 03 10:07 PM

Menu

About Us