不用控件的情况下，仅靠按钮和标签怎么制作日历？ - 编程论坛

#2

mrye2013-03-21 23:48

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

各位大神帮帮忙吧

#3

seafish0112013-03-22 06:12

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

#4

mrye2013-03-22 10:52

回复 3楼 seafish011

求代码，谢谢大神了

#5

wp2319572013-03-22 10:54

现成的日历控件多好啊

#6

mrye2013-03-22 11:44

回复 5楼 wp231957

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

#7

风吹过b2013-03-22 16:06

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

代码应该很简单。

#8

seafish0112013-03-22 19:16

详细功能自己添加吧

只有本站会员才能查看附件，请登录

#9

mrye2013-03-23 00:02

回复 7楼风吹过b

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

#10

mrye2013-03-23 00:03

回复 8楼 seafish011

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