Question

vb中如何判断两个人图片框是否接触

Answer 1

Private Function 接触(对象1 As Object, 对象2 As Object) As Boolean
Const 允许误差 = 15
If (Abs(对象1.Left + 对象1.Width - 对象2.Left) < 允许误差 Or Abs(对象1.Left - 对象2.Left - 对象2.Width) < 允许误差) And (对象2.Top + 对象2.Height - 对象1.Top > 0 And 对象1.Top + 对象1.Height - 对象2.Top > 0) Then 接触 = True
If (Abs(对象1.Top + 对象1.Height - 对象2.Top) < 允许误差 Or Abs(对象1.Top - 对象2.Top - 对象2.Height) < 允许误差) And (对象2.Left + 对象2.Width - 对象1.Left > 0 And 对象1.Left + 对象1.Width - 对象2.Left > 0) Then 接触 = True
End Function

Answer 2

If Image2.Left < Image1.Left + Image1.Width Then
MsgBox "接触"
End If

Answer 3

没用过vb，图片框应该都有坐标，你通过计算坐标，看看有没有重叠或接触啊！