自己新建一个文本框和三个command控件
Private Sub Form_Load()
If Len(Text1) = 0 Then
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
End If
End Sub
Private Sub Text1_Change()
If Len(Text1) <> 0 Then
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
End If
End Sub
设置按钮的visible属性 为false