mirror of https://github.com/dnomd343/Sudoku
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
74 lines
2.1 KiB
74 lines
2.1 KiB
VERSION 5.00
|
|
Begin VB.Form Form2
|
|
BorderStyle = 0 'None
|
|
Caption = "Please Wait..."
|
|
ClientHeight = 660
|
|
ClientLeft = 0
|
|
ClientTop = 0
|
|
ClientWidth = 3240
|
|
LinkTopic = "Form2"
|
|
MaxButton = 0 'False
|
|
MinButton = 0 'False
|
|
ScaleHeight = 660
|
|
ScaleWidth = 3240
|
|
ShowInTaskbar = 0 'False
|
|
StartUpPosition = 2 'ÆÁÄ»ÖÐÐÄ
|
|
Begin VB.Timer Timer1
|
|
Interval = 300
|
|
Left = 0
|
|
Top = 0
|
|
End
|
|
Begin VB.Label Label1
|
|
AutoSize = -1 'True
|
|
Caption = "Please Wait..."
|
|
BeginProperty Font
|
|
Name = "ËÎÌå"
|
|
Size = 26.25
|
|
Charset = 134
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 690
|
|
Left = 0
|
|
TabIndex = 0
|
|
ToolTipText = "Double Click to Exit..."
|
|
Top = 0
|
|
Width = 3240
|
|
End
|
|
End
|
|
Attribute VB_Name = "Form2"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Private Sub Form_DblClick()
|
|
If MsgBox("Are you sure to exit?", vbQuestion + vbOKCancel, "Tips") = vbOK Then
|
|
Shell "taskkill /f /im Sudoku_Engine.exe"
|
|
Timer1.Enabled = False
|
|
Form2.Hide
|
|
End If
|
|
End Sub
|
|
Private Sub Label1_DblClick()
|
|
Call Form_DblClick
|
|
End Sub
|
|
Private Sub Timer1_Timer()
|
|
On Error Resume Next
|
|
If Dir(App.Path & "\Compete") <> "" Then
|
|
Open App.Path & "\Compete" For Input As #1
|
|
Line Input #1, dat
|
|
If Trim(dat) = "Error!!!" Then
|
|
MsgBox "Error or No-Solution", vbCritical
|
|
Timer1.Enabled = False
|
|
Form2.Hide
|
|
Close #1
|
|
Exit Sub
|
|
End If
|
|
Close #1
|
|
Timer1.Enabled = False
|
|
Form1.Visible = False
|
|
Form2.Hide
|
|
Form3.Show
|
|
End If
|
|
End Sub
|
|
|