点游戏.rar
(2.74 KB)
你参考参考吧。
这个程序里采取的是二次缓冲绘图,所以不会闪。我没加计分啥情况的。
还有碰撞检测还有点问题,可能是因为绘图就没绘好的原因。
感觉绘图半径的线的大小需要再仔细琢磨一下。
[此贴子已经被作者于2016-5-26 21:32编辑过]
授人于鱼,不如授人于渔
早已停用QQ了
If Movement = 0 Then Movement = 1 If Shape1.Top > Shape(i).Top Then Shape(i).Top = Shape(i).Top + 15 / Movement ElseIf Shape1.Top < Shape(i).Top Then Shape(i).Top = Shape(i).Top - 15 / Movement