VB中指示燈怎么按條件與否點亮、熄滅？

可使用FillColor屬性改變Shape控件填充形狀的顏色。

創(chuàng)新互聯建站專注于雙塔網站建設服務及定制，我們擁有豐富的企業(yè)做網站經驗。 熱誠為您提供雙塔營銷型網站建設，雙塔網站制作、雙塔網頁設計、雙塔網站官網定制、成都微信小程序服務，打造雙塔網絡公司原創(chuàng)品牌,更為您提供雙塔網站排名全網營銷落地服務。

當燈亮時顯示燈亮的色彩。

當燈滅時顯示窗體的BackColor背景顏色。

BackColor屬性，BackColor－返回或設置對象的背景顏色。

用一個Timer控件的Timer事件來判別條件的變化。

以下是實施代碼。

Option?Explicit

Dim?zt_dm1

Private?Sub?Command1_Click()

zt_dm1?=?1

End?Sub

Private?Sub?Command2_Click()

zt_dm1?=?0

End?Sub

Private?Sub?Form_Load()

zt_dm1?=?0

Timer1.Interval?=?200

Timer1.Enabled?=?True

End?Sub

Private?Sub?Timer1_Timer()

If?zt_dm1?=?1?Then

Shape1.FillStyle?=?0

Shape1.FillColor?=?vbGreen

Shape2.FillStyle?=?0

Shape2.FillColor?=?Me.BackColor

Else

Shape1.FillStyle?=?0

Shape1.FillColor?=?Me.BackColor

Shape2.FillStyle?=?0

Shape2.FillColor?=?vbRed

End?If

效果：

VB.NET里面用什么控件做指示燈比較好？請說明為優(yōu)點。

VB.NET里用GDI+畫指示燈其實很簡單，稍微查一點資料就能找到gdi+語句的用法的。用GDI+可以畫很多種圖形，圓形半圓形自然不在話下。如果有很多指示燈在一起的話，改起來也很方便。

當然如果嫌GDI+麻煩可以用label控件，把autosize關掉，將尺寸調小一點，然后利用backcolor調背景顏色作為指示燈，只不過是方形的。

如果指示燈很多而且頻繁換顏色的話建議用GDI+，因為GDI+效率高一些

用VB.NET編寫一個交通燈的程序

下面這個希望可以幫到你~交通燈

實例說明在本實例中，我們將制作一個具有交通燈效果的應用程序。程序運行后，交通燈不斷地變化，可以通過按鈕運行或停止程序。程序運行結果如圖88-1所示。技術要點l 不斷變換圖片l 不斷更改時間間隔 type="text/javascript" type="text/javascript" src=" "

實現過程■ 新建項目打開Visual Studio.NET，選擇"新建項目"，在項目類型窗口中選擇"Visual Basic項目"，在模板窗口中選擇"Windows應用程序"，在名稱域中輸入"Traffic"，然后選擇保存路徑。單擊"確認"?！?添加控件向當前窗體添加一個Timer控件，用于控制交通燈變換的時間；三個Picture控件，分別裝入相應的圖片；一個Button按鈕，用于控制交通燈。屬性保持默認值?！?添加代碼Dim vv As BooleanDim updirec As BooleanPrivate Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Clickvv = Timer1.Enabledvv = Not vvTimer1.Enabled = vvIf vv ThenCommand1.Text = "開 始"ElseCommand1.Text = "停 止"End IfEnd SubPrivate Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.TickStatic i As ShortSelect Case iCase 0Timer1.Interval = 3000picicon0.Visible = Truepicicon1.Visible = Falsepicicon2.Visible = Falsei = i + 1updirec = FalseCase 1Timer1.Interval = 1000picicon0.Visible = Falsepicicon1.Visible = Truepicicon2.Visible = False'Me.Icon = picicon(i).ImageIf updirec Theni = i - 1Elsei = i + 1End IfCase 2Timer1.Interval = 3000picicon0.Visible = Falsepicicon1.Visible = Falsepicicon2.Visible = Truei = i - 1updirec = TrueEnd SelectEnd Sub■ 運行程序單擊菜單"調試|啟動"或單擊 圖標運行程序。