'自定义判断函数
Function IsTouched(a, b) As Boolean
IsTouched = Not ( _
a.Left > b.Left + b.Width Or _
b.Left > a.Left + a.Width Or _
a.Top > b.Top + b.Height Or _
b.Top > a.Top + a.Height)
End Function
'判断控件是否触碰：
If IsTouched(Picture1, Picture2) Then MsgBox "Picture1 碰到 Picture2"
根据控件的坐标来判断，
任何控件都有自己独立的坐标，
移动的时候，对坐标做计算，
出相应的提示。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024