[VB6 ] 控制shape的問題

[ling07 (神風特攻隊)]

假設我有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
推 fumizuki:可以 Case 11 To 13 ...