frmmain.frm
来自「一个农日历源程序 不过作者对处理有点不够好 有点闪烁」· FRM 代码 · 共 1,876 行 · 第 1/5 页
FRM
1,876 行
VERSION 5.00
Begin VB.Form frmmain
BorderStyle = 3 'Fixed Dialog
Caption = "宏声月历13714336443"
ClientHeight = 5655
ClientLeft = 45
ClientTop = 435
ClientWidth = 6975
Icon = "frmmain.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5655
ScaleWidth = 6975
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
Caption = "日期"
ForeColor = &H00800080&
Height = 4935
Left = 120
TabIndex = 5
Top = 600
Width = 6735
Begin VB.Line Line12
BorderColor = &H8000000A&
X1 = 5760
X2 = 5760
Y1 = 120
Y2 = 4920
End
Begin VB.Line Line11
BorderColor = &H8000000A&
X1 = 4800
X2 = 4800
Y1 = 120
Y2 = 4920
End
Begin VB.Line Line10
BorderColor = &H8000000A&
X1 = 3840
X2 = 3840
Y1 = 120
Y2 = 4920
End
Begin VB.Line Line9
BorderColor = &H8000000A&
X1 = 2880
X2 = 2880
Y1 = 120
Y2 = 4920
End
Begin VB.Line Line8
BorderColor = &H8000000A&
X1 = 1920
X2 = 1920
Y1 = 120
Y2 = 4920
End
Begin VB.Line Line7
BorderColor = &H8000000A&
Index = 0
X1 = 960
X2 = 960
Y1 = 120
Y2 = 4920
End
Begin VB.Line Line6
BorderColor = &H8000000A&
X1 = 0
X2 = 6720
Y1 = 4200
Y2 = 4200
End
Begin VB.Line Line5
BorderColor = &H8000000A&
X1 = 0
X2 = 6720
Y1 = 3480
Y2 = 3480
End
Begin VB.Line Line4
BorderColor = &H8000000A&
X1 = 0
X2 = 6720
Y1 = 2760
Y2 = 2760
End
Begin VB.Line Line3
BorderColor = &H8000000A&
X1 = 0
X2 = 6720
Y1 = 2040
Y2 = 2040
End
Begin VB.Line Line2
BorderColor = &H8000000A&
X1 = 0
X2 = 6720
Y1 = 1320
Y2 = 1320
End
Begin VB.Line Line1
BorderColor = &H8000000A&
X1 = 0
X2 = 6720
Y1 = 600
Y2 = 600
End
Begin VB.Label LabA1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "A1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 83
Left = 5880
TabIndex = 96
Top = 4560
Width = 720
End
Begin VB.Label LabA1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "A1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 82
Left = 4920
TabIndex = 95
Top = 4560
Width = 720
End
Begin VB.Label LabA1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "A1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 81
Left = 3960
TabIndex = 94
Top = 4560
Width = 720
End
Begin VB.Label LabA1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "A1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 80
Left = 3000
TabIndex = 93
Top = 4560
Width = 720
End
Begin VB.Label LabA1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "A1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 79
Left = 2040
TabIndex = 92
Top = 4560
Width = 720
End
Begin VB.Label LabA1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "A1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 78
Left = 1080
TabIndex = 91
Top = 4560
Width = 720
End
Begin VB.Label LabA1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "A1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 77
Left = 120
TabIndex = 90
Top = 4560
Width = 720
End
Begin VB.Label LabA1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "A1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 76
Left = 5880
TabIndex = 89
Top = 3840
Width = 720
End
Begin VB.Label LabA1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "A1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 75
Left = 4920
TabIndex = 88
Top = 3840
Width = 720
End
Begin VB.Label LabA1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "A1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 74
Left = 3960
TabIndex = 87
Top = 3840
Width = 720
End
Begin VB.Label LabA1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "A1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 73
Left = 3000
TabIndex = 86
Top = 3840
Width = 720
End
Begin VB.Label LabA1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "A1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 72
Left = 2040
TabIndex = 85
Top = 3840
Width = 720
End
Begin VB.Label LabA1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "A1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 71
Left = 1080
TabIndex = 84
Top = 3840
Width = 720
End
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?