📄 main.frm
字号:
VERSION 5.00
Begin VB.Form Main_frm
BackColor = &H00000000&
Caption = "KUKA魔方"
ClientHeight = 10035
ClientLeft = 60
ClientTop = 450
ClientWidth = 15240
ForeColor = &H000000FF&
Icon = "Main.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MouseIcon = "Main.frx":164A
Picture = "Main.frx":1954
ScaleHeight = 669
ScaleMode = 3 'Pixel
ScaleWidth = 1016
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin VB.PictureBox Instruction_Frame
BackColor = &H00000000&
Height = 1695
Left = 11040
ScaleHeight = 1635
ScaleWidth = 4035
TabIndex = 30
Top = 4920
Width = 4095
Begin VB.Label Instruction
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "游戏开始前按下打乱/停止开始游戏！"
ForeColor = &H8000000B&
Height = 180
Index = 3
Left = 120
TabIndex = 35
Top = 1320
Width = 2970
End
Begin VB.Label Close_instr
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "X"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000040C0&
Height = 255
Left = 3720
MouseIcon = "Main.frx":EAF2E
MousePointer = 99 'Custom
TabIndex = 34
Top = 0
Width = 255
End
Begin VB.Label Instruction
BackStyle = 0 'Transparent
Caption = "在六根轨道上单击鼠标右键，使小球逆时针滚动位置。"
ForeColor = &H8000000B&
Height = 675
Index = 2
Left = 120
TabIndex = 33
Top = 840
Width = 3735
End
Begin VB.Label Instruction
BackStyle = 0 'Transparent
Caption = "在六根轨道上单击鼠标左键，使小球顺时针滚动位置。"
ForeColor = &H8000000B&
Height = 435
Index = 1
Left = 120
TabIndex = 32
Top = 360
Width = 3600
End
Begin VB.Label Instruction
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "将同一颜色的小球调整到一起。"
ForeColor = &H8000000B&
Height = 180
Index = 0
Left = 120
TabIndex = 31
Top = 120
Width = 2520
End
End
Begin VB.CommandButton New_Cmd
Caption = "新游戏"
Height = 495
Left = 1080
MouseIcon = "Main.frx":EB238
MousePointer = 99 'Custom
TabIndex = 28
Top = 5520
Width = 1215
End
Begin VB.CommandButton Blend_Cmd
Caption = "打乱"
Height = 495
Left = 1080
MouseIcon = "Main.frx":EB542
MousePointer = 99 'Custom
TabIndex = 25
Top = 6120
Width = 1215
End
Begin VB.PictureBox Mask
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 6135
Left = 120
Picture = "Main.frx":EB84C
ScaleHeight = 409
ScaleMode = 3 'Pixel
ScaleWidth = 708
TabIndex = 24
Top = 7320
Visible = 0 'False
Width = 10620
End
Begin VB.Label Label_Board
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "轨道样式"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 360
Left = 1095
TabIndex = 29
Top = 4320
Width = 1215
End
Begin VB.Label Label_Hits
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "调整数"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 360
Left = 6120
TabIndex = 27
Top = 7080
Width = 915
End
Begin VB.Label Hits_Label
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C0C0&
Height = 495
Left = 7200
TabIndex = 26
Top = 7080
Width = 975
End
Begin VB.Image Game_Name_Img
Appearance = 0 'Flat
Height = 2565
Left = 10560
Picture = "Main.frx":1BF9FA
Top = 2280
Width = 4980
End
Begin VB.Image Board_Img
BorderStyle = 1 'Fixed Single
Height = 375
Index = 3
Left = 1680
MouseIcon = "Main.frx":1E9388
MousePointer = 99 'Custom
Stretch = -1 'True
Top = 5040
Width = 615
End
Begin VB.Image Board_Img
BorderStyle = 1 'Fixed Single
Height = 375
Index = 2
Left = 1080
MouseIcon = "Main.frx":1E9692
MousePointer = 99 'Custom
Stretch = -1 'True
Top = 5040
Width = 615
End
Begin VB.Image Board_Img
BorderStyle = 1 'Fixed Single
Height = 375
Index = 1
Left = 1680
MouseIcon = "Main.frx":1E999C
MousePointer = 99 'Custom
Stretch = -1 'True
Top = 4680
Width = 615
End
Begin VB.Image Board_Img
BorderStyle = 1 'Fixed Single
Height = 375
Index = 0
Left = 1080
MouseIcon = "Main.frx":1E9CA6
MousePointer = 99 'Custom
Stretch = -1 'True
Top = 4680
Width = 615
End
Begin VB.Label Label1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "24"
ForeColor = &H000000FF&
Height = 195
Index = 23
Left = 3840
TabIndex = 23
Top = 3480
Visible = 0 'False
Width = 180
End
Begin VB.Label Label1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "23"
ForeColor = &H000000FF&
Height = 195
Index = 22
Left = 3480
TabIndex = 22
Top = 3480
Visible = 0 'False
Width = 180
End
Begin VB.Label Label1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "22"
ForeColor = &H000000FF&
Height = 195
Index = 21
Left = 4320
TabIndex = 21
Top = 1800
Visible = 0 'False
Width = 180
End
Begin VB.Label Label1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "21"
ForeColor = &H000000FF&
Height = 195
Index = 20
Left = 4560
TabIndex = 20
Top = 1800
Visible = 0 'False
Width = 180
End
Begin VB.Label Label1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "20"
ForeColor = &H000000FF&
Height = 195
Index = 19
Left = 3720
TabIndex = 19
Top = 3720
Visible = 0 'False
Width = 180
End
Begin VB.Label Label1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "19"
ForeColor = &H000000FF&
Height = 195
Index = 18
Left = 3240
TabIndex = 18
Top = 3720
Visible = 0 'False
Width = 180
End
Begin VB.Label Label1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "18"
ForeColor = &H000000FF&
Height = 195
Index = 17
Left = 4320
TabIndex = 17
Top = 1680
Visible = 0 'False
Width = 180
End
Begin VB.Label Label1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "17"
ForeColor = &H000000FF&
Height = 195
Index = 16
Left = 4680
TabIndex = 16
Top = 1680
Visible = 0 'False
Width = 180
End
Begin VB.Label Label1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "16"
ForeColor = &H000000FF&
Height = 195
Index = 15
Left = 5880
TabIndex = 15
Top = 1800
Visible = 0 'False
Width = 180
End
Begin VB.Label Label1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "15"
ForeColor = &H000000FF&
Height = 195
Index = 14
Left = 5880
TabIndex = 14
Top = 1920
Visible = 0 'False
Width = 180
End
Begin VB.Label Label1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "14"
ForeColor = &H000000FF&
Height = 195
Index = 13
Left = 4320
TabIndex = 13
Top = 2520
Visible = 0 'False
Width = 180
End
Begin VB.Label Label1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "13"
ForeColor = &H000000FF&
Height = 195
Index = 12
Left = 3840
TabIndex = 12
Top = 2400
Visible = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -