form4.frm
来自「一个商业软件的源码」· FRM 代码 · 共 1,700 行 · 第 1/5 页
FRM
1,700 行
_ExtentX = 1296
_ExtentY = 1958
_Version = 393216
End
Begin VB.TextBox Text7
Height = 375
Index = 6
Left = -70800
Locked = -1 'True
TabIndex = 193
Top = 960
Width = 1455
End
Begin VB.TextBox Text7
Height = 375
Index = 5
Left = -73920
Locked = -1 'True
TabIndex = 191
Top = 960
Width = 2175
End
Begin VB.TextBox Text1
Height = 270
Index = 23
Left = 1080
Locked = -1 'True
TabIndex = 189
Top = 3240
Visible = 0 'False
Width = 1455
End
Begin MSComCtl2.MonthView MonthView1
Height = 2220
Index = 0
Left = 4320
TabIndex = 44
Top = 840
Visible = 0 'False
Width = 4065
_ExtentX = 7170
_ExtentY = 3916
_Version = 393216
ForeColor = -2147483630
BackColor = 12615935
Appearance = 1
MonthBackColor = 12615680
StartOfWeek = 62128129
TitleBackColor = 8454143
CurrentDate = 39328
End
Begin MSComCtl2.MonthView MonthView1
Height = 2220
Index = 2
Left = -69840
TabIndex = 50
Top = 360
Visible = 0 'False
Width = 4065
_ExtentX = 7170
_ExtentY = 3916
_Version = 393216
ForeColor = -2147483630
BackColor = 14737632
Appearance = 1
MonthBackColor = 12632256
StartOfWeek = 62128129
TitleBackColor = 16711808
TitleForeColor = 8454143
CurrentDate = 39328
End
Begin MSComCtl2.MonthView MonthView1
Height = 2220
Index = 1
Left = -73680
TabIndex = 46
Top = 840
Visible = 0 'False
Width = 4065
_ExtentX = 7170
_ExtentY = 3916
_Version = 393216
ForeColor = -2147483630
BackColor = 12632256
Appearance = 1
MonthBackColor = 12632256
StartOfWeek = 62128129
TitleBackColor = 8388672
TitleForeColor = 65280
CurrentDate = 39328
End
Begin MSDataListLib.DataList DataList1
Height = 270
Left = 3360
TabIndex = 37
Top = 840
Visible = 0 'False
Width = 3375
_ExtentX = 5953
_ExtentY = 476
_Version = 393216
End
Begin VB.Frame Frame6
BackColor = &H0080C0FF&
BorderStyle = 0 'None
Height = 1815
Left = 5760
TabIndex = 34
Top = 1800
Visible = 0 'False
Width = 5295
Begin VB.Timer Timer1
Interval = 1000
Left = 2880
Top = 120
End
Begin VB.Label Label15
BackColor = &H00FF8080&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1335
Left = 120
TabIndex = 36
Top = 360
Width = 5055
End
Begin VB.Shape Shape2
Height = 255
Left = 5040
Shape = 4 'Rounded Rectangle
Top = 0
Width = 255
End
Begin VB.Line Line1
X1 = 5040
X2 = 5280
Y1 = 0
Y2 = 240
End
Begin VB.Line Line2
X1 = 5280
X2 = 5040
Y1 = 0
Y2 = 240
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Height = 255
Left = 5040
TabIndex = 35
Top = 0
Width = 255
End
End
Begin MSComCtl2.MonthView MonthView1
Height = 2220
Index = 3
Left = -69360
TabIndex = 49
Top = 360
Visible = 0 'False
Width = 4065
_ExtentX = 7170
_ExtentY = 3916
_Version = 393216
ForeColor = -2147483630
BackColor = 14737632
Appearance = 1
MonthBackColor = 12632256
StartOfWeek = 62128129
TitleBackColor = 16744448
TitleForeColor = 8454143
CurrentDate = 39328
End
Begin VB.TextBox Text8
BackColor = &H0080FFFF&
Height = 375
Index = 6
Left = -74040
Locked = -1 'True
TabIndex = 183
Top = 3120
Width = 9975
End
Begin VB.TextBox Text8
BackColor = &H00FFC0C0&
Height = 375
Index = 5
Left = -74040
Locked = -1 'True
TabIndex = 182
Top = 2735
Width = 9975
End
Begin VB.TextBox Text8
BackColor = &H0080FFFF&
Height = 390
Index = 4
Left = -74040
Locked = -1 'True
TabIndex = 179
Top = 2280
Width = 9975
End
Begin VB.TextBox Text8
BackColor = &H00FFC0C0&
Height = 390
Index = 3
Left = -74040
Locked = -1 'True
TabIndex = 178
Top = 1835
Width = 9975
End
Begin VB.TextBox Text8
BackColor = &H0080FFFF&
Height = 390
Index = 2
Left = -74040
Locked = -1 'True
TabIndex = 177
Top = 1335
Width = 2055
End
Begin VB.TextBox Text1
Height = 390
Index = 20
Left = 6840
Locked = -1 'True
TabIndex = 107
Top = 2880
Width = 1935
End
Begin VB.TextBox Text7
Height = 375
Index = 0
Left = -73920
Locked = -1 'True
TabIndex = 106
Top = 480
Width = 2175
End
Begin VB.CommandButton Command7
BackColor = &H000040C0&
Height = 255
Left = -69960
MaskColor = &H0080C0FF&
Style = 1 'Graphical
TabIndex = 105
ToolTipText = "在编辑状态下点击可打开一个日期窗口！"
Top = 800
Width = 255
End
Begin VB.TextBox Text6
Height = 1455
Index = 2
Left = -74040
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 104
Text = "Form4.frx":6E20
Top = 1320
Width = 9135
End
Begin VB.TextBox Text6
Height = 375
Index = 1
Left = -71520
Locked = -1 'True
TabIndex = 103
Text = "Text6"
Top = 720
Width = 1575
End
Begin VB.TextBox Text1
Height = 390
Index = 5
Left = 1080
Locked = -1 'True
MaxLength = 6
TabIndex = 102
Top = 1440
Width = 855
End
Begin VB.TextBox Text1
Height = 390
Index = 15
Left = 5280
Locked = -1 'True
TabIndex = 101
Top = 2400
Width = 1335
End
Begin VB.TextBox Text1
Height = 390
Index = 14
Left = 1080
Locked = -1 'True
TabIndex = 100
Top = 2400
Width = 2775
End
Begin VB.TextBox Text1
Height = 390
Index = 13
Left = 7800
Locked = -1 'True
TabIndex = 99
Top = 1920
Width = 3135
End
Begin VB.TextBox Text1
Height = 390
Index = 12
Left = 5280
Locked = -1 'True
TabIndex = 98
Top = 1920
Width = 1335
End
Begin VB.TextBox Text1
Height = 390
Index = 11
Left = 1080
Locked = -1 'True
TabIndex = 97
Top = 1920
Width = 2775
End
Begin VB.TextBox Text1
Height = 390
Index = 10
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?