作者ling07 (神风特攻队)
看板Visual_Basic
标题[VB6 ] 控制shape的问题
时间Sun May 11 23:09:16 2008
假设我有3个shape
分别命名为shape11、shape12、shape13
另外有一个array(11 to 13) ，array(i)=i
要如何用回圈取得array中的值去控制shape
假设我要使用shape中的fillcolor功能
目前我的写法是
for i = 11 to 13
fill(array(i))
next i
sub fill(byVal tmp)
select tmp
case 11
shape11.fillcolor=vbgreen '都是要上同样的色彩
case 12
shape12.fillcolor=vbgreen
case 13
shape13.fillcolor=vbgreen
end select
end sub
这个方法在shape少时还没关系，shape数一多，整个程式码都是case...
没有以代换掉shape变数的好方法
麻烦大家了！
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.169.70.171
1F：推 fumizuki:可以 Case 11 To 13 ... 05/12 22:04