扫雷程序设计.docVIP

Option Explicit 标题栏21 确定TOP = 70 取消TOP = 31 LEFT=123 按钮大小 60 * 24 文本框大小 38 * 18 文本框高度76 54 31 Left=72 Private Sub Form_Load() Text1(0).Text = MHeight Text1(1).Text = MWidth Text1(2).Text = Mines RemoveMenuLine Me.hWnd, 5 End Sub Private Sub OKButton_Click() Let MHeight = Text1(0).Text If MHeight 9 Then Let MHeight = 9 If MHeight 24 Then Let MHeight = 24 Let MWidth = Text1(1).Text If MWidth 9 Then Let MWidth = 9 If MWidth 30 Then Let MWidth = 30 Let Mines = Text1(2).Text If Mines 10 Then Let Mines = 10 If Mines (MHeight - 1) * (MWidth - 1) Then Let Mines = (MHeight - 1) * (MWidth - 1) FrmMain.Cls FrmMain.GameStart 开始 Unload Me End Sub Private Sub CancelButton_Click() Unload Me End Sub Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If (KeyAscii 48 Or KeyAscii 57) And KeyAscii 8 Then KeyAscii = 0 End Sub Private Sub HotKey(Index As Integer) Text1(Index).SetFocus Text1(Index).SelStart = 0 Text1(Index).SelLength = Len(Text1(Index).Text) End Sub Private Sub Label1_Click() HotKey 0 End Sub Private Sub Label2_Click() HotKey 1 End Sub Private Sub Label3_Click() HotKey 2 End Sub Option Explicit Private Const vbGray = H848284 灰色 Private Const MLeft As Long = 180 雷区距离左侧(按Twips计算) Private Const MTop As Long = 825 雷区距离上部 Private Const WAVE_DEFAULT = 432 默认声音 Private Const WAVE_VICTORY = 433 失败声音 Private Const WAVE_LOST = 434 胜利声音 Private Const BMP_GRID_WIDTH = 16 格子的宽 Private Const BMP_GRID_HEIGHT = 16 格子的高 Private Const BMP_NUM_WIDTH = 13 数字的宽 Private Const BMP_NUM_HEIGHT = 23 数字的高 Private Const BMP_NUM_TOP = 16 数字距离上边（菜单底） Private Const BMP_NUM_MINE_LEFT = 17 计数器距离左侧 Private Const BMP_NUM_TIME_RIGHT = BMP_NUM_WIDTH * 3 + 20 计时器左侧距离窗体右侧 Private Const BMP_FACE_WIDTH = 24 表情的宽 Private Const BMP_FACE_HEIGHT = 24 表情的高 Private Const BMP_FACE_TOP = 16 表情距离上边（菜单底） Private CanPeeper As Boolean 作弊 初级9/9/10 中级16/16/40 高级30/16/99 Private NoMine As Boolean Priva