A1VBCode Forums / Visual Basic (VB 4/5/6) / General Visual Basic / Use more keys than one at a time? / Latest Posts

RE: Use more keys than one at a time?

Keithuk — Fri, 16 May 2008 10:40:40 GMT

Panik (5/16/2008)

is there an online table with all of them?

Online version of what? API Viewer or MSDN help?

You can download a newer version of API Viewer here and while you are there you can download API-Guide which is very useful, both of them are free.

As for MSDN help there is an online version but I don't find it any good. So your using a pirate copy of VB6 because VB6 comes with the MSDN help disks? Or you could search eBay there are MSDN disks on there.

I don't know which eBay you use but eBay Search, the second one it a bargin and you can buy now.

If you still have the VB6 CD then you can reinstall and add the API Viewer to the installation.

RE: Use more keys than one at a time?

Panik — Fri, 16 May 2008 08:30:09 GMT

is there an online table with all of them?

RE: Use more keys than one at a time?

Keithuk — Fri, 16 May 2008 07:13:05 GMT

Panik (5/16/2008)

where can I find a list of the all the codes for the keys?

VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT and VK_SPACE you will find them in API Viewer under Constants in API Type combo.

Private Const VK_DOWN = &H28
Private Const VK_UP = &H26
Private Const VK_LEFT = &H25
Private Const VK_RIGHT = &H27
Private Const VK_SPACE = &H20

The normal VB keycodes you can find in VB6 help under keycode contants.

Do you have the MSDN help?

Do you have API Viewer installed?

RE: Use more keys than one at a time?

Panik — Fri, 16 May 2008 01:28:49 GMT

oh, one more thing

where can I find a list of the all the codes for the keys?

RE: Use more keys than one at a time?

Panik — Thu, 15 May 2008 17:08:14 GMT

man you saved my life! that's just perfect!!

thanks Mark

RE: Use more keys than one at a time?

Mark — Thu, 15 May 2008 11:25:15 GMT

You can use the GetAsyncKeyState API. It can be used to catch 2 keys.

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_DOWN = &H28
Private Const VK_UP = &H26
Private Const VK_LEFT = &H25
Private Const VK_RIGHT = &H27
Private Const VK_SPACE = &H20

Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(VK_UP) <> 0 Then Picture1.Top = Picture1.Top - 30
If GetAsyncKeyState(VK_DOWN) <> 0 Then Picture1.Top = Picture1.Top + 30
If GetAsyncKeyState(VK_LEFT) <> 0 Then Picture1.Left = Picture1.Left - 30
If GetAsyncKeyState(VK_RIGHT) <> 0 Then Picture1.Left = Picture1.Left + 30
If GetAsyncKeyState(VK_SPACE) <> 0 Then Me.Caption = Val(Me.Caption) + 1
End Sub

RE: Use more keys than one at a time?

Keithuk — Thu, 15 May 2008 11:05:55 GMT

Panik (5/15/2008)

yeah they're both pics

btw i dont see how the DoEvents is gonna solve anything

DoEvents - Yields execution so that the operating system can process other events.

If you have one object moving and then you try to move another object at the same time then it probably won't. DoEvents will switch between objects/processes.

Have you tried it?

RE: Use more keys than one at a time?

Phantom Sonic — Thu, 15 May 2008 10:44:51 GMT

Yea I'm having the same problem too.

I'm stilll trying to find a solution for it and if I do I will let you know so you can use it too.

RE: Use more keys than one at a time?

Panik — Thu, 15 May 2008 06:32:42 GMT

yeah they're both pics

btw i dont see how the DoEvents is gonna solve anything

what I want to achieve is keep moving while shooting

While holding down 'right' if I press 'space', the 'right' key commands stop working (even though I'm still pressing it)

RE: Use more keys than one at a time?

Keithuk — Tue, 13 May 2008 13:17:41 GMT

Try putting a few DoEvents in the fire code.

If KeyCode = vbKeySpace Then
fire.Left = player.Left + 1000
fire.Top = player.Top + 700

DoEvents
fire.Visible = True
Timer1.Enabled = True
End If

Is fire and player just pictures then? It doesn't actually fire anything.

RE: Use more keys than one at a time?

Panik — Tue, 13 May 2008 13:00:10 GMT

bump

Use more keys than one at a time?

Panik — Thu, 08 May 2008 09:21:48 GMT

I am creating a game and i need to find a way to enable the user to use more than one keys at a time

The case is...

I hold down right and the "character" moves right, then i press space to shoot (while keep holding right) and the character shoots the "fire" BUT he stops moving

Also the same happens when I press Up for jump

The char stops moving to the right and only moves up (he should keep moving while on air, like games such as super mario bros)

These are parts of the commands I use:

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

If KeyCode = vbKeyRight Then
player.Left = player.Left + 100
End If

If KeyCode = vbKeySpace Then
fire.Left = player.Left + 1000
fire.Top = player.Top + 700
fire.Visible = True
Timer1.Enabled = True
End If

end sub