[VB6 ] 關於for迴圈簡化的問題

看板Visual_Basic作者 (玉鼎)時間15年前 (2009/06/18 14:52), 編輯推噓0(0推 0噓 2→)
留言2則, 2人參與, 最新討論串1/2 (看更多)
寫了一段如下 y0 = Mid(yo, 1, 1) Y1 = Mid(yo, 2, 1) Y2 = Mid(yo, 3, 1) y3 = Mid(yo, 4, 1) If y0 = 0 Then Shape1(0).BackColor = RGB(128, 128, 128) Else Shape1(0).BackColor = RGB(255, 0, 0) End If If Y1 = 0 Then Shape1(1).BackColor = RGB(128, 128, 128) Else Shape1(1).BackColor = RGB(255, 0, 0) End If If Y2 = 0 Then Shape1(2).BackColor = RGB(128, 128, 128) Else Shape1(2).BackColor = RGB(255, 0, 0) End If If y3 = 0 Then Shape1(3).BackColor = RGB(128, 128, 128) Else Shape1(3).BackColor = RGB(255, 0, 0) End If -------------------------------------------------------------- ---------------------------分隔線----------------------------- -------------------------------------------------------------- 原本想說後面if的地方可以改成 For i = 0 To 3 If y(i) = 0 Then Shape1(i).BackColor = RGB(128, 128, 128) Else Shape1(i).BackColor = RGB(255, 0, 0) End If Next i 就可以一段搞定不用重複打四段。 不過這樣打在y(i)那邊似乎語法錯誤了，請教該怎麼打呢？或是有更好的簡化方式？ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 118.169.199.77 ※ 編輯: sdwufei 來自: 118.169.199.77 (06/18 14:53)
→
06/18 14:56, , 1F
y 要宣告成 array
06/18 14:56, 1F
→
06/18 16:20, , 2F
也可以修改mid(yo,i,1) 不用需要設y
06/18 16:20, 2F
‣ 更多 sdwufei 的文章
文章代碼(AID): #1AEUGYCq (Visual_Basic)
‣ 更多 sdwufei 的文章
文章代碼(AID): #1AEUGYCq (Visual_Basic)