📄 frmcalender.frm
字号:
Begin VB.Label lblNM
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "8"
BeginProperty Font
Name = "Webdings"
Size = 12
Charset = 2
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 4200
TabIndex = 8
Top = 330
Width = 255
End
Begin VB.Line Line9
BorderWidth = 2
X1 = 4560
X2 = 4800
Y1 = 480
Y2 = 480
End
Begin VB.Shape shapeNM
BackStyle = 1 'Opaque
Height = 255
Left = 4080
Top = 360
Width = 495
End
Begin VB.Line Line8
BorderWidth = 2
X1 = 3960
X2 = 4080
Y1 = 480
Y2 = 480
End
Begin VB.Label lblCMSupport
BackStyle = 0 'Transparent
Height = 255
Left = 3480
TabIndex = 7
ToolTipText = "Present Month"
Top = 360
Width = 495
End
Begin VB.Label lblCM
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "="
BeginProperty Font
Name = "Webdings"
Size = 12
Charset = 2
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 3590
TabIndex = 6
Top = 330
Width = 255
End
Begin VB.Shape shapeCM
BackStyle = 1 'Opaque
Height = 255
Left = 3480
Top = 360
Width = 495
End
Begin VB.Line Line7
BorderWidth = 2
X1 = 3360
X2 = 3480
Y1 = 480
Y2 = 480
End
Begin VB.Label lblPMSupport
BackStyle = 0 'Transparent
Height = 255
Left = 2880
TabIndex = 5
ToolTipText = "Previous Month"
Top = 360
Width = 495
End
Begin VB.Label lblPM
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "7"
BeginProperty Font
Name = "Webdings"
Size = 12
Charset = 2
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 3000
TabIndex = 4
Top = 330
Width = 255
End
Begin VB.Shape shapePM
BackStyle = 1 'Opaque
Height = 255
Left = 2880
Top = 360
Width = 495
End
Begin VB.Line Line6
BorderWidth = 2
X1 = 1200
X2 = 1200
Y1 = 720
Y2 = 3480
End
Begin VB.Line Line5
BorderWidth = 2
X1 = 4800
X2 = 4800
Y1 = 3480
Y2 = 480
End
Begin VB.Line Line4
BorderWidth = 2
X1 = 600
X2 = 4800
Y1 = 1080
Y2 = 1080
End
Begin VB.Line Line3
BorderWidth = 2
X1 = 600
X2 = 600
Y1 = 600
Y2 = 3480
End
Begin VB.Line Line2
BorderWidth = 2
X1 = 1680
X2 = 2880
Y1 = 480
Y2 = 480
End
Begin VB.Label lblNowDateSupport
BackStyle = 0 'Transparent
Height = 255
Left = 120
TabIndex = 3
Top = 360
Width = 1575
End
Begin VB.Label lblNowDate
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Now Date"
Height = 225
Left = 30
TabIndex = 2
Top = 375
Width = 1710
End
Begin VB.Shape shapeNowDate
BackStyle = 1 'Opaque
Height = 255
Left = 120
Top = 360
Width = 1575
End
Begin VB.Label lblCaptionSupport
BackStyle = 0 'Transparent
Height = 255
Left = 0
TabIndex = 1
Top = 0
Width = 5175
End
Begin VB.Line Line1
BorderWidth = 2
X1 = 15
X2 = 0
Y1 = 240
Y2 = 6000
End
Begin VB.Label lblCaption
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Hirdhav Digital Diary - Scheduler"
Height = 225
Left = 200
TabIndex = 0
Top = 10
Width = 2805
End
Begin VB.Shape shapeCaption
BackStyle = 1 'Opaque
BorderWidth = 2
Height = 255
Left = 15
Top = 15
Width = 5160
End
Begin VB.Shape shapeBack
BackStyle = 1 'Opaque
Height = 255
Left = 600
Top = 480
Width = 4215
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 0
Left = 600
Top = 1080
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 1
Left = 1200
Top = 1080
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 2
Left = 1800
Top = 1080
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 3
Left = 2400
Top = 1080
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 4
Left = 3000
Top = 1080
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 5
Left = 3600
Top = 1080
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 6
Left = 4200
Top = 1080
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 13
Left = 4200
Top = 1560
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 12
Left = 3600
Top = 1560
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 11
Left = 3000
Top = 1560
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 10
Left = 2400
Top = 1560
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 9
Left = 1800
Top = 1560
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 8
Left = 1200
Top = 1560
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 7
Left = 600
Top = 1560
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 20
Left = 4200
Top = 2040
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 19
Left = 3600
Top = 2040
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 18
Left = 3000
Top = 2040
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 17
Left = 2400
Top = 2040
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 16
Left = 1800
Top = 2040
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 15
Left = 1200
Top = 2040
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 14
Left = 600
Top = 2040
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 27
Left = 4200
Top = 2520
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 26
Left = 3600
Top = 2520
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 25
Left = 3000
Top = 2520
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 24
Left = 2400
Top = 2520
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 23
Left = 1800
Top = 2520
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 22
Left = 1200
Top = 2520
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 21
Left = 600
Top = 2520
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
Height = 495
Index = 34
Left = 4200
Top = 3000
Width = 615
End
Begin VB.Shape shapeDate
BackStyle = 1 'Opaque
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -