vb6.0下如何做状态显示（指示灯）？

想要做一个状态显示，通过判断一个8位二进制数各个数位的值来对相应的状态进行判断，想要使用“指示灯”的亮灭的方法来显示，举个例子，比如说有8个灯来对应8个数位，当某一位是1时，对应的“灯”变成红色，为零时变成绿色，请问各位谁知道在vb6.0环境下怎么弄啊？特别是如何能得到指示灯的效果啊？是有控件还是怎么的？请各位赐教，谢谢啦！

2026年09月22日 14:34

有1个网友回答

网友（1）：

'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