📄 etklokmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form EtKlokMain
BackColor = &H8000000A&
BorderStyle = 0 'None
ClientHeight = 9000
ClientLeft = 0
ClientTop = 0
ClientWidth = 12000
FillColor = &H00800000&
Icon = "EtKlokMain.frx":0000
KeyPreview = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
MouseIcon = "EtKlokMain.frx":1CFA
MousePointer = 99 'Custom
ScaleHeight = 900
ScaleMode = 0 'User
ScaleWidth = 1200
StartUpPosition = 2 '屏幕中心
Begin VB.Frame HCGQFrme
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
Height = 495
Left = 1740
MouseIcon = "EtKlokMain.frx":2004
MousePointer = 99 'Custom
TabIndex = 4
Top = 1560
Visible = 0 'False
Width = 8295
Begin VB.Image HcgqImgs
Height = 420
Index = 4
Left = 6600
MouseIcon = "EtKlokMain.frx":230E
MousePointer = 99 'Custom
Top = 30
Width = 1560
End
Begin VB.Image HcgqImgs
Height = 420
Index = 3
Left = 4950
MouseIcon = "EtKlokMain.frx":2618
MousePointer = 99 'Custom
Top = 30
Width = 1560
End
Begin VB.Image HcgqImgs
Height = 420
Index = 2
Left = 3360
MouseIcon = "EtKlokMain.frx":2922
MousePointer = 99 'Custom
Top = 30
Width = 1560
End
Begin VB.Image HcgqImgs
Height = 420
Index = 1
Left = 1710
MouseIcon = "EtKlokMain.frx":2C2C
MousePointer = 99 'Custom
Top = 30
Width = 1560
End
Begin VB.Image HcgqImgs
Height = 420
Index = 0
Left = 60
MouseIcon = "EtKlokMain.frx":2F36
MousePointer = 99 'Custom
Top = 30
Width = 1560
End
Begin VB.Image HcgqBack
Height = 735
Left = 0
MouseIcon = "EtKlokMain.frx":3240
MousePointer = 99 'Custom
Top = 0
Width = 8265
End
End
Begin VB.Frame LXGBFrme
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
Height = 495
Left = 1710
MouseIcon = "EtKlokMain.frx":354A
MousePointer = 99 'Custom
TabIndex = 5
Top = 1560
Visible = 0 'False
Width = 8295
Begin VB.Image LxgbImgs
Height = 420
Index = 0
Left = 1710
MouseIcon = "EtKlokMain.frx":3854
MousePointer = 99 'Custom
Top = 30
Width = 1560
End
Begin VB.Image LxgbImgs
Height = 420
Index = 1
Left = 4980
MouseIcon = "EtKlokMain.frx":3B5E
MousePointer = 99 'Custom
Top = 60
Width = 1560
End
Begin VB.Image LxgbBackImg
Height = 765
Left = 0
MouseIcon = "EtKlokMain.frx":3E68
MousePointer = 99 'Custom
Top = 0
Width = 8265
End
End
Begin VB.Frame StarFrme
BackColor = &H8000000D&
BorderStyle = 0 'None
Caption = "Label1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 1
Left = 7590
MouseIcon = "EtKlokMain.frx":4172
MousePointer = 99 'Custom
TabIndex = 14
Top = 7290
Width = 4245
Begin VB.Label StarName
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 525
MouseIcon = "EtKlokMain.frx":447C
MousePointer = 99 'Custom
TabIndex = 10
Top = 150
Width = 1035
End
Begin VB.Image StarPgImg
Height = 480
Index = 1
Left = 3120
MouseIcon = "EtKlokMain.frx":4786
MousePointer = 99 'Custom
Top = 30
Width = 930
End
Begin VB.Image StarPgImg
Height = 480
Index = 0
Left = 2130
MouseIcon = "EtKlokMain.frx":4A90
MousePointer = 99 'Custom
Top = 30
Width = 930
End
Begin VB.Image CaseImg
Height = 615
Left = -30
MouseIcon = "EtKlokMain.frx":4D9A
MousePointer = 99 'Custom
Top = 0
Width = 4260
End
End
Begin VB.Frame GQFLFrme
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
Height = 495
Left = 1710
MouseIcon = "EtKlokMain.frx":50A4
MousePointer = 99 'Custom
TabIndex = 3
Top = 1560
Visible = 0 'False
Width = 8295
Begin VB.Image FlgqImg
Height = 420
Index = 4
Left = 6600
MouseIcon = "EtKlokMain.frx":53AE
MousePointer = 99 'Custom
Top = 30
Width = 1560
End
Begin VB.Image FlgqImg
Height = 420
Index = 3
Left = 4980
MouseIcon = "EtKlokMain.frx":56B8
MousePointer = 99 'Custom
Top = 30
Width = 1560
End
Begin VB.Image FlgqImg
Height = 420
Index = 2
Left = 3360
MouseIcon = "EtKlokMain.frx":59C2
MousePointer = 99 'Custom
Top = 30
Width = 1560
End
Begin VB.Image FlgqImg
Height = 420
Index = 1
Left = 1710
MouseIcon = "EtKlokMain.frx":5CCC
MousePointer = 99 'Custom
Top = 30
Width = 1560
End
Begin VB.Image FlgqImg
Height = 420
Index = 0
Left = 90
MouseIcon = "EtKlokMain.frx":5FD6
MousePointer = 99 'Custom
Top = 30
Width = 1560
End
Begin VB.Image GqflBackImg
Height = 495
Left = 0
MouseIcon = "EtKlokMain.frx":62E0
MousePointer = 99 'Custom
Top = 0
Width = 8280
End
End
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 200
Left = 60
Top = 30
End
Begin MSComctlLib.ListView GQList
Height = 4515
Left = 90
TabIndex = 7
Top = 2730
Width = 7215
_ExtentX = 12726
_ExtentY = 7964
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
HideColumnHeaders= -1 'True
FlatScrollBar = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
HotTracking = -1 'True
HoverSelection = -1 'True
_Version = 393217
ForeColor = 16777215
BackColor = 11958852
Appearance = 0
MousePointer = 99
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MouseIcon = "EtKlokMain.frx":65EA
NumItems = 0
End
Begin VB.Frame StarFrme
BackColor = &H80000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4545
Index = 0
Left = 7590
MouseIcon = "EtKlokMain.frx":6904
MousePointer = 99 'Custom
TabIndex = 2
Top = 2730
Width = 4245
Begin VB.Image StarImg
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 2085
Index = 0
Left = 120
MouseIcon = "EtKlokMain.frx":6C0E
MousePointer = 99 'Custom
Stretch = -1 'True
Top = 60
Width = 1875
End
Begin VB.Image StarImg
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 2115
Index = 2
Left = 120
MouseIcon = "EtKlokMain.frx":6F18
MousePointer = 99 'Custom
Stretch = -1 'True
Top = 2340
Width = 1875
End
Begin VB.Image StarImg
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 2085
Index = 3
Left = 2220
MouseIcon = "EtKlokMain.frx":7222
MousePointer = 99 'Custom
Stretch = -1 'True
Top = 2370
Width = 1905
End
Begin VB.Image StarImg
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 2085
Index = 1
Left = 2220
MouseIcon = "EtKlokMain.frx":752C
MousePointer = 99 'Custom
Stretch = -1 'True
Top = 60
Width = 1875
End
Begin VB.Image StarPageDown
Appearance = 0 'Flat
Height = 345
Left = 2430
MouseIcon = "EtKlokMain.frx":7836
MousePointer = 99 'Custom
Picture = "EtKlokMain.frx":7B40
Top = 5610
Width = 1050
End
Begin VB.Image StarPageUp
Appearance = 0 'Flat
Height = 345
Left = 1290
MouseIcon = "EtKlokMain.frx":7FA5
MousePointer = 99 'Custom
Picture = "EtKlokMain.frx":82AF
Top = 5610
Width = 1050
End
Begin VB.Image StarBackImg
Height = 4590
Left = -30
MouseIcon = "EtKlokMain.frx":86FE
MousePointer = 99 'Custom
Stretch = -1 'True
Top = -30
Width = 4260
End
End
Begin MSComctlLib.ListView YDGQList
Height = 4485
Left = 7620
TabIndex = 15
Top = 2760
Width = 4185
_ExtentX = 7382
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -