Question

在vb中如何判断一个可移动的控件是否触碰到另一个控件？

比如Picture1移动碰到Picture2后不可再移动或弹出消息，怎么写代码？求教

Answer 1

'自定义判断函数
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"

Answer 2

根据控件的坐标来判断，
任何控件都有自己独立的坐标，
移动的时候，对坐标做计算，
出相应的提示。