function code :
summon code
the walkthrough assumes you put the function in the A.Eye named class :flower:
Code:
Public Shared Function overlappingRectangles(ByVal R1 As Rectangle, ByVal R2 As Rectangle) As Boolean
If R1.X > (R2.X + R2.Width) Or (R1.X + R1.Width) < R2.X Then
Return False
End If
If R1.Y > (R2.Y + R2.Height) Or (R1.Y + R1.Height) < R2.Y Then
Return False
End If
Return True
End Functionsummon code
Code:
Dim R1 As New Rectangle(0, 0, 10, 10)
Dim R2 As New Rectangle(-8, -5, 300, 200)
Dim Bool2 As Boolean = Aeye.overlappingRectangles(R1, R2)
MessageBox.Show(CStr(Bool2))the walkthrough assumes you put the function in the A.Eye named class :flower: