VB 贪吃蛇 单人版游戏(二).docVIP

VB 贪吃蛇 单人版游戏(二) 文章来源： CSDN 文章作者： Bugs1984 《主窗体 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 记录 每次出现奖品之前，一共吃进多少物品（包括食物和炸弹，奖品不计），当奖品出