vb扫雷程序

扫雷： Public Class StartGame Private _Button As CustomButton Private _IsBusy As Boolean = True Public GameMode As Board.GameMode Public MaxPlayers As Integer Private Sub StartGame_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Hook Button for custom drawing _Button = New CustomButton(PlayGame) Version.Text = Application.ProductVersion TraditionalGame.Checked = (GameMode = Board.GameMode.Classic) ModernGame.Checked = (GameMode = Board.GameMode.Modern) _IsBusy = False End Sub Private Sub Game_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TraditionalGame.CheckedChanged, ModernGame.CheckedChanged If _IsBusy Then Return If sender.Equals(TraditionalGame) Then GameMode = Board.GameMode.Classic Else GameMode = Board.GameMode.Modern End If End Sub Private Sub Player_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Humans.ValueChanged, Computers.ValueChanged If sender.Equals(Humans) Then TestPlayers(Humans, Computers) Else TestPlayers(Computers, Humans) End If End Sub Private Sub TestPlayers(ByVal Player1 As NumericUpDown, ByVal Player2 As NumericUpDown) ' Check How many Players Select Case Player1.Value Case Is > MaxPlayers ' Too many Player1.Value = MaxPlayers Case Is > MaxPlayers - Player2.Value ' Too Many Player2.Value = MaxPlayers - Player1.Value Case 1 ' Maybe not enough If Player2.Value = 0 Then Player2.Value = 1 End If Case 0 ' Maybe not enough If Player2.Value < 2 Then Player2.Value = 2 End If Case Is < 0 ' Invalid Player1.Value = 0 End Select End Sub Private Sub Speed_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Speed.KeyPress ' Numeric and control character input only e.Handled = ((Not Char.IsDigit(e.KeyChar)) AndAlso (Not Char.IsControl(e.KeyChar))) End Sub End Class