From 2b16affa19dc727902a2af6b91a49de06f5e2be8 Mon Sep 17 00:00:00 2001 From: Dnomd343 Date: Wed, 15 Apr 2020 01:14:42 +0800 Subject: [PATCH] v1.9 --- Form_Detail.frm | 16 +++++---- Form_Game.frm | 86 ++++++++++++++++++++++++++++++++++++++++++---- Form_Game.frx | Bin 102090 -> 104580 bytes Form_Solution.frm | 6 +++- Form_Wait.frm | 3 +- HRD_Game.vbp | 2 +- HRD_Game.vbw | 2 +- 7 files changed, 98 insertions(+), 17 deletions(-) diff --git a/Form_Detail.frm b/Form_Detail.frm index 4d435c1..db82a91 100644 --- a/Form_Detail.frm +++ b/Form_Detail.frm @@ -180,12 +180,16 @@ Private Sub Timer_Get_Data_Timer() Combo_Detail.Enabled = Not loading If wait_data = True And waiting = False Then wait_data = False - MsgBox Form_Game.Label_Title, , "> _ <" - Call Get_Data(start_code & ".txt") - dat = "共衍生出" & group_size & "种布局" & vbCrLf & "最远为" & farthest_steps & "步" & vbCrLf - If min_steps = -1 Then dat = dat & "无解" Else dat = dat & "最少需要" & min_steps & "步" - MsgBox dat, , "> _ <" - Combo_Detail.ListIndex = 0 + If wait_cancel = True Then + Unload Form_Detail + Else + MsgBox Form_Game.Label_Title, , "> _ <" + Call Get_Data(start_code & ".txt") + dat = "共衍生出" & group_size & "种布局" & vbCrLf & "最远为" & farthest_steps & "步" & vbCrLf + If min_steps = -1 Then dat = dat & "无解" Else dat = dat & "最少需要" & min_steps & "步" + MsgBox dat, , "> _ <" + Combo_Detail.ListIndex = 0 + End If End If End Sub Private Sub Command_Analyse_Click() diff --git a/Form_Game.frm b/Form_Game.frm index 47404a5..5f6fb12 100644 --- a/Form_Game.frm +++ b/Form_Game.frm @@ -2,7 +2,7 @@ VERSION 5.00 Begin VB.Form Form_Game AutoRedraw = -1 'True BorderStyle = 1 'Fixed Single - Caption = "HRD Game v1.8 by Dnomd343" + Caption = "HRD Game v1.9 by Dnomd343" ClientHeight = 7305 ClientLeft = 45 ClientTop = 690 @@ -11,6 +11,7 @@ Begin VB.Form Form_Game LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False + MouseIcon = "Form_Game.frx":19442 ScaleHeight = 7305 ScaleWidth = 7290 StartUpPosition = 2 '屏幕中心 @@ -159,6 +160,22 @@ Begin VB.Form Form_Game Top = 7000 Width = 90 End + Begin VB.Menu Menu_Exterior + Caption = "外观" + Begin VB.Menu Menu_Exterior_White + Caption = "极简白" + End + Begin VB.Menu Menu_Exterior_Blue + Caption = "胖次蓝" + Checked = -1 'True + End + Begin VB.Menu Menu_Exterior_Yellow + Caption = "土豪金" + End + Begin VB.Menu Menu_Exterior_Green + Caption = "原谅绿" + End + End Begin VB.Menu Menu_Setting Caption = "设置" Begin VB.Menu Menu_On_Top @@ -200,6 +217,58 @@ Private Sub Menu_Debug_Mode_Click() Menu_Debug_Mode.Checked = Not Menu_Debug_Mode.Checked If Menu_Debug_Mode.Checked = True Then debug_mode = True Else debug_mode = False End Sub +Private Sub Menu_Exterior_White_Click() + block_line_width = 1 + case_line_width = 2 + block_line_color = RGB(0, 0, 0) + case_line_color = RGB(0, 0, 0) + block_color = RGB(250, 250, 250) + case_color = RGB(256, 256, 256) + Menu_Exterior_White.Checked = True + Menu_Exterior_Blue.Checked = False + Menu_Exterior_Yellow.Checked = False + Menu_Exterior_Green.Checked = False + Call Output_Graph +End Sub +Private Sub Menu_Exterior_Blue_Click() + block_line_width = 1 + case_line_width = 2 + block_line_color = RGB(0, 158, 240) + case_line_color = RGB(0, 158, 240) + block_color = RGB(225, 245, 255) + case_color = RGB(248, 254, 255) + Menu_Exterior_White.Checked = False + Menu_Exterior_Blue.Checked = True + Menu_Exterior_Yellow.Checked = False + Menu_Exterior_Green.Checked = False + Call Output_Graph +End Sub +Private Sub Menu_Exterior_Yellow_Click() + block_line_width = 1 + case_line_width = 3 + block_line_color = RGB(153, 0, 0) + case_line_color = RGB(149, 149, 149) + block_color = RGB(255, 215, 0) + case_color = RGB(231, 231, 231) + Menu_Exterior_White.Checked = False + Menu_Exterior_Blue.Checked = False + Menu_Exterior_Yellow.Checked = True + Menu_Exterior_Green.Checked = False + Call Output_Graph +End Sub +Private Sub Menu_Exterior_Green_Click() + block_line_width = 1 + case_line_width = 2 + block_line_color = RGB(61, 184, 78) + case_line_color = RGB(46, 118, 72) + block_color = RGB(61, 184, 78) + case_color = RGB(233, 247, 212) + Menu_Exterior_White.Checked = False + Menu_Exterior_Blue.Checked = False + Menu_Exterior_Yellow.Checked = False + Menu_Exterior_Green.Checked = True + Call Output_Graph +End Sub Private Sub Menu_On_Top_Click() Menu_On_Top.Checked = Not Menu_On_Top.Checked on_top = Menu_On_Top.Checked @@ -210,8 +279,15 @@ Private Sub Menu_On_Top_Click() End If End Sub Private Sub Form_Load() + Me.Icon = Me.MouseIcon debug_mode = False on_top = True + block_line_width = 1 + case_line_width = 2 + block_line_color = RGB(0, 158, 240) + case_line_color = RGB(0, 158, 240) + block_color = RGB(225, 245, 255) + case_color = RGB(248, 254, 255) Call init End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) @@ -389,12 +465,6 @@ Private Sub init() start_y = 300 gap = 105 square_width = 1200 - block_line_width = 1 - case_line_width = 2 - block_line_color = RGB(0, 0, 0) - case_line_color = RGB(0, 0, 0) - block_color = RGB(250, 250, 250) - case_color = RGB(256, 256, 256) Call Case_init x_split(0) = start_x x_split(1) = start_x + gap / 2 + square_width + gap @@ -408,6 +478,7 @@ Private Sub init() y_split(4) = start_y + gap / 2 + (square_width + gap) * 4 y_split(5) = start_y + gap + (square_width + gap) * 5 SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 1 Or 2 + Print_Block start_x, start_y, square_width * 4 + gap * 5, square_width * 5 + gap * 6, case_line_width, case_color, case_line_color End Sub Private Sub Move_Block(m As Integer, dir_x As Integer, dir_y As Integer) Dim addr As Integer, style As Integer, X As Integer, Y As Integer @@ -1010,6 +1081,7 @@ Private Sub Timer_Layout_Timer() End If If prompt_wait_data = True And waiting = False Then prompt_wait_data = False + If wait_cancel = True Then Exit Sub Open Label_Code.Caption & ".txt" For Input As #1 Line Input #1, temp If temp = "No Solution" Then diff --git a/Form_Game.frx b/Form_Game.frx index 54e19f6d6f3b16c712dec50afb7219af1db158c9..12846556d72120f56f2edc1dd9f9a35005dce4a1 100644 GIT binary patch delta 1223 zcmb7DJ&O}j6g@W?lZY@$voXO%qeKmh#crYHCYFNW4-iBIWeZ`~MOeETgGEqCSaxA5 z#nM(p>#=gR(0?GY(rOsH0fpze^O2o>m^ctT^lYg1h&DOGH3W z;a{T1GY*ua}DL8p`Q8gRoAv|0&2V5-VU&}bxl;|TC^Ea)*O z7XV6xhnufA<@&g(O8TKg(ZzKP#CzVAldra=Rkp)tz=Qp5OfRosy5@yLIdjYygH*il zL%DdXP!!G^Ylwqx51bUL{<~e%EjfBVt%Hir-}B5W%CkEBt2XNv zk_$uB%9MBk8bk} _ <") = vbNo Then Exit Sub diff --git a/HRD_Game.vbp b/HRD_Game.vbp index a85915d..55b32df 100644 --- a/HRD_Game.vbp +++ b/HRD_Game.vbp @@ -20,7 +20,7 @@ Name="HRD_Game" HelpContextID="0" CompatibleMode="0" MajorVer=1 -MinorVer=8 +MinorVer=9 RevisionVer=0 AutoIncrementVer=0 ServerSupportFiles=0 diff --git a/HRD_Game.vbw b/HRD_Game.vbw index ab50f7a..9620525 100644 --- a/HRD_Game.vbw +++ b/HRD_Game.vbw @@ -1,4 +1,4 @@ -Form_Game = 52, 52, 883, 479, , 26, 28, 857, 453, C +Form_Game = 52, 51, 883, 479, Z, 26, 28, 857, 453, C Module = 52, 52, 883, 479, Form_Classic_Cases = 104, 104, 891, 531, , 104, 104, 937, 531, C Form_Creator = 130, 130, 917, 557, , 104, 104, 891, 531, C