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

编程高手之路—vb入门和游戏编写—VB 贪吃蛇 单人版游戏 二 《主窗体 FrmPlay 代码》—— Private blnStartGame As Boolean 标记是否已经开始 新游戏（T＝游戏已经开始）Private blnPause As Boolean 标记当前是否处于暂停状态（T＝暂停）Private blnThroughWall As Boolean 标记是否为穿墙模式（T＝可以穿墙）Private blnOnKeyEvents As Boolean 标记是否能够 接收键盘事件（T＝可以接收），此变量可防止 Form_KeyDown 事件重复执行 Private Map_Width As Integer 地图宽度（象素）Private Map_Height As Integer 地图高度（象素）Private Map_Empty_Color 地图－空白地颜色Private Map_Bomb_Color 地图－炸弹颜色Private Map_Food_Color 地图－食物颜色Private MapProperty As Integer 记录地图各个网格的属性 Private curEatCount As Integer 记录 每次出现奖品之前，一共吃进多少物品（包括食物和炸弹，奖品不计），当奖品出现后，此变量值变为 零0，然后进入下一次统计