重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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