自己新建一个文本框和三个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
If Len(Text1) = 0 Then
是否可以改为 if text1.text=""then,
////////////////////////////////////////////////////////
当然可以了,你不会自己试一下。