13518219792
可使用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里用GDI+画指示灯其实很简单，稍微查一点资料就能找到gdi+语句的用法的。用GDI+可以画很多种图形，圆形半圆形自然不在话下。如果有很多指示灯在一起的话，改起来也很方便。
当然如果嫌GDI+麻烦可以用label控件，把autosize关掉，将尺寸调小一点，然后利用backcolor调背景颜色作为指示灯，只不过是方形的。
如果指示灯很多而且频繁换颜色的话建议用GDI+，因为GDI+效率高一些
下面这个希望可以帮到你~交通灯
实例说明在本实例中，我们将制作一个具有交通灯效果的应用程序。程序运行后，交通灯不断地变化，可以通过按钮运行或停止程序。程序运行结果如图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■ 运行程序单击菜单"调试|启动"或单击 图标运行程序。
