Need help with Object Collision
Okay, IntersectRect isn't working... I fear I'm not smart enough to use it!!! :eek:
VB Code:
Type RECT
LEFT As Long
RIGHT As Long
BOTTOM As Long
TOP As Long
End Type
Declare Function IntersectRect Lib "user32" (lpDestRect As RECT, lpSrc1Rect As RECT, lpSrc2Rect As RECT) As Long
Dim temparray As RECT
Dim rect1 As RECT
Dim rect2 As RECT
rect1.BOTTOM = 4
rect1.TOP = 1
rect1.LEFT = 1
rect1.RIGHT = 4
rect2.BOTTOM = 6
rect2.TOP = 2
rect2.LEFT = 2
rect2.RIGHT = 6
If IntersectRect(temparray, rect1, rect2) <> 0 Then
Call MsgBox("HIT HIT HIT")
Call MsgBox(temparray.TOP & vbTab & temparray.BOTTOM & vbCrLf & temparray.LEFT & vbTab & temparray.RIGHT)
End If
This is just an example but I still can't get it to work... Whats wrong with it? Could somebody fix it! THANKS!
NOMAD