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

来源:百度知道 编辑:UC知道 时间:2024/05/16 14:05:58

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

要简单,就使用shape控件,可以改变其填充颜色来指示。
要好看,就使用picture控件,改变其图片来指示不同的状态。

image和picture都行,都能放图片