窗体中添加了5个checkbox
分别 叫 checkbox1,2,3,4,5。想通过代码将他们的Text属性设置为1,2,3,4,5.比如for i=1 to 5checkbox"i".Text=1Next这个具体怎么写

解决方案 »

  1.   

    checkbox用控件数组建立5个checkboxdim i
    for 0 to 4
    checkbox(i).text= i+1
    next i
      

  2.   

    aqz2002
    --!
        不能使用check(i) 引用
      

  3.   

    用控件数组就可以了:
    先放一个CHECKBOX到窗体,然后选中它,按CTRL+C,点窗体空白处按CTRL+V,就会提示建立控件数组了.
    访问时就可以用类似Check1(index)的方法去循环遍历了.
      

  4.   

    Dim obj As Control
    For Each obj In Me.Controls
        If TypeName(obj) = "CheckBox" Then
            obj.Value = 1
        End If
    Next
      

  5.   

    Dim i%
    For i = 1 To 5
        Me("checkbox" & "i").Text = i
    Next
    checkbox有text属性吗?只有value吧?只能接受0、1、2
      

  6.   

    上面代码错了应该是:
    Dim i%
    For i = 1 To 5
        Me("checkbox" & i).Text = i
    Next