hello everyone, I am new here as I am new to VB. Also it looks like I have very similar problem like the guy above. i found this code after doing simple google search and it is simple enough for me (I want to keep it this way until my skills in VB improve ). The problem is - I want to have walls in my game. It looks like it is very simple thing to do - replace beep with something that would prevent two images overlapping, but I have no idea how to do it. (And believe me I tried) Thanks to those who can help out. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim pic1Left As Integer, pic1Top As Integer, pic1Right As Integer
Dim pic1Bottom As Integer'Declare parameter variables for image 1
Dim pic2Left As Integer, pic2Top As Integer
Dim pic2Right As Integer, pic2Bottom As Integer 'Declare parameter variables for image 2
Dim topBetween As Boolean, bottomBetween As Boolean
Dim leftBetween As Boolean, rightBetween As Boolean
Select Case KeyCode
Case vbKeyDown
Image1.Top = Image1.Top + 50
Case vbKeyUp
Image1.Top = Image1.Top - 50
Case vbKeyLeft
Image1.Left = Image1.Left - 50
Case vbKeyRight
Image1.Left = Image1.Left + 50
End Select
'Assign image1 variables
pic1Left = Image1.Left
pic1Right = Image1.Left + Image1.Width
pic1Top = Image1.Top
pic1Bottom = Image1.Top + Image1.Height
'Assign image2 variables
pic2Left = Image2.Left
pic2Right = Image2.Left + Image2.Width
pic2Top = Image2.Top
pic2Bottom = Image2.Top + Image2.Height
'Crash code
If pic1Left >= pic2Left And pic1Left <= pic2Right Then
leftBetween = True
End If
If pic1Right >= pic2Left And pic1Right <= pic2Right Then
rightBetween = True
End If
If pic1Top >= pic2Top And pic1Top <= pic2Bottom Then
topBetween = True
End If
If pic1Bottom >= pic2Top And pic1Bottom <= pic2Bottom Then
bottomBetween = True
End If
If leftBetween = True Or rightBetween = True Then
If topBetween = True Or bottomBetween = True Then
Beep
End If
End If
End Sub
|