Private Sub Form_Load()
Command1.Enabled = True '点击此按钮后,下面两个按钮才可用
Command2.Enabled = False
Command3.Enabled = False
End Sub
Private Sub Command1_Click()
Command2.Enabled = True
Command3.Enabled = True
End Sub
可以将所有控件属性enable设置成false。在使一个click事件将左右控件的enable设置成true。就可以了。
private sub form1_load()
command1.visible=true
command2.visible=false'既然不想让用户点,干脆就不让他看见了
end sub
private sub cmdStart_click()
command2.visible=true
command2.enabled=true
end sub
Sub Button_click
Me.enable=true
end sub
sub Form_Load
Me.Enable=false
end Sub