Question

VB text没有信息时command按钮无效

如果我有7个text，只要有一个text里没有数据，那么command按钮无效
如果text里全都有有数据，那么command就可以用了，该怎么实现啊?

Answer 1

一个笨办法是：
Private sub command_click()
If trim(text1.text) = "" or text2.text = "" or trim(text3.text) = "" or text4.text = "" or _
trim(text5.text) = "" or text6.text = "" or trim(text7.text) = "" then
msgbox "有空项"
Else
……'这里是你的函数
End sub
跟二楼那种设定i参数的思路是一样的。写全了保险。^o^
楼上那种用Timer 的方法可以采纳，让软件自己刷，不过我不强烈推荐。软件自己测，然后用Enabel属性我觉得麻烦，来个信息提示对用户比较有帮助。

Answer 2

将7个text定义为控件数组
首先设置command 的enable属性为false
然后在 text的change事件里判断
for i=0 to text.count-1
if trim(text(i).text)="" then
command1.enable=false
exit sub
else
command1.enable=true
end if
next i

Answer 3

尽可能简单的：
首先command的Enabled设成False，然后把7个text定义成一个控件数组，分别是Text1(0)~Text1(6)，然后写代码：
Private Sub Text1_Change(Index As Integer)
If Text1(Index).Text <> "" Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub

Answer 4

放一个 TIMER计时器。。复制以下代码
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
a = ""
If Text1.Text = "" Then a = "F": GoTo n
If Text2.Text = "" Then a = "F": GoTo n
If Text3.Text = "" Then a = "F": GoTo n
If Text4.Text = "" Then a = "F": GoTo n
If Text5.Text = "" Then a = "F": GoTo n
If Text6.Text = "" Then a = "F": GoTo n
If Text7.Text = "" Then a = "F": GoTo n
n:
If a = "F" Then
Command1.Enabled = False
Else
Command1.Enabled = True
End If
End Sub

Answer 5

private sub Timer1_Timer() '设计一个时钟控件
If text1.text <> "" and text2.text <> "" and text3.text <> "" and text4.text <> "" and text5.text <> "" and text6.text <> "" and text7.text <> "" Then
command1.Enabled=True
End If
End Sub