1,453
社区成员
发帖
与我相关
我的任务
分享Option Explicit
Private Sub Command1_Click()
Calendar1.ShowTitle = False
Calendar1.AboutBox
End Sub
Private Sub Command2_Click()
MsgBox Calendar1.Value
End Sub
Private Sub Form_Load()
Calendar1.BackColor = vbWhite
Calendar1.DayFont.Name = "隶书"
Calendar1.DayFont.Size = 10
Calendar1.DayFontColor = vbRed
Calendar1.ShowTitle = True
Calendar1.Year = 2012
Calendar1.Month = 8
Calendar1.Day = 24
Calendar1.FirstDay = 0
Calendar1.GridCellEffect = 2
Calendar1.GridFontColor = vbRed
Calendar1.GridLinesColor = vbRed
Calendar1.ShowHorizontalGrid = False
Calendar1.TitleFontColor = vbGreen
Calendar1.TitleFont.Size = 14
Calendar1.TitleFont.Name = "方正姚体"
End Sub