怎么使控件不可用

Question

vb控件不可用

Answer 1

有的按钮是有 COMMAND1.Enabled=False  这样的用法
最好是在代码中进行识别
Private Sub Command1_Click()
if hour(now)>=9 then exit sub
****End Sub

Answer 2

楼上的办法好，还可以进一步：Private Sub Command1_Click()
If Hour(Now)>= 9 Then 
    Command1.Enabled = False
    Exit Sub
End If
'****
End Sub
当然，也可以使用定时长一些的 Timer 控件：
Private Sub Timer1_Timer()
    If TimeValue(Now) > "9:00" Then
        Command1.Enabled = False
        Timer1.Enabled = False
    End If
End Sub