哪位大神可以帮帮我，如何在VB中使两个移动中的image相碰导致程序结束。。？？
1个回答
展开全部
dim w as long,h as long,
dim w2 as long,h2 as long
w=image1.left+image1.width
h=image1.top+image1.height
h2=image2.top+image2.height
w2=image2.left+image2.width
with image2
' 1 左右碰撞：
if (w>=.left) and (h>=.top and image1.top<=h2) then end
' 2上下碰撞：
if (h>=.top) and (w>=.left and image1.left<=w2) then end
end with
dim w2 as long,h2 as long
w=image1.left+image1.width
h=image1.top+image1.height
h2=image2.top+image2.height
w2=image2.left+image2.width
with image2
' 1 左右碰撞：
if (w>=.left) and (h>=.top and image1.top<=h2) then end
' 2上下碰撞：
if (h>=.top) and (w>=.left and image1.left<=w2) then end
end with
更多追问追答
追问
我按照你这样打上去，居然按启动键启动不了。。。想不明白原因。。。好奇怪哦！
追答
我只是给你举了个例子，具体这些代码放到哪个过程要看你的实际情况。你不会直接把代码拷贝到窗体就启动吧?
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
