Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '::::::::::::::::::::Made by kaed @ swag.li & hackcommunity.com::::::::::::::::::::
- 'If your new to making games and want to check for a collision this is what you need.
- 'Example of use: simple_collision_detection(PictureBox1, PictureBox2)
- Private Sub simple_collision_detection(ByVal control1 As Control, ByVal control2 As Control)
- If control1.Left < control2.Left And control2.Left < control1.Right And control1.Top < control2.Top And control2.Top < control1.Bottom Or _
- control1.Left < control2.Left And control2.Left < control1.Right And control2.Bottom < control1.Bottom And control1.Top < control2.Bottom Or _
- control1.Left < control2.Right And control2.Right < control1.Right And control1.Top < control2.Top And control2.Top < control1.Bottom Or _
- control1.Left < control2.Right And control2.Right < control1.Right And control2.Bottom < control1.Bottom And control1.Top < control2.Bottom Or _
- control1.Left < control2.Left And control2.Left < control1.Right And control2.Top < control1.Top And control1.Bottom < control2.Bottom Or _
- control2.Right < control1.Right And control1.Left < control2.Right And control2.Top < control1.Top And control1.Bottom < control2.Bottom Or _
- control1.Top < control2.Top And control2.Top < control1.Bottom And control2.Left < control1.Left And control1.Right < control2.Right Or _
- control2.Bottom < control1.Bottom And control1.Top < control2.Bottom And control2.Left < control1.Left And control1.Right < control2.Right Then
- 'code goes here!
- MessageBox.Show("hit!")
- End If
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement