visual basic,비주얼베이직,vb .net강좌-충돌테스트,충돌감지,Collide Detection,Crash sensor,Collision,game,Bounds,IntersectsWith

위와 같이 콘트롤을 배치합니다.

Public Class Form1

    Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove

        b2.Location = New Point(e.X, e.Y)

        Collision(b1, b2)

    End Sub

    Public Sub Collision(ByVal a As Object, ByVal b As Object)

        If a.Bounds.IntersectsWith(b.Bounds) Then

            Label1.Text = "Collision"

        Else

            Label1.Text = "No Collision"

        End If

    End Sub

   

End Class