作者vfionnkg (vfionnkg)
看板Visual_Basic
标题Re: [VB6 ] 请各位帮帮忙
时间Sat Apr 18 12:41:01 2009
※ 引述《vfionnkg (vfionnkg)》之铭言：
: 我写了一个关於打砖块的程式,我是判断砖块跟球的,如果球碰到砖块,砖块会隐藏,
: 然後得到1分,老师说砖块只是隐藏起来,并不是不见了,其实它是存在的
: 请问要如果判断砖块真的不存在,然後球就会反弹到杆子的方向
: 下面是我的程式码
: For z = 0 To 55
: If Shape3(z).Left <= Shape2.Left + Shape2.Width / 2 And Shape3(z).Left + Shape3(z).Width >= Shape2.Left + Shape2.Width / 2 And Shape3(z).Top + Shape3(z).Height >= Shape2.Top And Shape3(z).Top <= Shape2.Top + Shape2.Height And Shape3(z).Visible = True Then y = -y: Shape3(z).Visible = False: score = score + 1
: If Shape3(z).Left <= Shape2.Left + Shape2.Width And Shape3(z).Left + Shape3(z).Width >= Shape2.Left And Shape3(z).Top + Shape3(z).Height >= Shape2.Top + Shape2.Height / 2 And Shape3(z).Top <= Shape2.Top + Shape2.Height / 2 And Shape3(z).Visible = True Then x = -x: Shape3(z).Visible = False: score = score + 1
: Next
要补充一下,shape1为杆子,shape2为球,shape3(z)为砖块
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 114.44.21.129