VB中指示灯怎么按条件与否点亮、熄灭？

怎样在vb中按钮下去添加按钮指示灯~

你这个指示灯是要常亮的（就是按了Command5后它就固定变为绿色，除非再次改变）还是随按钮的动作变色的（按下去是绿色，弹起来后是红色）？如果是常亮的，那么你应该把Shape2.FillColor = vbGreen这一句移到它下下一行的End If的下一行。如果是后者，那么就要改用MouseDown和MouseUp事件来控制shape的颜色：

Private Sub Command5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape2.FillColor = vbGreen
End Sub

Private Sub Command5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape2.FillColor = vbRed
End Sub

实际就是图片更换，用浅色灯图片作为熄灭指示灯，用鲜艳深色等图片做为点亮指示灯
select case power
case 0
set image1.picture=loadpicture("c:\abc\熄灭.jpg")
case 1
set image1.picture=loadpicture("c:\abc\亮度1.jpg")
case 2
set image1.picture=loadpicture("c:\abc\亮度2.jpg")
case3
......
case n
set image1.picture=loadpicture("c:\abc\点亮n.jpg")
end select

可使用FillColor属性改变Shape控件填充形状的颜色。

当灯亮时显示灯亮的色彩。

当灯灭时显示窗体的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

效果：

If a > b Then
Shape1.FillStyle = 0
Shape1.FillColor = RGB(255, 0, 0) '红
Shape1.Refresh
Shape2.FillStyle = 1 '不显示颜色
Shape2.Refresh
Else
Shape2.FillStyle = 0
Shape2.FillColor = RGB(0, 255, 0) '绿
Shape2.Refresh
Shape1.FillStyle = 1
Shape1.Refresh
End If

Private Sub Command1_Click()
fillshape 8, 6
End Sub

Sub fillshape(a As Integer, b As Integer)
If a > b Then
Shape1.FillStyle = 0
Shape1.FillColor = vbRed
Shape2.FillStyle = 1
Else
Shape1.FillStyle = 1
Shape2.FillStyle = 0
Shape2.FillColor = vbGreen
End If
End Sub

if a>b then
shape1.BackColor = vbred
shape2.BackColor = me.BackColor
else
shape2.BackColor = vbGreen
shape1.BackColor = me.BackColor
end
’--你要把这段代码放到一个时间过程中..

Shape1.BackColor = &HFF&
Shape1.BackStyle = 1
希望回答能帮到你，哪里不清楚再问。

---

曲江区18467101961： 怎么用vb中的timer控件做一个红绿灯程序 - ？
傅阙帅立： 用一个count变量来计数,每次count=count+1,比如到1000次后,就控制哪个灯亮,哪个灯熄等,然后count归零

曲江区18467101961： vb程序 - 交通信号灯 - ？
傅阙帅立： 一个按钮控制,在一个灯上显示三种状态,进行切换,供参考: Option Explicit Dim a As BytePrivate Sub Command1_Click() a = a + 1 If a = 1 Then Shape1.FillColor = vbRed ElseIf a = 2 Then Shape1.FillColor = vbYellow ElseIf a = 3 Then Shape...

曲江区18467101961： 利用vb6.0如何做状态显示(指示灯)?？
傅阙帅立： '增加一个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 ...

曲江区18467101961： VB中怎么控制电灯点亮吗 - ？
傅阙帅立： 是控制实物电灯还是程序中的电灯?控制实物电灯:计算机上需要安装一块开关量输出卡,将其线路与电灯和继电器、电源相连接,对对其编程.程序模拟控制电灯?实质是程序控制绘制图形.

曲江区18467101961： VB6.0里怎么做开关和指示灯 - ？
傅阙帅立： 实际就是图片更换,用浅色灯图片作为熄灭指示灯,用鲜艳深色等图片做为点亮指示灯 select case power case 0 set image1.picture=loadpicture(＂c:\abc\熄灭.jpg＂) case 1 set image1.picture=loadpicture(＂c:\abc\亮度1.jpg＂) case 2 set image1.picture=loadpicture(＂c:\abc\亮度2.jpg＂) case3 ...... case n set image1.picture=loadpicture(＂c:\abc\点亮n.jpg＂) end select

曲江区18467101961： 怎样在vb中按钮下去添加按钮指示灯 - ？
傅阙帅立： 你这个指示灯是要常亮的(就是按了Command5后它就固定变为绿色,除非再次改变)还是随按钮的动作变色的(按下去是绿色,弹起来后是红色)?如果是常亮的,那么你应该把Shape2.FillColor = vbGreen这一句移到它下下一行的End If的下...

曲江区18467101961： vb中怎么使相应的输出对应相应的指示灯亮? - ？
傅阙帅立： 如果是模拟板电路,需要通过串口,给模拟发指令来完成任务.vb6可以通过mscomm控件来实现,具体用法你自己去百度.

曲江区18467101961： 利用VB编写交通信号灯程序 - ？
傅阙帅立： 一个按钮控制,在一个灯上显示三种状态,进行切换,供参考: 所以时间你自己得修改 Option Explicit Dim a As Byte Private Sub Command1_Click() a = a + 1 If a = 1 Then Shape1.FillColor = vbRed ElseIf a = 2 Then Shape1.FillColor = vbYellow ...

曲江区18467101961： VB 开关灯问题 - ？
傅阙帅立： 1,首先在 通用 部分申明一下state 这个变量为布尔型,以便全局调用. 2,应把if 中的state=false 拿出来.代码如下: Dim state As Boolean Private Sub Command1_Click() If state = False Then Shape1.FillColor = vbWhite state = True Else Shape1.FillColor = vblack state = False End If End Sub Private Sub Form_Load() state = False End Sub

曲江区18467101961： 用VB做交通信号灯 - ？
傅阙帅立： 修改了下,加一段这个代码:(我这里全用shape代替label了,要用的话就替换下好了···呵呵··) private sub shape1_click() tiemr1.enabled=true end sub private sub shape2_click() i=14 end sub 不知道上面的红绿灯怎么会用label的···...