📄 frmcalender.frm
字号:
VERSION 5.00
Begin VB.Form frmCalender
BorderStyle = 0 'None
Caption = "Hirdhav Digital Diary - Scheduler"
ClientHeight = 5775
ClientLeft = -45
ClientTop = 0
ClientWidth = 5175
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Icon = "frmCalender.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5775
ScaleWidth = 5175
StartUpPosition = 2 'CenterScreen
Begin VB.ListBox lstSchList
Appearance = 0 'Flat
Height = 705
Left = 600
TabIndex = 61
ToolTipText = "Double click on the item to get the full inforamtion."
Top = 4080
Width = 4215
End
Begin VB.TextBox txtDate
Height = 330
Left = 1800
TabIndex = 60
Top = 240
Visible = 0 'False
Width = 1020
End
Begin VB.Timer Timer1
Interval = 500
Left = 120
Top = 1440
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 36
Left = 1240
Top = 3780
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 36
Left = 1240
Top = 3560
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 35
Left = 640
Top = 3780
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 35
Left = 640
Top = 3560
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 34
Left = 4240
Top = 3300
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 34
Left = 4240
Top = 3080
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 33
Left = 3640
Top = 3300
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 33
Left = 3640
Top = 3080
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 32
Left = 3040
Top = 3300
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 32
Left = 3040
Top = 3080
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 31
Left = 2440
Top = 3300
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 31
Left = 2440
Top = 3080
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 30
Left = 1840
Top = 3300
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 30
Left = 1840
Top = 3080
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 29
Left = 1240
Top = 3300
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 29
Left = 1240
Top = 3080
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 28
Left = 640
Top = 3300
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 28
Left = 640
Top = 3080
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 27
Left = 4240
Top = 2820
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 27
Left = 4240
Top = 2600
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 26
Left = 3640
Top = 2820
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 26
Left = 3640
Top = 2600
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 25
Left = 3040
Top = 2820
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 25
Left = 3040
Top = 2600
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 24
Left = 2440
Top = 2820
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 24
Left = 2440
Top = 2600
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 23
Left = 1840
Top = 2820
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 23
Left = 1840
Top = 2600
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 22
Left = 1240
Top = 2820
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 22
Left = 1240
Top = 2600
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 21
Left = 640
Top = 2820
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 21
Left = 640
Top = 2600
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 20
Left = 4240
Top = 2340
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 20
Left = 4240
Top = 2120
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 19
Left = 3640
Top = 2340
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 19
Left = 3640
Top = 2120
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 18
Left = 3040
Top = 2340
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 18
Left = 3040
Top = 2120
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 17
Left = 2440
Top = 2340
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 17
Left = 2440
Top = 2120
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 16
Left = 1840
Top = 2340
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 16
Left = 1840
Top = 2120
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 15
Left = 1240
Top = 2340
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 15
Left = 1240
Top = 2120
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 14
Left = 640
Top = 2340
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 14
Left = 640
Top = 2120
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 13
Left = 4240
Top = 1860
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 13
Left = 4240
Top = 1640
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 12
Left = 3640
Top = 1860
Width = 60
End
Begin VB.Shape shapeAP1
BackStyle = 1 'Opaque
Height = 90
Index = 12
Left = 3640
Top = 1640
Width = 60
End
Begin VB.Shape shapeAP2
BackStyle = 1 'Opaque
Height = 90
Index = 11
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -