| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1714 人关注过本帖
标题:一个傻问题
只看楼主 加入收藏
从菜鸟起步
Rank: 1
等 级:新手上路
帖 子:63
专家分:0
注 册:2007-9-8
收藏
 问题点数:0 回复次数:22 
一个傻问题
今天偶然之间看到个题目:在一个窗体上放6个checkbox,再放一个按钮,要求点击按钮后用msgbox()输出有多少个checkbox被选中.
因为只有6个checkbox,所以用if语句进行条件判断就可以搞定了,但是如果不只6个,是很多的话,怎么搞定?
搜索更多相关主题的帖子: checkbox 按钮 msgbox 语句 窗体 
2007-10-04 20:45
lrd1986
Rank: 1
等 级:新手上路
帖 子:111
专家分:0
注 册:2007-9-11
收藏
得分:0 
好像用for.....next可以实现

Private Sub Command1_Click()
Dim i As Integer
Dim check As Control
For Each check In Me.Controls
If check.Value = 1 Then
i = i + 1
End If
Next check
MsgBox i
End Sub

测试可以

[此贴子已经被作者于2007-10-4 20:55:36编辑过]


走自己的路,让人说去
2007-10-04 20:49
从菜鸟起步
Rank: 1
等 级:新手上路
帖 子:63
专家分:0
注 册:2007-9-8
收藏
得分:0 
我试过了:
Private Sub Command1_Click()
Dim i As Integer
Dim checktotal As Integer
checktotal = 0
For i = 1 To 6
If check(i).Value = True Then
checktotal = checktotal + 1
End If
Next
End Sub
关键是第6行中check(i)中的"i"怎么和check1 check2 check3.....中的"1,2,3..."对应不会.
2007-10-04 20:57
从菜鸟起步
Rank: 1
等 级:新手上路
帖 子:63
专家分:0
注 册:2007-9-8
收藏
得分:0 

呵呵,不好意思,刚才可能网页没全部打开,没看到2楼写的程序...就看到第一句话了.

2007-10-04 20:59
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
设为控件数组(即设置几个Check的Name相同,Index属性从0到5,然后用 Check(i)引用。)
2007-10-04 21:02
从菜鸟起步
Rank: 1
等 级:新手上路
帖 子:63
专家分:0
注 册:2007-9-8
收藏
得分:0 

好,我去突击一下控件数组

2007-10-04 21:17
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
控件数组其实没什么,就是数组形式维护的控件。顶多就是动态增加元素。删除元素不是控件数组的特性。
2007-10-04 21:24
从菜鸟起步
Rank: 1
等 级:新手上路
帖 子:63
专家分:0
注 册:2007-9-8
收藏
得分:0 
这个论坛真的很不错.
2007-10-04 21:35
china25qd
Rank: 1
等 级:新手上路
帖 子:161
专家分:0
注 册:2007-9-6
收藏
得分:0 
LZ,你不会用循环么?

抱膝怀天下 闲坐观四海
2007-10-04 22:00
从菜鸟起步
Rank: 1
等 级:新手上路
帖 子:63
专家分:0
注 册:2007-9-8
收藏
得分:0 
谁能帮我解释下"control" 这个数据类型?找半天了.没找到能看懂的答案.
2007-10-04 22:13
快速回复:一个傻问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.035846 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved