📄 frmmain.frm
字号:
VERSION 5.00
Object = "{8E27C92E-1264-101C-8A2F-040224009C02}#7.0#0"; "MSCAL.OCX"
Begin VB.Form frmMain
BackColor = &H00C0E0FF&
BorderStyle = 3 'Fixed Dialog
ClientHeight = 4740
ClientLeft = 45
ClientTop = 330
ClientWidth = 6960
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "frmMain.frx":0442
ScaleHeight = 4740
ScaleWidth = 6960
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin VB.ComboBox comboWeather
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 5280
Locked = -1 'True
TabIndex = 19
Top = 240
Width = 1335
End
Begin VB.CommandButton cmdExit
Caption = "退出[&X]"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 2400
Picture = "frmMain.frx":3857C
Style = 1 'Graphical
TabIndex = 18
Top = 3480
Width = 855
End
Begin VB.CommandButton cmdDel
Caption = "删除[&D]"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 1320
Picture = "frmMain.frx":38886
Style = 1 'Graphical
TabIndex = 17
Top = 3480
Width = 855
End
Begin VB.CommandButton cmdSave
Caption = "保存[&S]"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 240
Picture = "frmMain.frx":38CC8
Style = 1 'Graphical
TabIndex = 16
Top = 3480
Width = 855
End
Begin VB.TextBox txtMemo
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3855
Left = 3360
MultiLine = -1 'True
TabIndex = 15
Top = 720
Width = 3495
End
Begin VB.Frame Frame1
BackColor = &H00C0E0FF&
Height = 3135
Left = 120
TabIndex = 0
Top = 120
Width = 3120
Begin VB.CommandButton BackYear
Height = 330
Left = 165
Picture = "frmMain.frx":3910A
Style = 1 'Graphical
TabIndex = 4
Top = 360
Width = 285
End
Begin VB.CommandButton NextYear
Height = 330
Left = 1200
Picture = "frmMain.frx":39198
Style = 1 'Graphical
TabIndex = 3
Top = 360
Width = 285
End
Begin VB.CommandButton BackMonth
Height = 330
Left = 1650
Picture = "frmMain.frx":39226
Style = 1 'Graphical
TabIndex = 2
Top = 360
Width = 285
End
Begin VB.CommandButton NextMonth
Height = 330
Left = 2460
Picture = "frmMain.frx":392B4
Style = 1 'Graphical
TabIndex = 1
Top = 360
Width = 285
End
Begin MSACAL.Calendar Calendar1
Height = 1815
Left = 120
TabIndex = 5
Top = 1215
Width = 2805
_Version = 524288
_ExtentX = 4948
_ExtentY = 3201
_StockProps = 1
BackColor = 16777215
Year = 1998
Month = 9
Day = 20
DayLength = 0
MonthLength = 0
DayFontColor = 0
FirstDay = 1
GridCellEffect = 1
GridFontColor = 10485760
GridLinesColor = -2147483632
ShowDateSelectors= 0 'False
ShowDays = 0 'False
ShowHorizontalGrid= -1 'True
ShowTitle = 0 'False
ShowVerticalGrid= -1 'True
TitleFontColor = 10485760
ValueIsNull = 0 'False
BeginProperty DayFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty GridFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty TitleFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "日"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 195
Index = 0
Left = 300
TabIndex = 14
Top = 990
Width = 240
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "一"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 195
Index = 1
Left = 705
TabIndex = 13
Top = 990
Width = 195
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "二"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 195
Index = 2
Left = 1065
TabIndex = 12
Top = 990
Width = 195
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "三"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 195
Index = 3
Left = 1425
TabIndex = 11
Top = 990
Width = 195
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "四"
BeginProperty Font
Name = "宋体"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -