Print

[Penguin]

Penguin

[Request / Listing] [VB6]Keyboard Checking?

For example in Game Maker it is:

Code: [Select]

if keyboard_check(vk_left) then {obj1.x=x-1}in vb it would be:

Code: [Select]

if ???=vbkeyleft
image1.left=mage1.left-1
end ifWhat would ??? be? Please and thank you!

[Dayjo]

Dayjo

Re: [VB6]Keyboard Checking?

VB6 (not sure if it works on other versions)

First of all you need to declare the GetAsyncKeyState library:

Code: [Select]

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

Then you can declare your KeyDown function

Code: [Select]

Private Function KeyDown(ByVal vKey As KeyCodeConstants) As Boolean
KeyDown = GetAsyncKeyState(vKey) And &H8000
End Function

Then use the function like this:

Code: [Select]

If KeyDown(vbKeyF12) Then
End
End If

www.dayjo.org

• 

[AoDC]

AoDC

Re: [VB6]Keyboard Checking?

How do you check that as in a Step Event in GM? (While the window is active perhaps it checks for keydown?)

the a o d c

[mit]

mit

Re: [VB6]Keyboard Checking?

You wouldn't have it in a step event, VB6 is event driven and so you would have a private sub onkeydown or something. I can't remember, I haven't used it in ages.

Programmer / Spriter / Level designer / Game Director / Web Designer / Music Sequencer for
Random Highscore table:

Play the Kousou Arcade today!

• 

[Windy]

Windy

Re: [VB6]Keyboard Checking?

you would likely have to use a timer

[Dayjo]

Dayjo

Re: [VB6]Keyboard Checking?

Yeah you could add a timer and set the interval to something small. 1000 = 1 second, so 250 might be fast enough. You also might want to make a function to determine if the button has been clicked rather than if the button is just being held (which is what that KeyDown function checks).

You could just check like this:

Code: [Select]

Private Sub Timer1_Timer()
'Check to see if the key is down, and the key wasnt down before
If KeyDown(vbKeyF12) And eftwelve = False Then
        eftwelve = True
        'Do whatever you want to happen when the key is pressed
End If

If Not KeyDown(vbKeyF12) Then
      eftwelve = False
End If
End Sub

www.dayjo.org

• 

[Penguin]

Penguin

Re: [VB6]Keyboard Checking?

I want to use it as a movement thing. But then I found out that to make an ActiveX Control I can't use Private Declare Functions. Any help?

EDIT: Never mind. Thanks alot Dayjo! I envy you!  ;D

[CLOSED]