控件的变量化引用:求助.

[dgz988]

在一个窗体上建了50个PANEL,分别命名为P1 --P49 ,现在想动态的改变其中之一的颜色,假设相改变P40的背景颜色,怎么样在引用的时候,定义变量为I=49,引用P(i)代替P49呢?
谢谢了.
想做一个类似友情强档的日历模块的程序.

[bw555]

 Dim arr As New ArrayList
 arr.add(p1)
arr.add(p2)
'......把panel依次添加进来


'引用的时候
ctype(arr.item(i),panel)

[bw555]

或是遍历me.controls
查找到你的panel

for i=0 to me.controls.count-1
  if me.controls.item(i).name="P" & i
    return ctype(me.controls.item(i),panel)
  end if
next

[gjw_8888]

ls遍歷的方法不錯

[wangjuenhui520]

依照楼主的要,我是这样做的

private sub changecolor(byval i as integer)

dim pn as new panel

pn = me.controls("P" & i)

pn.backcolor =color.red

end sub

在调用的时候传递i为你的控件编号,如果你要直接传递名称就把 i的类型改为string ,
pn = me.controls("P" & i) 改为pn = me.controls(i)

如果你想改变连续的几个控件的背景可以增加两的个传递的变量c,d ,类型为integer . 然后写成
for s as integer = c to d

pn = me.controls("P" & i)

pn.backcolor =color.red

next

达到变量调用的效果

[dgz988]

因为主要不做程序这一块了.很久没过来问问题了,现在大家还是这么热心,太高兴了.哈哈.结贴,一楼的兄弟办法不错,二楼的如果要很多就有点费资源,效率有点低,四楼的内部控件编号不是很规则,规则的话这个办法最好.呵呵.

再次谢谢大家.