Question

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

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

Answer 1

尽可能简单的：
首先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 2

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

Answer 3

一个笨办法是：
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 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

for i=text1.item.lboun to text1.item.uboun
if text1.item(i).text=empty then
command1.enable=false
else
command1.enable=true
end if
next