编程高手之路—v入门和游戏编写—VB 贪吃蛇 单人版游戏(四).docVIP

编程高手之路—vb入门和游戏编写—VB 贪吃蛇 单人版游戏(四)刷新蛇身坐标，更新 地图网格属性 以及画面??? 参数：蛇头的新坐标_X，蛇头的新坐标_Y，是否增加蛇身长度（T＝增加）Private Sub RefreshSnake(NewHead_X As Integer, NewHead_Y As Integer, blnAddLength As Boolean)??? Dim i As Integer??? Dim OldTail As thePosition 用于在更新蛇身坐标之前，保存原来的 蛇尾坐标??? ??? OldTail = Snake_P1(UBound(Snake_P1)) 保存旧的蛇尾坐标??? ??? picDisplay.Line (Snake_P1(0).X * MAP_SCALE, Snake_P1(0).Y * MAP_SCALE)-Step(MAP_SCALE, MAP_SCALE), P1.BodyColor, BF?? 在地图上 擦除旧的的蛇头??? picDisplay.Line (NewHead_X * MAP_SCALE, NewHead_Y * MAP_SCALE)-Step(MAP_SCALE, MAP_SCALE), P1.HeadColor, BF 在地图上 绘画出新的蛇头??? ??? MapPrope