求一个VB开灯关灯的代码

来源：百度知道 编辑：UC知道 时间：2024/05/16 23:28:48
很简单的那种.
下面两个按钮,左边开的,右边关的.点下开的,就可以看到上边画的一个灯的样子变红色,点下关的,灯变成黑色.

注:点击按钮后,按钮要求下陷.

其实还有个更简单的方法。
放2个按钮，一个显示开，一个显示关。
在放2个图片，一个是开开的灯的样子，另一个是关了的灯的样子
把2个图片重叠起来。下面是按钮的代码
Private Sub Command1_Click()
Command1.Caption = "开灯"
Picture1.Visible = True
Picture2.Visible = False
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Command2.Caption = "关灯"
Picture2.Visible = True
Picture1.Visible = False
Command2.Enabled = False
Command1.Enabled = True
End Sub

添加 ms forms 2.0 object library到工具箱中,其中的Togglebutton就是你要求的那种按钮.

在窗体中添加ToggleButton1,ToggleButton2和shape1

Private Sub Form_Load()
ToggleButton1.Caption = "开"
ToggleButton2.Caption = "关"
Shape1.Shape = 3
Shape1.FillColor = vbBlack
End Sub

Private Sub ToggleButton1_Click()
Shape1.FillColor = vbRed
End Sub

Private Sub ToggleButton2_Click()
Shape1.FillColor = vbBlack
End Sub<