作者sdwufei (玉鼎)
看板Visual_Basic
标题Re: [VB6 ] 关於for回圈简化的问题
时间Fri Jun 19 10:00:57 2009
感谢，语法没下错，只是忘记先宣告。太久没玩VB了，忘记不少东西。
最前面先宣告出阵列，後面就可以改成
Dim y(7)
.
.
.
For i = 0 To 7
y(i) = Mid(yo, i + 1, 1)
If y(i) = 0 Then
Shape1(i).BackColor = RGB(128, 128, 128)
Else
Shape1(i).BackColor = RGB(255, 0, 0)
End If
Next i
就完工了，感谢提示XD
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.169.199.77