reStart重新生成所有方块对象-vb.net开发游戏第6－10章
reStart()重新生成所有方块对象，并检测是否本身存在横排或竖排有3个以上相同的图像， Public Sub reStart() gameField.createAll() While gameField.check() 0 gameField.fill() Thread.Sleep(500) '等待一下End While End Sub gameover()处理游戏结束。 Public Sub gameover()'处理游戏结束事件timer1.Stop() Dim tempimg As Image = SuperPeng.My.Resources.bg_end Dim g As Graphics = Graphics.FromImage(tempimg) g.DrawString(score.ToString(), New Font("Arial", 36, FontStyle.Bold), New SolidBrush(Color.Yellow), New Point(238, 240)) pic_GameField.Image = tempimg ToolStripMenuItem1.Enabled = False pic_GameField.Enabled = False End Sub
文件大小：2.53MB
评论区