Label中的小小问题

For i = 1 To 10
Label(i).BackColor = &H8000&
Next i运行的时候为什么会提示未找到成员或方法,是不是不能用Label(i)这种表示方法?
如果不想一个一个赋值的话在原有的基础上怎么修改呢?

解决方案 »

  1.   

    代码没问题的.
    你看一下你的Label控件是控件数组吗.索引有10吗,或者是从0到9的.
      

  2.   

    Dim i%
    For i = 0 To Me.Label1.Count - 1
        Me.Label1(i).BackColor = &HC0C0FF
    Next
      

  3.   

    调试一下，
    用print 显示出这时i的值！就可以解决了！
      

  4.   

    tztz520(午夜逛街),你总是很快呀,呵呵!^-^Label控件不是数组,在界面中是从Label1到Label10
      

  5.   

    '这样
    Dim i As Integer
    For i = 1 To 10
        Me.Controls("Label" & Trim(Str(i))).BackColor = &HC0C0FF
    Next i
      

  6.   

    Dim lab As Control
    For Each lab In Me.Controls
    If LCase(TypeName(lab)) = "label" Then
      lab.BackColor = &HC0E0FF
    End If
    Next
      

  7.   

    改成控件数组就可以了，只留第一个Label，改名为Label，
    选中复制、粘贴，或修改index，就可以创建控件数组
      

  8.   

    你应该是动态控件吧,要load一下
    load label(i)
      

  9.   

    运行时
    加载 load label(1)
    label(1).属性 = xxx
    用完卸载unload label(1)1可以是任何别的数