《VB紅綠燈程序》由會(huì)員分享，可在線閱讀，更多相關(guān)《VB紅綠燈程序(4頁(yè)珍藏版)》請(qǐng)?jiān)谌巳宋膸?kù)網(wǎng)上搜索。

1、VB紅綠燈演示Private Sub Command1_Click()While (1)Shape1.FillColor = RGB(255, 0, 0)Shape2.FillColor = RGB(0, 0, 0)Shape3.FillColor = RGB(0, 0, 0)Shape4.FillColor = RGB(0, 0, 0)Shape5.FillColor = RGB(0, 255, 0)Shape6.FillColor = RGB(0, 0, 0)Shape7.FillColor = RGB(0, 0, 0)Shape8.FillColor = RGB(0, 0, 0)Shap。

2、e9.FillColor = RGB(255, 0, 0)Shape10.FillColor = RGB(0, 0, 0)Shape11.FillColor = RGB(0, 255, 0)Shape12.FillColor = RGB(0, 0, 0)For i = 0 To 10000000DoEventsNext iShape1.FillColor = RGB(255, 0, 0)Shape2.FillColor = RGB(0, 0, 0)Shape3.FillColor = RGB(0, 0, 0)Shape4.FillColor = RGB(255, 255, 0)Shape5.F。

3、illColor = RGB(0, 0, 0)Shape6.FillColor = RGB(0, 0, 0)Shape7.FillColor = RGB(0, 0, 0)Shape8.FillColor = RGB(0, 0, 0)Shape9.FillColor = RGB(255, 0, 0)Shape10.FillColor = RGB(255, 255, 0)Shape11.FillColor = RGB(0, 0, 0)Shape12.FillColor = RGB(0, 0, 0)For i = 0 To 3000000DoEventsNext iShape1.FillColor 。

4、= RGB(0, 0, 0)Shape2.FillColor = RGB(0, 255, 0)Shape3.FillColor = RGB(0, 0, 0)Shape4.FillColor = RGB(0, 0, 0)Shape5.FillColor = RGB(0, 0, 0)Shape6.FillColor = RGB(255, 0, 0)Shape7.FillColor = RGB(0, 0, 0)Shape8.FillColor = RGB(0, 255, 0)Shape9.FillColor = RGB(0, 0, 0)Shape10.FillColor = RGB(0, 0, 0)。

5、Shape11.FillColor = RGB(0, 0, 0)Shape12.FillColor = RGB(255, 0, 0)For i = 0 To 10000000DoEventsNext iShape1.FillColor = RGB(0, 0, 0)Shape2.FillColor = RGB(0, 0, 0)Shape3.FillColor = RGB(255, 255, 0)Shape4.FillColor = RGB(0, 0, 0)Shape5.FillColor = RGB(0, 0, 0)Shape6.FillColor = RGB(255, 0, 0)Shape7.FillColor = RGB(255, 255, 0)Shape8.FillColor = RGB(0, 0, 0)Shape9.FillColor = RGB(0, 0, 0)Shape10.FillColor = RGB(0, 0, 0)Shape11.FillColor = RGB(0, 0, 0)Shape12.FillColor = RGB(255, 0, 0)For i = 0 To 3000000DoEventsNext iWendEnd Sub*上圖即為shape控件位置。

總結(jié)

以上是生活随笔為你收集整理的vb红绿灯自动切换_VB红绿灯程序的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。