VB 贪吃蛇 单人版游戏(二)【DOC精选】.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 记录 每次出现奖品之前，一共吃进多少物品（包括食物和炸弹，奖品不计），当奖品出现后，此变量值变为 零0，然后进入下一次统计 Private curLevel As Integer 当前级别 Private P1 As thePlayerInfo 记录Player1 的信息 Private Snake_P1() As thePosition 记录蛇身坐标 Private PrizePos As thePosition 记录奖品的坐标 Private Record(9) As theRecord 存放前十名的 得分记录信息 Option Explicit Private Sub cmdHelp_Click() If blnPause = False Then Call Form_KeyDown(KEY_PAUSE, 0) 如果游戏正在进行，则发送“暂停”按键事件，暂停游戏 frmHelp.Show End Sub 开始新游戏 Private Sub cmdNewGame_Click() Dim i As Integer Randomize 重新生成随机数列 blnStartGame = Not blnStartGame If blnStartGame Then cmdNewGame.Caption = 停止 Else cmdNewGame.Caption = 新游戏 End If 中止游戏 If blnStartGame = False Then 如果上一次的奖品还没有消失（以 PrizeRemain 0 为标志），就先清除旧的奖品，然后才显示新的奖品 If PrizeRemain 0 Then Call ShowPrize(False) picDisplay.Cls P1.Score = 0 玩家的初始分数 P1.Food = 0 P1.Bomb = 0 curEatCount = 0 PrizeRemain = 0 blnPause = False lblPause.Visible = False lblScore.Caption = P1.Score lblFoodCount.Caption = P1.Food lblBombCount.Caption = P1.Bomb P1.blnGameOver = True HscrLevel.Enabled = True tmrMove.Enabled = False Exit Sub End If blnThroughWall = True 穿墙模式 blnOnKeyEvents = True 暂时使用默认填充色 Map_Bomb_Color = BOMB_COLOR Map_Empty_Color = EMPTY_COLOR Map