→ blestadsl:y 要宣告成 array 06/18 14:56
→ disc1002:也可以修改mid(yo,i,1) 不用需要設y 06/18 16:20
寫了一段如下
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)