📄 frmtime.frm
字号:
VERSION 5.00
Object = "{29743316-0803-11D5-AD8E-0050BAA9AC14}#8.1#0"; "MOVEFO~1.OCX"
Begin VB.Form frmTime
BorderStyle = 3 'Fixed Dialog
Caption = "中午、下午、晚上时间段配置"
ClientHeight = 3615
ClientLeft = 45
ClientTop = 330
ClientWidth = 5490
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmTime.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3615
ScaleWidth = 5490
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton cmdDefault
Caption = "恢复缺省值"
Height = 420
Left = 3255
TabIndex = 8
Top = 2070
Width = 1650
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取消(&C)"
Height = 420
Left = 3255
TabIndex = 7
Top = 840
Width = 1650
End
Begin VB.CommandButton cmdSave
Caption = "保存(&S)"
Height = 420
Left = 3255
TabIndex = 6
Top = 360
Width = 1650
End
Begin 给出焦点文本框.FocusText ftLunch1
Height = 300
Left = 1785
TabIndex = 0
Top = 390
Width = 765
_ExtentX = 1349
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
PreControl = "cmdSave"
NextControl = "ftLunch2"
TextType = 1
Text = "10"
End
Begin 给出焦点文本框.FocusText ftLunch2
Height = 300
Left = 1785
TabIndex = 1
Top = 750
Width = 765
_ExtentX = 1349
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
PreControl = "ftLunch1"
NextControl = "ftSupper1"
TextType = 1
Text = "14"
End
Begin 给出焦点文本框.FocusText ftSupper1
Height = 300
Left = 1785
TabIndex = 2
Top = 1110
Width = 765
_ExtentX = 1349
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
PreControl = "ftLunch2"
NextControl = "ftSupper2"
TextType = 1
Text = "14"
End
Begin 给出焦点文本框.FocusText ftSupper2
Height = 300
Left = 1785
TabIndex = 3
Top = 1485
Width = 765
_ExtentX = 1349
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
PreControl = "ftSupper1"
NextControl = "ftNight1"
TextType = 1
Text = "18"
End
Begin 给出焦点文本框.FocusText ftNight1
Height = 300
Left = 1785
TabIndex = 4
Top = 1845
Width = 765
_ExtentX = 1349
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
PreControl = "ftSupper2"
NextControl = "ftNight2"
TextType = 1
Text = "18"
End
Begin 给出焦点文本框.FocusText ftNight2
Height = 300
Left = 1785
TabIndex = 5
Top = 2205
Width = 765
_ExtentX = 1349
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
PreControl = "ftNight1"
NextControl = "cmdSave"
TextType = 1
Text = "23"
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "点"
Height = 210
Index = 11
Left = 2625
TabIndex = 22
Top = 2235
Width = 210
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "点"
Height = 210
Index = 10
Left = 2625
TabIndex = 21
Top = 1872
Width = 210
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "点"
Height = 210
Index = 9
Left = 2625
TabIndex = 20
Top = 1509
Width = 210
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "点"
Height = 210
Index = 8
Left = 2625
TabIndex = 19
Top = 1146
Width = 210
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "点"
Height = 210
Index = 7
Left = 2625
TabIndex = 18
Top = 783
Width = 210
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "点"
Height = 210
Index = 6
Left = 2625
TabIndex = 17
Top = 420
Width = 210
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "某一时间段的结束时间为下一时间段的开始时间。"
Height = 210
Index = 1
Left = 780
TabIndex = 16
Top = 3165
Width = 4620
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "说明：开始与结束时间范围为 0-23 点"
Height = 210
Index = 0
Left = 165
TabIndex = 15
Top = 2865
Width = 3570
End
Begin VB.Line Line1
BorderColor = &H00808000&
X1 = 135
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -