vb.net怎么画指示灯的简单介绍

如何把VB中的shape控件放在按钮之上，做按钮按下时的指示灯用。

shape是无句柄的弱控件，不能放在按钮上。但你何不利用按钮本身的功能用图片来做指示灯呢？绝对比用shape做的好看，而且更简单方便：

创新互联坚持“要么做到，要么别承诺”的工作理念，服务领域包括：网站制作、做网站、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的钟楼网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！

在属性窗口把按钮（比如Command1）的Style属性设为1（这点是关键）

然后在Picture属性和DownPicture属性中分别放入一张适当的图片，前者是按钮未点击时的背景图片，后者是点击时按钮的背景图片，你只要选择两张大小适中的图片（BMP、GIF或JPG格式的）分别表示灯亮和灯灭即可。连一句代码都不用，简单吧？

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

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

给你思路把：当汽车运动时，他的left和top和right(left+width)和bottom(top+height)碰到红绿灯的范围，就停止汽车运动的那个计时器，并将另一个计时器的时间设为延时秒数并开启，里面的代码是打开骑车运动的计时器。

实际就是图片更换，用浅色灯图片作为熄灭指示灯，用鲜艳深色等图片做为点亮指示灯

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

网站标题：vb.net怎么画指示灯的简单介绍
本文网址：http://azwzsj.com/article/ddodisi.html