各位大大，我知道這是VB.Net的討論區，不知道可否請教VB6.0的問題 如果有犯了討論板的規定，可以刪除本文章，謝謝 如果各位大大都樂意回答，那以下是我要請教的問題: 假設我有Shape1 ~到Shape50，要用迴圈來更改Shape的顏 色，因為在更改之前要先做個判斷，要先去判斷陣列裡面 的值，才來決定要更改成什麼顏色 而我自已的想法是以下的寫法: dim num1,num2,num3 as integer num1=1 num3=1 for num2=1 to 50 if y(num1) = OK then shape[num3].backcolor =&H0080FF80& elseif y(num1) =NG1 then shape[num3].backcolor =&H000000FF& elseif (y(num1) = NG2 then shape[num3].backcolor =&H00FF0000 else shape[num3].backcolor=&H00FFFFFF& end if num1=num1 1 num3=num3 1 next 這只是我的想法，當然囉，我知道以上的寫法在VB行不通 ，光是shape[num3].backcolor這樣就不行了，我想要的動 作就是這樣，可否有更好的方式嗎？謝謝

小弟很久很久沒有寫VB了，環境及語法以遺忘的差不多了，可是有一點應該很確認的是，VB本身還是可以做元件陣列的吧！只要元件的屬性NAME名稱相同，將INDEX指定成不同的值即可形成元件的陣列，如此不就可以達成你的目標！ ------------------- 學，然後知不足。

kevin168 你好，請參考本站規定，自行修改標題為有意義的主題 ABSee數位相機族群的專業網站，免費1G 網路相簿 http://absee.com.tw/law.asp?uRef=15360