vb按钮检测

来源：百度知道 编辑：UC知道 时间：2024/06/23 01:34:48
点击检测代码后进入
Private Sub Command3_Click()
If Command2.Enabled = False And Command1.Enabled = False Then Form3.Show
Me.Hide
Else
MsgBox "错误", , "提示" End If
End Sub

另外做成当按钮1是灰色时候按钮2显示
代码帮我修改下哪错了 如果条件不成立就提示错误

'点按钮1时按钮1成灰色，同时按钮2显示
Private Sub Command1_Click()
Command1.Enabled = False
Command2.Enabled = True
End Sub

'点按钮2时按钮2成灰色，同时按钮3显示
Private Sub Command2_Click()
Command2.Enabled = False
Command3.Enabled = True
End Sub

'点按钮3时窗体Form3显示
Private Sub Command3_Click()
If Command2.Enabled = False And Command1.Enabled = False Then
Form3.Show
Me.Hide
Else
MsgBox "错误", , "提示"
End If
End Sub

'启动时按钮初始化
Private Sub Form_Load()
Command1.Enabled = True
Command3.Enabled = False
Command2.Enabled = False
End Sub

Private Sub Command3_Click()
If Command2.Enabled = False And Command1.Enabled = False Then

Form3.Show
Me.Hide
Else
MsgBox "错误", , "提示"

End If
End Sub

这样就行了

Private Sub Command3_Click()
If Command2.Enabled = False And Command