根据月份。每天画一个listbox和label,并且为listbox添加事件
Private Sub DrawingPage()
Try'listbox大小
Dim s As Size
s.Width = 120
s.Height = 88
'获取当月天数
Dim days As Integer = DateTime.DaysInMonth(DateTime.Now.Year, DateTime.Now.Month)
'当前时间
Dim datestr As Date = Now()
For i As Integer = 1 To days
'listbox
Dim list As New ListBox
'listbox
Dim label As New Label
'listbox x轴
Dim x As Integer
'listbox y轴
Dim y As Integer
'listbox y轴行数
Dim yIndex As Integer
'label x轴
Dim lx As Integer
'label y轴
Dim ly As Integer
'当月第i天
Dim sday As Date = Year(datestr) & "-" & Month(datestr) & "-" & i
'第i天周几
Dim Week As String = System.Globalization.CultureInfo.CurrentCulture.DateTimeFormat.GetDayName(sday.DayOfWeek)
'求x轴坐标
Select Case Week
Case "星期日"