📄 form1.frm
字号:
VERSION 5.00
Object = "{092CEE2B-A97D-11D1-A113-44B1FCC00000}#16.0#0"; "calendar.ocx"
Begin VB.Form Form1
AutoRedraw = -1 'True
Caption = "农历时间"
ClientHeight = 8070
ClientLeft = 60
ClientTop = 450
ClientWidth = 9675
ForeColor = &H00FF0000&
Icon = "Form1.frx":0000
LinkTopic = "Form1"
ScaleHeight = 8070
ScaleWidth = 9675
StartUpPosition = 2 '屏幕中心
Begin VB.Timer TimSystem
Interval = 1000
Left = 6000
Top = 7080
End
Begin VB.Frame FrDate
Caption = "对应农历时间"
ForeColor = &H000080FF&
Height = 1815
Index = 3
Left = 7800
TabIndex = 61
Top = 6000
Width = 1695
Begin VB.Image Image1
Height = 480
Index = 3
Left = 120
Picture = "Form1.frx":08CA
Top = 300
Width = 480
End
Begin VB.Label LblDate
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "2006年11月24日"
BeginProperty Font
Name = "汉仪长艺体简"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Index = 3
Left = 120
TabIndex = 63
Top = 920
Width = 1485
End
Begin VB.Label Lbl1
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "对应的国历"
ForeColor = &H00000000&
Height = 180
Index = 3
Left = 645
TabIndex = 62
Top = 465
Width = 915
End
End
Begin VB.Frame FrDate
Caption = "选择国历时间"
ForeColor = &H000080FF&
Height = 1335
Index = 2
Left = 7800
TabIndex = 58
Top = 4440
Width = 1695
Begin VB.Label Lbl1
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "选择的国历"
ForeColor = &H00000000&
Height = 180
Index = 2
Left = 645
TabIndex = 60
Top = 465
Width = 915
End
Begin VB.Label LblDate
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "2006年11月24日"
BeginProperty Font
Name = "汉仪长艺体简"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Index = 2
Left = 120
TabIndex = 59
Top = 945
Width = 1485
End
Begin VB.Image Image1
Height = 480
Index = 2
Left = 120
Picture = "Form1.frx":1194
Top = 300
Width = 480
End
End
Begin VB.Frame FrDate
Caption = "标准农历时间"
ForeColor = &H00FF0000&
Height = 1815
Index = 1
Left = 7800
TabIndex = 55
Top = 2040
Width = 1695
Begin VB.Label Lbl1
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "今天是农历"
ForeColor = &H00000000&
Height = 180
Index = 1
Left = 645
TabIndex = 57
Top = 465
Width = 915
End
Begin VB.Label LblDate
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "2006年11月24日"
BeginProperty Font
Name = "汉仪长艺体简"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 210
Index = 1
Left = 120
TabIndex = 56
Top = 920
Width = 1485
End
Begin VB.Image Image1
Height = 480
Index = 1
Left = 120
Picture = "Form1.frx":1A5E
Top = 300
Width = 480
End
End
Begin VB.Frame FrDate
Caption = "标准国历时间"
ForeColor = &H00FF0000&
Height = 1335
Index = 0
Left = 7800
TabIndex = 52
Top = 480
Width = 1695
Begin VB.Image Image1
Height = 480
Index = 0
Left = 120
Picture = "Form1.frx":1D68
Top = 300
Width = 480
End
Begin VB.Label LblDate
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "2006年11月24日"
BeginProperty Font
Name = "汉仪长艺体简"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 210
Index = 0
Left = 120
TabIndex = 54
Top = 945
Width = 1485
End
Begin VB.Label Lbl1
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "今天是国历"
ForeColor = &H00000000&
Height = 180
Index = 0
Left = 650
TabIndex = 53
Top = 470
Width = 915
End
End
Begin 农历控件.Calendar ChinaDate
Left = 5520
Top = 7080
_ExtentX = 847
_ExtentY = 794
DateNow = 39044
ChineseDate = "十月初三"
End
Begin VB.ComboBox ComDay
Height = 300
Left = 3480
TabIndex = 4
Top = 7560
Width = 1455
End
Begin VB.ComboBox ComYear
Height = 300
Left = 120
TabIndex = 3
Top = 7560
Width = 1455
End
Begin VB.ComboBox ComMonth
Height = 300
Left = 1800
TabIndex = 0
Top = 7560
Width = 1455
End
Begin VB.Frame Frame1
Caption = "标准时间"
BeginProperty Font
Name = "汉仪大隶书简"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3855
Index = 0
Left = 7680
TabIndex = 64
Top = 120
Width = 1935
End
Begin VB.Frame Frame1
Caption = "用户时间"
BeginProperty Font
Name = "汉仪大隶书简"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3855
Index = 1
Left = 7680
TabIndex = 65
Top = 4080
Width = 1935
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "天数选择"
BeginProperty Font
Name = "汉仪大隶书简"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 285
Index = 2
Left = 3600
TabIndex = 69
Top = 7200
Width = 1215
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "月份选择"
BeginProperty Font
Name = "汉仪大隶书简"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 285
Index = 1
Left = 1920
TabIndex = 68
Top = 7200
Width = 1215
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "年份选择"
BeginProperty Font
Name = "汉仪大隶书简"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 285
Index = 0
Left = 240
TabIndex = 67
Top = 7200
Width = 1215
End
Begin VB.Label LblTime
Alignment = 2 'Center
AutoSize = -1 'True
ForeColor = &H000000FF&
Height = 180
Left = 6480
TabIndex = 66
Top = 7470
Width = 105
End
Begin VB.Image Image2
Height = 480
Left = 5040
Picture = "Form1.frx":2072
Top = 7320
Width = 480
End
Begin VB.Label LblDay
Alignment = 2 'Center
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
ForeColor = &H00FF00FF&
Height = 975
Index = 41
Left = 6600
TabIndex = 51
Top = 6000
Width = 975
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -