主题：VB2005的Label控件问题请教
china5501
[专家分：0] 发布于 2008-05-29 19:24:00
问题：窗体中有30个Label控件分别代表一个月的30天，从第一天开始，如果某天是星期日就将该天所对应的Label控件赋“1”值，否则赋“0”值。
我想是否可以使用循环30次，用循环变量分别代表每一天和每一天所对应的Label控件（Label1--Label30），循环内用IF判断，怎样编写程序呢？还有其他方法吗？请详细指教。谢谢！
回复列表 （共4个回复）
沙发
pariszh [专家分：740] 发布于 2008-05-29 20:22:00
将30个Label分别命名为label1到label30,tabindex属性依次递增
Dim dt As Date, L As Integer, Ct As Label
dt="2008-5-1"
L = 30
Ct = lable1
Ct.Visible = False
do while L>0
If dt.DayOfWeek = DayOfWeek.Sunday then
ct.text=1
else
ct.text=0
end if
Ct = GetNextControl(Ct, True)
Ct.Visible = False
l=l-1
loop
板凳
pariszh [专家分：740] 发布于 2008-05-29 20:24:00
do while 中掉了一句
dt = dt.AddDays(1)
3 楼
china5501 [专家分：0] 发布于 2008-05-29 21:36:00
十分的谢谢您！我是才开始学习的，这几个语句还要再仔细琢磨琢磨才能理解，但整个过程的解决思路懂了，太谢谢了。
4 楼
pariszh [专家分：740] 发布于 2008-05-30 15:07:00
谢谢就完拉!
我来回复
您所在位置：