编程高手之路—vb入门和游戏编写—VB贪吃蛇单人版游戏(二)《主窗体FrmPlay代码》——PrivateblnStartGameAsBoolean'标记是否已经开始新游戏（T＝游戏已经开始）PrivateblnPauseAsBoolean'标记当前是否处于暂停状态（T＝暂停）PrivateblnThroughWallAsBoolean'标记是否为穿墙模式（T＝可以穿墙）PrivateblnOnKeyEventsAsBoolean'标记是否能够接收键盘事件（T＝可以接收），此变量可防止Form_KeyDown()事件重复执行PrivateMap_WidthAsInteger'地图宽度（象素）PrivateMap_HeightAsInteger'地图高度（象素）PrivateMap_Empty_Color'地图－空白地颜色PrivateMap_Bomb_Color'地图－炸弹颜色PrivateMap_Food_Color'地图－食物颜色PrivateMapProperty()AsInteger'记录地图各个网格的属性PrivatecurEatCountAsInteger'记录每次出现奖品之前，一共吃进多少物品（包括食物和炸弹，奖品不计），当奖品出现后，此变量值变为零"0"，然后进入下一次统计PrivatecurLevelAsInteger'当前级别PrivateP1AsthePlayerInfo'记录Player1的信息PrivateSnake_P1()AsthePosition'记录蛇身坐标PrivatePrizePosAsthePosition'记录奖品的坐标PrivateRecord(9)AstheRecord'存放前十名的得分记录信息OptionExplicitPrivateSubcmdHelp_Click()IfblnPause=FalseThenCallForm_KeyDown(KEY_PAUSE,0)'如果游戏正在进行，则发送“暂停”按键事件，暂停游戏frmHelp.ShowEndSub'开始新游戏PrivateSubcmdNewGame_Click()DimiAsIntegerRandomize'重新生成随机数列blnStartGame=NotblnStartGameIfblnStartGameThencmdNewGame.Caption="停止"ElsecmdNewGame.Caption="新游戏"EndIf'中止游戏IfblnStartGame=FalseThen'如果上一次的奖品还没有消失（以PrizeRemain>0为标志），就先清除旧的奖品，然后才显示新的奖品IfPrizeRemain>0ThenCallShowPrize(False)picDisplay.ClsP1.Score=0'玩家的初始分数P1.Food=0P1.Bomb=0curEatCount=0PrizeRemain=0blnPause=FalselblPause.Visible=FalselblScore.Caption=P1.ScorelblFoodCount.Caption=P1.FoodlblBombCount.Caption=P1.BombP1.blnGameOver=TrueHscrLevel.Enabled=TruetmrMove.Enabled=FalseExitSubEndIfblnThroughWall=True'穿墙模式blnOnKeyEvents=True'暂时使用默认填充色Map_Bomb_Color=BOMB_COLORMap_Empty_Color=EMPTY_COLORMap_Food_Color=FOOD_COLORP1.BodyColor=BODY_COLORP1.HeadColor=HEAD_COLOR'地图初始化ReDimMapProperty(MAX_COL_INDEX,MAX_ROW_INDEX)Map_Width=(MAX_COL_INDEX+1)*MAP_SCALEMap_Height=(MAX_ROW_INDEX+1)*MAP_SCALEpicDisplay.ClspicDisplay.Width=Map_Width+2picDisplay.Height=Map_Height+2picDisplay.Line(0,0)-Step(Map_Width,Map_Height),Map_Empty_Color,BFFoodCount_AtOneTime=2'地图上同时存在的食物数量BombCount_AtOneTime=1'地图上同时存在的炸弹数量EatCountPerShowPrize=5'设置蛇每吃进多少物品（包括食物和炸弹，奖品不计）才显示一次奖品curLevel