-
Arrow Key's
im using this code here:
Private Sub form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then
picArrow.Move picArrow.Left - 50
End If
If KeyCode = 39 Then
picArrow.Move picArrow.Left + 50
End If
If KeyCode = 40 Then
picArrow.Move picArrow.Left, picArrow.Top + 50
End If
If KeyCode = 38 Then
picArrow.Move picArrow.Left, picArrow.Top - 50
End If
End Sub
and my picturbox (picArrow) doesnt move at all, ive tryed many different kinds of codes, all i want it to do is move the picArrow, help!
-
I am sure it should work like that too some way, but using the getkeystate API will be better anyways so take a look into that...
-
if you have a command button or something else that can get 'focus' then it wont work.
if your page is free of command buttons etc and only consists of the form, and your pic then i have no idea.
-
this isnt making any sense, i put this code into a new project:
Dim keycode As String
Private Sub form_KeyDown(keycode As Integer, Shift As Integer)
If keycode = 37 Then
MsgBox "you pressed left"
End If
End Sub
and it works perfectly, but when i put it into the project where i want it to be, it doesnt work.
btw, whats the keycode number for enter, escape, and space bar? (where can i get a full list?)
oh and another thing, when i compile the new project which sais "You pressed left" when you press left, and i send it to my friend, he gets the messege when he presses down...
-
oh, woops, i made a mistake in that post, that
Dim KeyCode as String
isnt suposed to be there.
everythign works as long as there isnt anything in the form.
-
never mind, i got everything to work perfectly. Thansk for the help.
-
alright...
by the way for you code
you can post it between code or vbcode tags which will make it much more readable.
-
oh right, i dont know how to do that.
-
alright put the word
vbcode in those paranthese []
and to end it /vbcode
-
