用标签排 0-34 ,共35个,每行 7个,共5个。
按顺序摆。
1、初始化。年月,计算 1日是星期几?
计算本月有多少天。
下月1号减1,然后取 天 就是本月天数。
2013-2 :
day(#2013-3-1#-1)
如,你日历里,每周是1开始,经星期日结束。取1号是星期几,VB 也有函数
那么,如果 1日是 星期一,那就 0下标 显示1,1下标 显示2
如果 1日 是星期三,那么 0下标和1下标 就隐藏,2下标 显示1 。 以此类推。
尾部没用的标签也全部隐藏。
用三个循环,就排完它来。
for i=0 to 星期几-1
隐藏
next i
for i=星期几 to 月总天数+星期几
显示内容
next i
for i=月总天数+星期几+1 to 34
隐藏
next i
2、事件。 点击后,返回 点击了的标签的显示的内容就是 日期。
代码应该很简单。