📄 date.frm
字号:
VERSION 5.00
Begin VB.Form DateForm
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000006&
BorderStyle = 0 'None
Caption = "Date"
ClientHeight = 4260
ClientLeft = 105
ClientTop = 105
ClientWidth = 5550
ClipControls = 0 'False
ControlBox = 0 'False
FillColor = &H80000006&
Icon = "Date.frx":0000
LinkTopic = "Form1"
ScaleHeight = 4260
ScaleWidth = 5550
ShowInTaskbar = 0 'False
Begin VB.Timer GG2
Enabled = 0 'False
Interval = 10
Left = 1800
Top = 3840
End
Begin VB.Timer BB1
Enabled = 0 'False
Interval = 10
Left = 1440
Top = 3840
End
Begin VB.Timer RR2
Enabled = 0 'False
Interval = 10
Left = 1080
Top = 3840
End
Begin VB.Timer GG1
Enabled = 0 'False
Interval = 10
Left = 720
Top = 3840
End
Begin VB.Timer BB2
Enabled = 0 'False
Interval = 10
Left = 360
Top = 3840
End
Begin VB.Timer RR1
Enabled = 0 'False
Interval = 10
Left = 0
Top = 3840
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 100
Left = 4080
Top = 3360
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "1"
Height = 255
Index = 79
Left = 2040
TabIndex = 90
Top = 1320
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "2"
Height = 255
Index = 78
Left = 2280
TabIndex = 89
Top = 1320
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "3"
Height = 255
Index = 77
Left = 2520
TabIndex = 88
Top = 1320
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "4"
Height = 255
Index = 76
Left = 2760
TabIndex = 87
Top = 1320
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "5"
Height = 255
Index = 75
Left = 3000
TabIndex = 86
Top = 1320
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "6"
Height = 255
Index = 74
Left = 3240
TabIndex = 85
Top = 1320
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "7"
Height = 255
Index = 73
Left = 3480
TabIndex = 84
Top = 1320
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "8"
Height = 255
Index = 72
Left = 2040
TabIndex = 83
Top = 1680
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "9"
Height = 255
Index = 71
Left = 2280
TabIndex = 82
Top = 1680
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "10"
Height = 255
Index = 70
Left = 2520
TabIndex = 81
Top = 1680
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "11"
Height = 255
Index = 69
Left = 2760
TabIndex = 80
Top = 1680
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "12"
Height = 255
Index = 68
Left = 3000
TabIndex = 79
Top = 1680
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "13"
Height = 255
Index = 67
Left = 3240
TabIndex = 78
Top = 1680
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "14"
Height = 255
Index = 66
Left = 3480
TabIndex = 77
Top = 1680
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "15"
Height = 255
Index = 65
Left = 2040
TabIndex = 76
Top = 2040
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "16"
Height = 255
Index = 64
Left = 2280
TabIndex = 75
Top = 2040
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "17"
Height = 255
Index = 63
Left = 2520
TabIndex = 74
Top = 2040
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "18"
Height = 255
Index = 62
Left = 2760
TabIndex = 73
Top = 2040
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "19"
Height = 255
Index = 61
Left = 3000
TabIndex = 72
Top = 2040
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "20"
Height = 255
Index = 60
Left = 3240
TabIndex = 71
Top = 2040
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "21"
Height = 255
Index = 59
Left = 3480
TabIndex = 70
Top = 2040
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "22"
Height = 255
Index = 58
Left = 2040
TabIndex = 69
Top = 2400
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "23"
Height = 255
Index = 57
Left = 2280
TabIndex = 68
Top = 2400
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "24"
Height = 255
Index = 56
Left = 2520
TabIndex = 67
Top = 2400
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "25"
Height = 255
Index = 55
Left = 2760
TabIndex = 66
Top = 2400
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "26"
Height = 255
Index = 54
Left = 3000
TabIndex = 65
Top = 2400
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "27"
Height = 255
Index = 53
Left = 3240
TabIndex = 64
Top = 2400
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "28"
Height = 255
Index = 52
Left = 3480
TabIndex = 63
Top = 2400
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "29"
Height = 255
Index = 51
Left = 2040
TabIndex = 62
Top = 2760
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "30"
Height = 255
Index = 50
Left = 2280
TabIndex = 61
Top = 2760
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "31"
Height = 255
Index = 49
Left = 2520
TabIndex = 60
Top = 2760
Width = 255
End
Begin VB.Label DayLabel
Alignment = 1 'Right Justify
Caption = "32"
Height = 255
Index = 48
Left = 2760
TabIndex = 59
Top = 2760
Width = 255
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -