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

发布网友发布时间：2022-04-19 22:36

我来回答

共5个回答

热心网友时间：2022-04-20 00:06

可使用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

效果：

热心网友时间：2022-04-20 01:24

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

热心网友时间：2022-04-20 02:58

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

热心网友时间：2022-04-20 04:50

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

热心网友时间：2022-04-20 06:58

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