bsp; Else
Form_main.Timer_speed = True
End If
Case 7 ''''一字型
If Form_main.Image_block(by * 10 + 3).Visible = True Or Form_main.Image_block(by * 10 + 4).Visible = True Or Form_main.Image_block(by * 10 + 13).Visible = True Or Form_main.Image_block(by * 10 + 14).Visible = True Then
Form_main.Timer_speed.Enabled = False
Form_main.timer_now.Enabled = False
MsgBox "游戏结束！^_^"
Else
Form_main.Timer_speed = True
End If
Case 8
If Form_main.Image_block(by * 10 + 3).Visible = True Or Form_main.Image_block(by * 10 + 4).Visible = True Or Form_main.Image_block(by * 10 + 13).Visible = True Or Form_main.Image_block(by * 10 + 14).Visible = True Then
Form_main.Timer_speed.Enabled = False
Form_main.timer_now.Enabled = False
MsgBox "游戏结束！^_^"
Else
Form_main.Timer_speed = True
End If
Case 9
If Form_main.Image_block(by * 10 + 3).Visible = True Or Form_main.Image_block(by * 10 + 4).Visible = True Or Form_main.Image_block(by * 10 + 13).Visible = True Or Form_main.Image_block(by * 10 + 14).Visible = True Then
Form_main.Timer_speed.Enabled = False
Form_main.timer_now.Enabled = False
MsgBox "游戏结束！^_^"
Else
Form_main.Timer_speed = True
End If
Case 10
If Form_main.Image_block(by * 10 + 3).Visible = True Or Form_main.Image_block(by * 10 + 4).Visible = True Or Form_main.Image_block(by * 10 + 13).Visible = True Or Form_main.Image_block(by * 10 + 14).Visible = True Then
Form_main.Timer_speed.Enabled = False
Form_main.timer_now.Enabled = False
MsgBox "游戏结束！^_^"
Else
Form_main.Timer_speed = True
End If
Case 11 ''''一
If Form_main.Image_block(by * 10 + 3).Visible = True Or Form_main.Image_block(by * 10 + 4).Visible = True Or Form_main.Image_block(by * 10 + 13).Visible = True Or Form_main.Image_block(by * 10 + 14).Visible = True Then
Form_main.Timer_speed.Enabled = False
Form_main.timer_now.Enabled = False
MsgBox "游戏结束！^_^"
Else
Form_main.Timer_speed = True
End If
Case 12
If Form_main.Image_block(by * 10 + 3).Visible = True Or Form_main.Image_block(by * 10 + 4).Visible = True Or Form_main.Image_block(by * 10 + 13).Visible = True Or Form_main.Image_block(by * 10 + 14).Visible = True Then
Form_main.Timer_speed.Enabled = False
Form_main.timer_now.Enabled = False
MsgBox "游戏结束！^_^"
Else
Form_main.Timer_speed = True
End If
Case 13
If Form_main.Image_block(by * 10 + 3).Visible = True Or Form_main.Image_block(by * 10 + 4).Visible = True Or Form_main.Image_block(by * 10 + 13).Visible = True Or Form_main.Image_block(by * 10 + 14).Visible = True Then
Form_main.Timer_speed.Enabled = False
Form_main.timer_now.Enabled = False
MsgBox "游戏结束！^_^"
Else
Form_main.Timer_speed = True
End If
Case 14
If Form_main.Image_block(by * 10 + 3).Visible = True Or Form_main.Image_block(by * 10 + 4).Visible = True Or Form_main.Image_block(by * 10 + 13).Visible = True Or Form_main.Image_block(by * 10 + 14).Visible = True Then
Form_main.Timer_speed.Enabled = False
Form_main.timer_now.Enabled = False
MsgBox "游戏结束！^_^"
&nb上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> |
