move a shape with arrows

[SwedishLover]

how do i make a shape move to the right and the left when u press the arrows on the keyboard? THANKS!

[Joacim Andersson]

Set the KeyPreview property of the Form to True and use code simular to the following in the KeyDown event of the form.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyDown
            Shape1.Top = Shape1.Top + 45 '3 pixels
        Case vbKeyUp
            Shape1.Top = Shape1.Top - 45 '3 pixels
        Case vbKeyLeft
            Shape1.Left = Shape1.Left - 45
        Case vbKeyRight
            Shape1.Left = Shape1.Left + 45
    End Select
End Sub

Best regards

[filburt1]

Rather than using 45 for 3 pixels, I suggest (with all respect to Joacim ):

Screen.TwipsPerPixelX * 3
 
' and
 
Screen.TwipsPerPixelY * 3

Twips are dumb.

[Mega_Man]

The picture would flicker like mad though. would it not?
How would you resolve that?

[Lethal]

Try setting the autoredraw property to true on the form. Just one way, as there are a few others..

[Joacim Andersson]

Originally posted by filburt1
Rather than using 45 for 3 pixels, I suggest (with all respect to Joacim ):

Screen.TwipsPerPixelX * 3
' and
Screen.TwipsPerPixelY * 3

Twips are dumb.

I agree, i'm just drunk and lazy right now

[filburt1]

If you use either LockWindowUpdate Me.hwnd (see the API viewer for the declaration) or use BitBlt you can get rid of the flicker:

LockWindowUpdate Me.hwnd
' move stuff
LockWindowUpdate 0 ' I think

[Joacim Andersson]

Hey filbert1!
Why have you stoped using your turtles in your avitars?
I don’t really appreciate that you’re now using a picture of my girlfriend

[filburt1]

Originally posted by Joacim Andersson
Hey filbert1!
Why have you stoped using your turtles in your avitars?
I don’t really appreciate that you’re now using a picture of my girlfriend

I've still got over 100, many based on Filburt: http://www.turtletips.com/avatars/

And she's too hot to get rid of.

[Joacim Andersson]

Originally posted by filburt1


I've still got over 100, many based on Filburt: http://www.turtletips.com/avatars/

And she's too hot to get rid of.

I know that she's hot because I'm sleeping with her (I wish )

[Mega_Man]

You sleep Joacim??
When?.. you're always on here.

[filburt1]

Originally posted by Joacim Andersson
I know that she's hot because I'm sleeping with her (I wish )

You are so drunk tonight.

[Joacim Andersson]

Originally posted by Mega_Man
You sleep Joacim??
When?.. you're always on here.

I don't need any sleep I've got Whiskey!

Originally posted by filburt1
You are so drunk tonight

You are so right
I've actually got a party going on right now and you're all invited

[DaoK]

Here is a old project I have made just to show you how to move a shape.

[SwedishLover]

I used this code and named my shape "player" but it doesnt move!
Private Sub player_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyRight Then
player.Left = player.Left + 30
End If
If KeyCode = vbKeyLeft Then
player.Left = player.Left - 30
End If
If KeyCode = vbKeyUp Then
If player.Top < Line2.Y1 Then Exit Sub
player.Top = player.Top - 30
End If
If KeyCode = vbKeyDown Then
If (player.Top + player.Height) > Line1.Y1 Then Exit Sub
player.Top = player.Top + 30
End If
End Sub

[Joacim Andersson]

You should use the Form_KeyDown event and not the player_KeyDown event.
You also have to set the KeyPreview property of the Form to True.

Best regards

[SwedishLover]

thanks, now it works