【文件属性】:
文件名称:vb扫雷程序
文件大小:585KB
文件格式:RAR
更新时间:2016-01-14 03:24:27
扫雷
扫雷:
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
【文件预览】:
庄健和吴鹏
----新建 Microsoft PowerPoint 演示文稿.ppt(530KB)
----Eatery()
--------MineSweeper()
--------MineSweeper.sln(929B)
--------MineSweeper.suo(51KB)