[VB6 ] 控制shape的問題
假設我有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
推
05/12 22:04, , 1F
05/12 22:04, 1F