VB中指示燈怎么按條件與否點(diǎn)亮、熄滅？

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

成都網(wǎng)站建設(shè)、做網(wǎng)站的關(guān)注點(diǎn)不是能為您做些什么網(wǎng)站，而是怎么做網(wǎng)站，有沒(méi)有做好網(wǎng)站，給成都創(chuàng)新互聯(lián)一個(gè)展示的機(jī)會(huì)來(lái)證明自己，這并不會(huì)花費(fèi)您太多時(shí)間，或許會(huì)給您帶來(lái)新的靈感和驚喜。面向用戶(hù)友好，注重用戶(hù)體驗(yàn)，一切以用戶(hù)為中心。

當(dāng)燈亮?xí)r顯示燈亮的色彩。

當(dāng)燈滅時(shí)顯示窗體的BackColor背景顏色。

BackColor屬性，BackColor－返回或設(shè)置對(duì)象的背景顏色。

用一個(gè)Timer控件的Timer事件來(lái)判別條件的變化。

以下是實(shí)施代碼。

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模擬十字路口紅綠燈交通信號(hào)的切換

實(shí)在不難，就是不知道你寫(xiě)了代碼沒(méi)有？

答案補(bǔ)充：

Dim xuhao As Integer

Const wenjianjia = "" '自己寫(xiě)好了

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

xuhao = xuhao + 1

If xuhao = 4 Then xuhao = 1

Picture1.Picture = LoadPicture(wenjianjia "\" xuhao ".ico")

End Sub

vb.net light控件在哪里?

題主您好，第一個(gè) Light 控件不是 .net 2010 中的自帶控件，而是一個(gè)用戶(hù)自定義控件，這個(gè)控件的下載地址是：。

另附該控件的源代碼：。

第一個(gè)是 ListView 控件。

我想用vb 程序里面添加一個(gè)指示燈，請(qǐng)問(wèn)各位大俠該用什么控件？本人菜鳥(niǎo)，請(qǐng)?jiān)敿?xì)說(shuō)明

shape做指示燈方法，我在旁邊注解了說(shuō)明。

建立表單添加控件 shape command 兩個(gè)控件，輸入以下代碼（兩個(gè)控件都是VB默認(rèn)就有的）。

Private Sub Command1_Click() '按鈕1按下的代碼

If Shape1.FillColor = RGB(255, 255, 0) Then '若shape1為黃色則

Shape1.FillColor = RGB(255, 255, 255.255) '變更shape1為白色

Else

Shape1.FillColor = RGB(255, 255, 0) '其它情況則變成黃色

End If

End Sub

Private Sub Form_Load() '表單讀取時(shí)定義Shape屬性

Shape1.Shape = 3: '設(shè)定為形狀為正圓形

Shape1.FillColor = RGB(255, 255, 0) '黃色

Shape1.FillStyle = 0: '顯示背景

End Sub

用VB.NET編寫(xiě)一個(gè)交通燈的程序

下面這個(gè)希望可以幫到你~交通燈

實(shí)例說(shuō)明在本實(shí)例中，我們將制作一個(gè)具有交通燈效果的應(yīng)用程序。程序運(yùn)行后，交通燈不斷地變化，可以通過(guò)按鈕運(yùn)行或停止程序。程序運(yùn)行結(jié)果如圖88-1所示。技術(shù)要點(diǎn)l 不斷變換圖片l 不斷更改時(shí)間間隔 type="text/javascript" type="text/javascript" src=" "

實(shí)現(xiàn)過(guò)程■ 新建項(xiàng)目打開(kāi)Visual Studio.NET，選擇"新建項(xiàng)目"，在項(xiàng)目類(lèi)型窗口中選擇"Visual Basic項(xiàng)目"，在模板窗口中選擇"Windows應(yīng)用程序"，在名稱(chēng)域中輸入"Traffic"，然后選擇保存路徑。單擊"確認(rèn)"。■ 添加控件向當(dāng)前窗體添加一個(gè)Timer控件，用于控制交通燈變換的時(shí)間；三個(gè)Picture控件，分別裝入相應(yīng)的圖片；一個(gè)Button按鈕，用于控制交通燈。屬性保持默認(rèn)值。■ 添加代碼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 = "開(kāi) 始"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■ 運(yùn)行程序單擊菜單"調(diào)試|啟動(dòng)"或單擊 圖標(biāo)運(yùn)行程序。

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

VB.NET里用GDI+畫(huà)指示燈其實(shí)很簡(jiǎn)單，稍微查一點(diǎn)資料就能找到gdi+語(yǔ)句的用法的。用GDI+可以畫(huà)很多種圖形，圓形半圓形自然不在話(huà)下。如果有很多指示燈在一起的話(huà)，改起來(lái)也很方便。

當(dāng)然如果嫌GDI+麻煩可以用label控件，把a(bǔ)utosize關(guān)掉，將尺寸調(diào)小一點(diǎn)，然后利用backcolor調(diào)背景顏色作為指示燈，只不過(guò)是方形的。

如果指示燈很多而且頻繁換顏色的話(huà)建議用GDI+，因?yàn)镚DI+效率高一些

標(biāo)題名稱(chēng)：關(guān)于vb.net指示燈控件的信息
網(wǎng)頁(yè)路徑：http://chinadenli.net/article30/phepso.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供靜態(tài)網(wǎng)站、云服務(wù)器、手機(jī)網(wǎng)站建設(shè)、微信公眾號(hào)、網(wǎng)站建設(shè)、標(biāo)簽優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)