📄 planner.frm
字号:
VERSION 5.00
Begin VB.Form planner
BorderStyle = 1 'Fixed Single
Caption = "Planner"
ClientHeight = 5730
ClientLeft = 45
ClientTop = 330
ClientWidth = 5640
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5730
ScaleWidth = 5640
StartUpPosition = 1 'CenterOwner
Begin VB.Frame frameScheduler
Height = 5670
Left = 0
TabIndex = 0
Top = 15
Width = 5565
Begin VB.CommandButton cmdCancel
Caption = "Cancel"
Height = 465
Left = 3330
TabIndex = 24
Top = 5100
Width = 1830
End
Begin VB.CommandButton cmdOK
Caption = "OK"
Height = 465
Left = 1260
TabIndex = 23
Top = 5100
Width = 1830
End
Begin VB.ComboBox cmbHour
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000002&
Height = 360
Index = 2
ItemData = "planner.frx":0000
Left = 1770
List = "planner.frx":004C
Style = 2 'Dropdown List
TabIndex = 13
Top = 2850
Width = 975
End
Begin VB.ComboBox cmbMinute
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000002&
Height = 360
Index = 2
ItemData = "planner.frx":00A6
Left = 2970
List = "planner.frx":00D1
Style = 2 'Dropdown List
TabIndex = 12
Top = 2850
Width = 855
End
Begin VB.TextBox txtDate
Alignment = 2 'Center
BeginProperty DataFormat
Type = 1
Format = "dddd, dd MMMM yyyy"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 3
EndProperty
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000002&
Height = 375
Index = 1
Left = 1770
TabIndex = 11
ToolTipText = "Month/Day/Year"
Top = 1230
Width = 2895
End
Begin VB.ComboBox cmbHour
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000002&
Height = 360
Index = 1
ItemData = "planner.frx":0106
Left = 1770
List = "planner.frx":0152
Style = 2 'Dropdown List
TabIndex = 10
Top = 2370
Width = 975
End
Begin VB.ComboBox cmbMinute
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000002&
Height = 360
Index = 1
ItemData = "planner.frx":01AC
Left = 2970
List = "planner.frx":01D4
Style = 2 'Dropdown List
TabIndex = 9
Top = 2370
Width = 855
End
Begin VB.ComboBox cmbMinute
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000002&
Height = 360
Index = 0
ItemData = "planner.frx":0206
Left = 2955
List = "planner.frx":022E
Style = 2 'Dropdown List
TabIndex = 8
Top = 1890
Width = 855
End
Begin VB.ComboBox cmbHour
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000002&
Height = 360
Index = 0
ItemData = "planner.frx":0260
Left = 1770
List = "planner.frx":02AC
Style = 2 'Dropdown List
TabIndex = 7
Top = 1905
Width = 975
End
Begin VB.CommandButton cmdPickDate
Height = 375
Index = 1
Left = 4770
TabIndex = 6
ToolTipText = "Select from a calender."
Top = 1230
Width = 375
End
Begin VB.TextBox txtNotes
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000002&
Height = 1530
Left = 90
MultiLine = -1 'True
TabIndex = 5
Text = "planner.frx":0306
ToolTipText = "Text you would like it to appear on the Alert."
Top = 3465
Width = 5400
End
Begin VB.TextBox txtDate
Alignment = 2 'Center
BeginProperty DataFormat
Type = 1
Format = "dddd, dd MMM yyyy"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 3
EndProperty
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000002&
Height = 375
Index = 0
Left = 1770
TabIndex = 4
ToolTipText = "Month/Day/Year"
Top = 750
Width = 2895
End
Begin VB.CommandButton cmdPickDate
DownPicture = "planner.frx":0312
Height = 375
Index = 0
Left = 4770
Picture = "planner.frx":05C4
TabIndex = 3
ToolTipText = "Select from a calender."
Top = 750
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -