Printable View
hey im a new guy,
Does anyone know how to code movement of 2 pictureboxes simultaneously in VB6? I know how to make the pictureboxes move via key press but i can't move them at the same time.
Thanks
AdvComp:duck::check::ehh::wave::D:rolleyes::bigyello::afrog:
:ehh:Code:Private Sub Command1_Click()
Picture1.Left = Picture1.Left + 50
Picture2.Left = Picture2.Left - 50
End Sub
Thanks, but I've already got that part except I'm using
.Top since I'm moving picturebox up and down. I can code two pictureboxes moving except if you are moving one the other doesn't move. Does anyone know how to solve this?
Can you explain what do you mean ? what code do you use ?Quote:
Originally Posted by AdvComp
try the following way . hope it might helpQuote:
Thanks, but I've already got that part except I'm using
.Top since I'm moving picturebox up and down. I can code two pictureboxes moving except if you are moving one the other doesn't move. Does anyone know how to solve this?
Code:Option Explicit
Dim bmove As Boolean
Private Sub btmove_Click()
bmove = True
Picture1.Left = Picture1.Left + 50
End Sub
Private Sub btmovetop_Click()
If bmove = False Then
Picture1.Top = Picture1.Top + 50
End If
End Sub
post the movement code here.
I'm taking a long shot guess here, correct me if im wrong, you're using Keypress to move a picture box like this:
And this causes you not to be able to move the picture box up and left (diagonally) simultaneously for example.Code:Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then Picture1.Top = Picture1.Top + 50
If KeyCode = vbKeyUp Then Picture1.Top = Picture1.Top - 50
If KeyCode = vbKeyLeft Then Picture1.Left = Picture1.Left - 50
If KeyCode = vbKeyRight Then Picture1.Left = Picture1.Left + 50
End Sub
You may use this code instead:
do post if that indeed was the issue.Code:Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer ' Auto Typer Keys
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If GetAsyncKeyState(vbKeyDown) Then Picture1.Top = Picture1.Top + 50
If GetAsyncKeyState(vbKeyUp) Then Picture1.Top = Picture1.Top - 50
If GetAsyncKeyState(vbKeyLeft) Then Picture1.Left = Picture1.Left - 50
If GetAsyncKeyState(vbKeyRight) Then Picture1.Left = Picture1.Left + 50
End Sub
do remember that moving a control over another control \ form, will cause it to flicker.
you may solve that by using Bitbit (i'll elaborate about it if required).
I am coding the game Pong. I have A+Z to go up and down for picture1 and for picture2 I use the arrow keys. Except if I press For example, A and an arrow key, only one of the pictures move
A picture is worth a thousand words, if you know what I mean.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then Picture1.Top = Picture1.Top + 50
If KeyCode = vbKeyUp Then Picture1.Top = Picture1.Top - 50
If KeyCode = vbKeyZ Then Picture2.Left = Picture2.Left + 50
If KeyCode = vbKeyA Then Picture2.Left = Picture2.Left - 50
End Sub
Attachment 105841
This works simultaneouslyCode:Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If GetAsyncKeyState(vbKeyDown) Then Label1.Top = Label1.Top + 50
If GetAsyncKeyState(vbKeyUp) Then Label1.Top = Label1.Top - 50
If GetAsyncKeyState(vbKeyZ) Then Label2.Left = Label2.Left + 50
If GetAsyncKeyState(vbKeyA) Then Label2.Left = Label2.Left - 50
End Sub
Quote:
Originally Posted by stum
Thanks a lot this works for me. But i am wondering what does the declaration do?
Thanks Again
Good, Tag it as resolved :)
the declaration is to declare the api that you are using to get if the key is pressed or not ! you are calling this function which is not native VB so you should declare it
How do you tag it as resolved?
Quote:
Originally Posted by AdvComp