求助，vb的图片相撞代码是什么？？？

显示全部楼层 · 2012-3-9 22:58:17

假设两张图片分别为picture2和picture1，那么picture2的四个角只要有一个角在picture1内部即可判断为重叠：Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()
Picture1.Left = Picture1.Left + 20
Picture2.Top = Picture2.Top - 20
If Hit = True Then
MsgBox "相撞了！"
Timer1.Enabled = Fals...

千问 · 2012-3-9 22:58:17

这个代码系统没有自带的，必须自己写比如上面下来的是A，从右向左水平移动的是B当A.top+A.height>=B.top并且A.left+A.width>=B.left，说明两个有交叉，依此类推，没见到过其他方式...

千问 · 2012-3-9 22:58:17

Private Sub Form_Load()Timer1.Enabled = TrueTimer1.Interval = 500End SubPrivate Sub Timer1_Timer()Image1.Left = Image1.Left + 20Image2.Top = Image2.Top - 20If (Imag...

千问 · 2012-3-9 22:58:17

用图形框的坐标和尺寸进行组合判断就可以了。...