请教VB高手:如何为一系列同样的控件赋初值或检查它们的值?

Question

至于能不能用for...next
这好像不行吧

Answer 1

Dim ctrl As ControlFor Each ctrl In Me.Controls    If Left(ctrl.Name, 5) = "Check" Then    
        MsgBox "check"
    End If   
    
Next ctrl
不知道control的哪个属性是其类型，只好用name将就一下。

Answer 2

控件数组只能为同样的控件赋值，而duckcn朋友的方法则要遍历当年窗体的所有控件，当我要检查不同类型的控件，而又不是窗体中所有控件的时候，有什么办法呢？
其实Vb所有的控件都有一个Tag属性，该属性就是让你给程序加上你自己的一些额外信息时用的，使用时，将你要检查的所有控件的Tag值设为相同的一个值，然后即可实现更加灵活的功能。
例如：我将所有控件的Tag属性均设为test，则例程如下：
Dim ctrl As ControlFor Each ctrl In Me.Controls    If crtr.Tag = "test" Then    
        MsgBox "test"
    End If   
    
Next ctrl

Answer 3

如果需要用一系列的相同的控件.不管怎样.   首选就是用控件数组.很节省资源.载入还快.check1(0)-------------check1(n)for n=0 to ubound(check1)
check1(n).value=false
nextok~~~~~~~~~~~~~~~~~~~~

Answer 4

 有那么麻烦吗？Dim ctrl As ControlFor Each ctrl In Me.Controls    If TypeName(ctrl) = "CheckBox" Then    
         肯定是Check控件
    End If   
    
Next ctrl
好好看帮助。

Answer 5

dim ctrl as control
for each ctrl in me.controls
if typeof ctrl is checkbox then
msgbox "check"
end if
next ctrl

Answer 6

我认为比较实在的办法还是控件数组，
但是你用For next也是可以的!