怎样实现在所有文本框内都输入后命令按钮才激活

castlerain

我想在8个文本框都不是空的时候命令按钮submit才可以使用，下面的语句是不是有问题啊，一点反应都没有，跟不存在似的

If TextBox1.Text = "" Or TextBox2.Text = "" Or _
   TextBox3.Text = "" Or TextBox4.Text = "" Or _
   TextBox5.Text = "" Or TextBox6.Text = "" Or _
   TextBox7.Text = "" Or TextBox8.Text = "" Then
   Me.submit.Enabled = False
Else
   Me.submit.Enabled = True
End If

Moneky

你需要在每个文本框的Change事件中调用上面的代码

上面的代码可以写成

Me.submit.Enabled =（TextBox1.Text <> "" and TextBox2.Text <> "" and _
   TextBox3.Text <> "" and TextBox4.Text <> "" and _
   TextBox5.Text <> "" and TextBox6.Text <> "" and _
   TextBox7.Text <> "" and TextBox8.Text <> "" ）

疏忽了，应该是AND

[此贴子已经被作者于2008-8-8 14:46:41编辑过]

fsyyyy

or 是或者的关系，改成 and 即可（并列的关系）。

castlerain

没个框内都写个吗？为什么阿，能稍微解释下马，谢谢你。

jymao

Private Sub UserForm_Initialize()
ch
End Sub

Private Sub TextBox1_Change()
ch
End Sub
Sub ch()
Dim c As Control
For Each c In Me.Controls
    If TypeName(c) = "TextBox" Then
        If Trim(c.Text) = "" Then
            Me.CommandButton1.Enabled = False
            Exit Sub
        End If
    End If
Next
Me.CommandButton1.Enabled = True
End Sub

每个TEXTBOX都在Change事件里调用ch

[em03][em02]

[此贴子已经被作者于2008-8-8 11:03:41编辑过]

zldccmx

QUOTE:

以下是引用castlerain在2008-8-8 9:06:31的发言：

我想在8个文本框都不是空的时候命令按钮submit才可以使用，下面的语句是不是有问题啊，一点反应都没有，跟不存在似的

If TextBox1.Text = "" Or TextBox2.Text = "" Or _
   TextBox3.Text = "" Or TextBox4.Text = "" Or _
   TextBox5.Text = "" Or TextBox6.Text = "" Or _
   TextBox7.Text = "" Or TextBox8.Text = "" Then
   Me.submit.Enabled = False
Else
   Me.submit.Enabled = True
End If

QUOTE:

使用窗体的　MouseMove　事件

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'只要有一个文本框无内容，提交按钮就不起作用
    For Each TB In Me.Controls
        If TB.Name Like "TextBox*" Then
            If TB.Text = "" Then
                Me.submit.Enabled = 0
                Exit Sub
            Else
                Me.submit.Enabled = 1
            End If
        End If
    Next
End Sub

另外，如果是要求　" 所有本本框全为空时，提交按钮失效，''只要有一个文本框有内容，提交按钮就起作用　"
则这样：

'Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
''所有本本框全为空时，提交按钮失效
''只要有一个文本框有内容，提交按钮就起作用
'    For Each TB In Me.Controls
'        If TB.Name Like "TextBox*" Then
'            If TB.Text <> "" Then
'                Me.submit.Enabled = 1
'                Exit Sub
'            Else
'                Me.submit.Enabled = 0
'            End If
'        End If
'    Next
'End Sub

zHsuD0zk.rar (8.47 KB, 下载次数: 169)

2008-8-8 11:25 上传

点击文件名下载附件
怎样实现在所有文本框内都输入后命令按钮才激活

jymao

楼上这个老师,如果用户一直在用TAB键输入呢?呵呵...

liechun1983

又学到一招

x190925141

高人如云，
受益匪浅！

jdmlw

是显示了，但是无法退出，请在指教！谢谢！