vb.net信号灯控件 vb交通信号灯模拟

我想用vb 程序里面添加一个指示灯，请问各位大侠该用什么控件？本人菜鸟，请详细说明

shape做指示灯方法，我在旁边注解了说明。

创新互联公司是一家专业提供恩施土家企业网站建设,专注与成都做网站、网站建设、外贸营销网站建设、html5、小程序制作等业务。10年已为恩施土家众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。

建立表单添加控件 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

实在不难，就是不知道你写了代码没有？

答案补充：

Dim xuhao As Integer

Const wenjianjia = "" '自己写好了

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

xuhao = xuhao + 1

If xuhao = 4 Then xuhao = 1

Picture1.Picture = LoadPicture(wenjianjia "\" xuhao ".ico")

End Sub

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

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

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

网站栏目：vb.net信号灯控件 vb交通信号灯模拟
当前路径：http://cdiso.cn/article/dodpidp.html