RT,我知道很麻烦，但真的请大家帮帮忙。

[ 本帖最后由 mrye 于 2013-3-21 23:48 编辑 ]

怎么没人帮小白解决啊？真的很想试试呢

各位大神帮帮忙吧

日历这些花点心思就可以了。例如：简单些的就弄个数组label()，然后用weekday判断相应月份的第一天是星期几返回一个值再做运算，当然你得计算出相应月份的天数。

求代码，谢谢大神了

现成的日历控件多好啊

现成的不能扩大，我要弄半屏幕的那么大

用标签排 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、事件。 点击后，返回 点击了的标签的显示的内容就是 日期。

代码应该很简单。

详细功能自己添加吧

谢谢，经你这么说大致明白怎么弄了。万分感谢

谢谢，辛苦你了。万分感谢。