自己新建一个文本框和三个command控件Private Sub Form_Load()
If Len(Text1) = 0 Then
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
End IfEnd SubPrivate Sub Text1_Change()
If Len(Text1)0 Then
Command1.Enabled = True
Command2.Enabled = True
Comm...