作者sdwufei (玉鼎)
看板Visual_Basic
标题[VB6 ] 关於for回圈简化的问题
时间Thu Jun 18 14:52:17 2009
写了一段如下
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)
1F：→ blestadsl:y 要宣告成 array 06/18 14:56
2F：→ disc1002:也可以修改mid(yo,i,1) 不用需要设y 06/18 16:20