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

编程高手之路—vb入门和游戏编写—VB 贪吃蛇 单人版游戏(三)Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)??? blnOnKeyEvents = True 放开一个键之后，才能接收按键事件End Sub Private Sub Form_Load()??? Me.KeyPreview = True??? picDisplay.BackColor = EMPTY_COLOR??? curLevel = 6 默认级别:6??? HscrLevel.Value = curLevel??? End Sub 游戏结束Private Sub GameOver()??? Dim Ans As Integer??? ??? P1.blnGameOver = True??? tmrMove.Enabled = False??? If PrizeRemain 0 Then Call ShowPrize(False)??? ??? MsgBox 游戏结束。你的得分是： vbCrLf P1.Score, vbInformation, GAME OVER??? Call CheckRecord(P1.Score)? 检查分数能否上榜??? ??? Call cmdNewGame_Cli