collision detection helpp!!!!!!!

[dflw]

ok, say i have a picture that moves around a form using the arrow keys. I also have another fixed picture in the center of the form. They are both rectangular....how do i detect a collision between the two images? and how do i make the picture that moves stop when it hits the other fixed picture???

thanks in advance

[hypnos]

You could say:

If KeyCode = vbKeyLeft Then
   If Picture1.Left > Picture2.Left + Picture2.Width Then
      Picture1.Left = Picture1.Left - 5
   End If
End If

If KeyCode = vbKeyRight Then
   If Picture1.Left + Picture1.Width < Picture2.Left Then
      Picture1.Left = Picture1.Left + 5
   End If
End If

If KeyCode = vbKeyUp Then
   If Picture1.Top > Picture2.Top + Picture2.Height Then
      Picture1.Top = Picture1.Top - 5
   End If
End If

If KeyCode = vbKeyDown Then
   If Picture1.Top + Picture1.Height < Picture2.Top Then
      Picture1.Top = Picture1.Top + 5
   End If
End If

I am assuming that picture2 is the static picture box

[dflw]

thankssss!!!! now how do i move a picture using the arrow keys? i used to have the code but its lost in my hdd....

[hypnos]

do you mean move a picture inside the picture box?

[hypnos]

BTW, that collision code is in no way fit for use. I just typed it up really quickly while in this forum. It should give you the idea though, which is what I was intending to do.

[dflw]

well, i get the idea.....but how do you move a picture with arrow keys?

[hypnos]

If you want to move a picture box with the arrow keys add this code:

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyLeft Then Picture1.Left = Picture1.Left - 20
    If KeyCode = vbKeyRight Then Picture1.Left = Picture1.Left + 20
    If KeyCode = vbKeyUp Then Picture1.Top = Picture1.Top - 20
    If KeyCode = vbKeyDown Then Picture1.Top = Picture1.Top + 20
End Sub

is that what you wanted?

[dflw]

yep, i had something like that but it didnt work..thanks for the help