📄 octopus.frm
字号:
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 0 'None
Caption = "Octopus"
ClientHeight = 2970
ClientLeft = 45
ClientTop = 330
ClientWidth = 4995
Icon = "Octopus.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
Moveable = 0 'False
ScaleHeight = 2970
ScaleWidth = 4995
Begin VB.Timer Timer1
Interval = 50
Left = 720
Top = 3045
End
Begin VB.Image BackCase
Height = 2970
Left = 1890
Picture = "Octopus.frx":08CA
Top = 3615
Visible = 0 'False
Width = 4995
End
Begin VB.Image ResetScreen
Enabled = 0 'False
Height = 1455
Left = 1335
Picture = "Octopus.frx":110EE
Top = 765
Visible = 0 'False
Width = 2325
End
Begin VB.Image am
Enabled = 0 'False
Height = 90
Left = 2235
Picture = "Octopus.frx":1504E
Top = 780
Visible = 0 'False
Width = 150
End
Begin VB.Image pm
Enabled = 0 'False
Height = 90
Left = 2235
Picture = "Octopus.frx":154DA
Top = 885
Visible = 0 'False
Width = 150
End
Begin VB.Image Octopus
Height = 120
Index = 2
Left = 2955
Picture = "Octopus.frx":155DE
ToolTipText = "Octopus"
Top = 1500
Width = 555
End
Begin VB.Image Octopus
Height = 135
Index = 1
Left = 2700
Picture = "Octopus.frx":1584E
ToolTipText = "Octopus"
Top = 1365
Width = 885
End
Begin VB.Image Octopus
Height = 240
Index = 0
Left = 2415
Picture = "Octopus.frx":15B6E
ToolTipText = "Octopus"
Top = 1125
Width = 960
End
Begin VB.Image Treasure
Height = 330
Left = 3210
Picture = "Octopus.frx":160A6
ToolTipText = "Treasure"
Top = 1890
Width = 450
End
Begin VB.Image Alarm
Height = 90
Index = 1
Left = 3120
Picture = "Octopus.frx":164C6
ToolTipText = "Musical note symbol"
Top = 960
Visible = 0 'False
Width = 165
End
Begin VB.Image Alarm
Height = 75
Index = 0
Left = 3165
Picture = "Octopus.frx":165C2
ToolTipText = "Musical note symbol"
Top = 765
Visible = 0 'False
Width = 135
End
Begin VB.Image Note
Height = 120
Left = 3135
Picture = "Octopus.frx":166AA
ToolTipText = "Musical note symbol"
Top = 840
Visible = 0 'False
Width = 135
End
Begin VB.Image BabyOctopus
Height = 360
Left = 3315
Picture = "Octopus.frx":167CA
ToolTipText = "Baby octopus"
Top = 765
Visible = 0 'False
Width = 345
End
Begin VB.Image Button2
Enabled = 0 'False
Height = 105
Index = 1
Left = 570
Picture = "Octopus.frx":16B92
Top = 2985
Visible = 0 'False
Width = 105
End
Begin VB.Image Button2
Enabled = 0 'False
Height = 105
Index = 0
Left = 450
Picture = "Octopus.frx":16C92
Top = 2985
Visible = 0 'False
Width = 105
End
Begin VB.Image TempLegs
Height = 255
Index = 1
Left = 3210
Picture = "Octopus.frx":16DAE
Top = 3240
Visible = 0 'False
Width = 195
End
Begin VB.Image TempLegs
Height = 255
Index = 0
Left = 3015
Picture = "Octopus.frx":17012
Top = 3240
Visible = 0 'False
Width = 195
End
Begin VB.Image TempArm
Height = 135
Index = 1
Left = 2580
Picture = "Octopus.frx":172CE
Top = 3255
Visible = 0 'False
Width = 120
End
Begin VB.Image TempArm
Height = 135
Index = 0
Left = 2445
Picture = "Octopus.frx":173D6
Top = 3255
Visible = 0 'False
Width = 120
End
Begin VB.Image Legs
Height = 255
Left = 2670
Picture = "Octopus.frx":174DA
ToolTipText = "Diver"
Top = 1530
Visible = 0 'False
Width = 195
End
Begin VB.Image Arm
Height = 135
Left = 2445
Picture = "Octopus.frx":17796
ToolTipText = "Diver"
Top = 1650
Visible = 0 'False
Width = 120
End
Begin VB.Image MissPic
Height = 285
Left = 2385
Picture = "Octopus.frx":1789A
ToolTipText = "Diver"
Top = 1395
Visible = 0 'False
Width = 240
End
Begin VB.Image Diver
Height = 315
Index = 31
Left = 1350
Picture = "Octopus.frx":17C16
Top = 5970
Visible = 0 'False
Width = 450
End
Begin VB.Image Diver
Height = 315
Index = 29
Left = 450
Picture = "Octopus.frx":182A2
Top = 5970
Visible = 0 'False
Width = 450
End
Begin VB.Image Diver
Height = 315
Index = 30
Left = 900
Picture = "Octopus.frx":1892E
Top = 5970
Visible = 0 'False
Width = 450
End
Begin VB.Image Diver
Height = 315
Index = 28
Left = 0
Picture = "Octopus.frx":18F96
Top = 5970
Visible = 0 'False
Width = 450
End
Begin VB.Image Number
Height = 195
Index = 9
Left = 3525
Picture = "Octopus.frx":195FE
Top = 3000
Visible = 0 'False
Width = 120
End
Begin VB.Image Number
Height = 195
Index = 8
Left = 3405
Picture = "Octopus.frx":19AAA
Top = 3000
Visible = 0 'False
Width = 120
End
Begin VB.Image Number
Height = 195
Index = 7
Left = 3285
Picture = "Octopus.frx":19F56
Top = 3000
Visible = 0 'False
Width = 120
End
Begin VB.Image Number
Height = 195
Index = 6
Left = 3165
Picture = "Octopus.frx":1A402
Top = 3000
Visible = 0 'False
Width = 120
End
Begin VB.Image Number
Height = 195
Index = 5
Left = 3045
Picture = "Octopus.frx":1A8AE
Top = 3000
Visible = 0 'False
Width = 120
End
Begin VB.Image Number
Height = 195
Index = 4
Left = 2925
Picture = "Octopus.frx":1AD5A
Top = 3000
Visible = 0 'False
Width = 120
End
Begin VB.Image Number
Height = 195
Index = 3
Left = 2805
Picture = "Octopus.frx":1B206
Top = 3000
Visible = 0 'False
Width = 120
End
Begin VB.Image Number
Height = 195
Index = 2
Left = 2685
Picture = "Octopus.frx":1B6B2
Top = 3000
Visible = 0 'False
Width = 120
End
Begin VB.Image Number
Height = 195
Index = 1
Left = 2565
Picture = "Octopus.frx":1BB5E
Top = 3000
Visible = 0 'False
Width = 120
End
Begin VB.Image Number
Height = 195
Index = 0
Left = 2445
Picture = "Octopus.frx":1C00A
Top = 3000
Visible = 0 'False
Width = 120
End
Begin VB.Image MinuteDigit
Height = 195
Index = 1
Left = 2955
ToolTipText = "Time/Score"
Top = 780
Visible = 0 'False
Width = 120
End
Begin VB.Image MinuteDigit
Height = 195
Index = 0
Left = 2775
ToolTipText = "Time/Score"
Top = 780
Visible = 0 'False
Width = 120
End
Begin VB.Image Colon
Height = 195
Left = 2685
Picture = "Octopus.frx":1C4B6
ToolTipText = "Time/Score"
Top = 780
Visible = 0 'False
Width = 45
End
Begin VB.Image HourDigit
Height = 195
Index = 1
Left = 2535
ToolTipText = "Time/Score"
Top = 780
Visible = 0 'False
Width = 120
End
Begin VB.Image HourDigit
Height = 195
Index = 0
Left = 2370
ToolTipText = "Time/Score"
Top = 780
Visible = 0 'False
Width = 120
End
Begin VB.Image DiverStep
Height = 315
Index = 5
Left = 2760
Picture = "Octopus.frx":1C92E
ToolTipText = "Diver"
Top = 1845
Visible = 0 'False
Width = 450
End
Begin VB.Image Tentacle4
Height = 150
Index = 2
Left = 3120
Picture = "Octopus.frx":1CFF6
ToolTipText = "Octopus"
Top = 1845
Visible = 0 'False
Width = 90
End
Begin VB.Image Tentacle4
Height = 75
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -