vb6.0下如何做狀態顯示（指示燈）？

'2個重復的？'增加一個shape控件，設置一下相應的屬性：園、fillstyle=0，然后復制建立園的數組，0-7共8個

創新互聯網站建設公司一直秉承“誠信做人，踏實做事”的原則，不欺瞞客戶，是我們最起碼的底線！ 以服務為基礎，以質量求生存，以技術求發展，成交一個客戶多一個朋友！專注中小微企業官網定制，做網站、網站制作，塑造企業網絡形象打造互聯網企業效應。

'增加一個text控件

Option Explicit

Private Sub Form_Activate()

Text1 = "10101010"

End Sub

Private Sub Text1_Change()

Dim i As Integer

If IsNumeric(Text1) And Len(Text1) = 8 Then

For i = 1 To 8

If Mid(CStr(Text1), i, 1) = "0" Then

Shape1(i - 1).FillColor = vbGreen

ElseIf Mid(CStr(Text1), i, 1) = "1" Then

Shape1(i - 1).FillColor = vbRed

Else

Shape1(i - 1).FillColor = vbBlack '無效的2進制

End If

Next

End If

End Sub

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

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

建立表單添加控件 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: '設定為形狀為正圓形

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

Shape1.FillStyle = 0: '顯示背景

End Sub

vb.net 串口點亮小燈

SCON = 0x50; //REN=1允許串行接受狀態，串口工作模式1 TMOD|= 0x20; 試下這個程序，PC發什么，它就回送什么，收到數據，點亮P2.0的LED。

分享文章：包含vb.net怎么做指示燈的詞條
文章源于：http://vcdvsql.cn/article10/hedpdo.html

成都網站建設公司_創新互聯，為您提供手機網站建設、網站改版、網站收錄、域名注冊、動態網站、自適應網站

廣告

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