mirror of https://github.com/dnomd343/HRD_Game
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.
96 lines
2.6 KiB
96 lines
2.6 KiB
VERSION 5.00
|
|
Begin VB.Form Form_Wait
|
|
BorderStyle = 0 'None
|
|
ClientHeight = 465
|
|
ClientLeft = 0
|
|
ClientTop = 0
|
|
ClientWidth = 1920
|
|
LinkTopic = "Form1"
|
|
ScaleHeight = 465
|
|
ScaleWidth = 1920
|
|
ShowInTaskbar = 0 'False
|
|
StartUpPosition = 2 'ÆÁÄ»ÖÐÐÄ
|
|
Begin VB.Timer Timer_Debug
|
|
Interval = 100
|
|
Left = 0
|
|
Top = 0
|
|
End
|
|
Begin VB.TextBox Text_Debug
|
|
Appearance = 0 'Flat
|
|
Height = 650
|
|
Left = 0
|
|
Locked = -1 'True
|
|
MultiLine = -1 'True
|
|
TabIndex = 1
|
|
Top = 480
|
|
Width = 1920
|
|
End
|
|
Begin VB.Timer Timer
|
|
Interval = 50
|
|
Left = 0
|
|
Top = 0
|
|
End
|
|
Begin VB.Label Label_Wait
|
|
AutoSize = -1 'True
|
|
Caption = " ÇëÉÔµÈŶ... "
|
|
BeginProperty Font
|
|
Name = "΢ÈíÑźÚ"
|
|
Size = 18
|
|
Charset = 134
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 465
|
|
Left = 0
|
|
TabIndex = 0
|
|
ToolTipText = "Ë«»÷¿ÉÈ¡Ïû"
|
|
Top = 0
|
|
Width = 1920
|
|
End
|
|
End
|
|
Attribute VB_Name = "Form_Wait"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
Private Sub Form_Load()
|
|
If debug_mode = True Then
|
|
Form_Wait.height = 1145
|
|
Text_Debug.Visible = True
|
|
Else
|
|
Form_Wait.height = 465
|
|
Text_Debug.Visible = False
|
|
End If
|
|
If on_top = True Then
|
|
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 1 Or 2
|
|
Else
|
|
SetWindowPos Me.hwnd, -2, 0, 0, 0, 0, 1 Or 2
|
|
End If
|
|
wait_cancel = False
|
|
waiting = True
|
|
Label_Wait.BackColor = case_color
|
|
End Sub
|
|
Private Sub Label_Wait_DblClick()
|
|
If MsgBox("ÕæҪȡÏûô?", vbYesNo, "> _ <") = vbNo Then Exit Sub
|
|
wait_cancel = True
|
|
waiting = False
|
|
Unload Form_Wait
|
|
End Sub
|
|
Private Sub Timer_Timer()
|
|
On Error Resume Next
|
|
If Dir(wait_file_name) <> "" Then
|
|
wait_cancel = False
|
|
waiting = False
|
|
Unload Form_Wait
|
|
End If
|
|
End Sub
|
|
Private Sub Timer_Debug_Timer()
|
|
Dim debug_dat As String
|
|
debug_dat = "wait_cancel=" & wait_cancel & vbCrLf
|
|
debug_dat = debug_dat & "wait_file_name" & vbCrLf & "=" & wait_file_name & vbCrLf
|
|
Text_Debug = debug_dat
|
|
End Sub
|
|
|
|
|