Question

VB中关于command按钮单击先后次序不同，返回效果不同的功能实现

图中是关于三组command按钮的功能实现。图中已标出command按钮名称已标出，非别为c6，c7，，，c11.在第一幅图片中，单击c7和c11会显示出msgbox的对话框提示操作错误请重试。单击c9之后，c8的enable属性变为true，此时依次再点击c7和c11（这里要注意顺序，先c7后c11，如果顺序颠倒也会出现msgbox的错误提示）则会使c6和c10的enable属性则会显示为true。
当c6，c8，c10的enable属性全部为true时，此时如果单击c8也会弹出msgbox的对话框提示操作错误请重试，此时依次单击c10和c6（这里还是先单击c10再单击c6，如果顺序错误则会出现msgbox的错误提示）其enable属性则会显示为false。再单击c8其enable属性变为false。水平方向上这三组的enable属性任何时候都是相反的。

如果以上问题能解决，还有一个问题是最左边的提示灯会随着按钮的点击变成红色和黑色，在这个地方是怎么实现的，请不吝赐教。如果可以的话，我想实现图中黑的隔离开关和断路器开关也能和提示灯一样实现动态效果，即随着按钮的点击开关也能实现动态的关闭和断开，该如何做。
以上问题忘能用程序详细解释，在下不胜感激。





Answer 1

Private Sub Form_Load()
C6.Enabled = False
C8.Enabled = False
C10.Enabled = False
End Sub
Private Sub C6_Click()
If Not C10.Enabled Then
Shape1.FillColor = QBColor(12)
C6.Enabled = False
C7.Enabled = True
Else
MsgBox "操作错误，请重试", vbOKOnly + vbCritical, "电气主接线倒闸操作仿真模拟"
End If
End Sub
Private Sub C7_Click()
If Not C9.Enabled Then
Shape1.FillColor = QBColor(0)
C7.Enabled = False
C6.Enabled = True
Else
MsgBox "操作错误，请重试", vbOKOnly + vbCritical, "电气主接线倒闸操作仿真模拟"
End If
End Sub
Private Sub C8_Click()
If Not C6.Enabled And Not C10.Enabled Then
Shape2.FillColor = QBColor(12)
C8.Enabled = False
C9.Enabled = True
Else
MsgBox "操作错误，请重试", vbOKOnly + vbCritical, "电气主接线倒闸操作仿真模拟"
End If
End Sub
Private Sub C9_Click()
Shape2.FillColor = QBColor(0)
C8.Enabled = True
C9.Enabled = False
End Sub
Private Sub C10_Click()
Shape3.FillColor = QBColor(12)
C10.Enabled = False
C11.Enabled = True
End Sub
Private Sub C11_Click()
If Not C7.Enabled And Not C9.Enabled Then
Shape3.FillColor = QBColor(0)
C11.Enabled = False
C10.Enabled = True
Else
MsgBox "操作错误，请重试", vbOKOnly + vbCritical, "电气主接线倒闸操作仿真模拟"
End If
End Sub
功能已全部实现，望采纳

Answer 2

'----代码不写了，说下大致想法
举个例子，在按下c7时，你判断一下c9的Enabled属性，看c9是否被按下
同样按c11时，你就判断c7是否被按下
这个应该不难，只是情况比较多，多些判断条件，多调试一下应该可以出来
或者你设置几个boolean变量(6个-下或许不要这么多)，用来标识各个按钮状态，看能不能简化一点