vb.net窗口中指示灯的简单介绍

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

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

效果：

VB.NET里面用什么控件做指示灯比较好？请说明为优点。

VB.NET里用GDI+画指示灯其实很简单，稍微查一点资料就能找到gdi+语句的用法的。用GDI+可以画很多种图形，圆形半圆形自然不在话下。如果有很多指示灯在一起的话，改起来也很方便。

当然如果嫌GDI+麻烦可以用label控件，把autosize关掉，将尺寸调小一点，然后利用backcolor调背景颜色作为指示灯，只不过是方形的。

如果指示灯很多而且频繁换颜色的话建议用GDI+，因为GDI+效率高一些

用VB.NET编写一个交通灯的程序

下面这个希望可以帮到你~交通灯

实例说明在本实例中，我们将制作一个具有交通灯效果的应用程序。程序运行后，交通灯不断地变化，可以通过按钮运行或停止程序。程序运行结果如图88-1所示。技术要点l 不断变换图片l 不断更改时间间隔 type="text/javascript" type="text/javascript" src=" "

实现过程■ 新建项目打开Visual Studio.NET，选择"新建项目"，在项目类型窗口中选择"Visual Basic项目"，在模板窗口中选择"Windows应用程序"，在名称域中输入"Traffic"，然后选择保存路径。单击"确认"。■ 添加控件向当前窗体添加一个Timer控件，用于控制交通灯变换的时间；三个Picture控件，分别装入相应的图片；一个Button按钮，用于控制交通灯。属性保持默认值。■ 添加代码Dim vv As BooleanDim updirec As BooleanPrivate Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Clickvv = Timer1.Enabledvv = Not vvTimer1.Enabled = vvIf vv ThenCommand1.Text = "开 始"ElseCommand1.Text = "停 止"End IfEnd SubPrivate Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.TickStatic i As ShortSelect Case iCase 0Timer1.Interval = 3000picicon0.Visible = Truepicicon1.Visible = Falsepicicon2.Visible = Falsei = i + 1updirec = FalseCase 1Timer1.Interval = 1000picicon0.Visible = Falsepicicon1.Visible = Truepicicon2.Visible = False'Me.Icon = picicon(i).ImageIf updirec Theni = i - 1Elsei = i + 1End IfCase 2Timer1.Interval = 3000picicon0.Visible = Falsepicicon1.Visible = Falsepicicon2.Visible = Truei = i - 1updirec = TrueEnd SelectEnd Sub■ 运行程序单击菜单"调试|启动"或单击 图标运行程序。