我想用vb 程序里面添加一個指示燈，請問各位大俠該用什么控件？本人菜鳥，請詳細說明

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

創(chuàng)新互聯(lián)公司是一家專業(yè)提供恩施土家企業(yè)網(wǎng)站建設(shè),專注與成都做網(wǎng)站、網(wǎng)站建設(shè)、外貿(mào)營銷網(wǎng)站建設(shè)、html5、小程序制作等業(yè)務(wù)。10年已為恩施土家眾多企業(yè)、政府機構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)站建設(shè)公司優(yōu)惠進行中。

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

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() '表單讀取時定義Shape屬性

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

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

Shape1.FillStyle = 0: '顯示背景

End Sub

用VB.net模擬十字路口紅綠燈交通信號的切換

實在不難，就是不知道你寫了代碼沒有？

答案補充：

Dim xuhao As Integer

Const wenjianjia = "" '自己寫好了

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里面用什么控件做指示燈比較好？請說明為優(yōu)點。

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

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

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

網(wǎng)頁題目：vb.net信號燈控件 vb交通信號燈模擬
本文URL：http://jinyejixie.com/article18/dodpidp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站導(dǎo)航、外貿(mào)網(wǎng)站建設(shè)、微信小程序、域名注冊、網(wǎng)站策劃、微信公眾號

廣告

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