我要使两个Shape控件在撞在一起的时候能弹出一个对话框
其中一个撞到另外一个的时候弹出对话框
哪个高手给我个判断的条件
判断他们是否撞在一起
If Shape2.Top <= Shape1.Top And Shape2.Top >= Shape1.Top - Shape1.Height And Shape2.Left >= Shape1.Left And Shape2.Left <= Shape1.Left - Shape1.Width Then
MsgBox "撞到了"
这个是我自己想出来的可是没用 希望高手帮忙纠正下
这只是一个小小的例子
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Shape1.Left = Shape1.Left + 10
Shape2.Left = Shape2.Left - 10
If Shape1.Left + Shape1.Width - 15 = Shape2.Left Then MsgBox "撞到了": Timer1.Enabled = False
End Sub
原来这么简单啊。。。。一点点的摸索才弄出来的，加点分给我吧。。。。