显示/隐藏文本框，如果组合框是否为空

Question

首先，我想感谢每一个回应我之前提问的人， 我有一个组合框(列表(和一个文本框(key1(，但我想启用文本框 IF 组合框不为空，我试图通过此代码执行此操作

Private Sub TextBox1_Change()
If IsNullOrEmpty(ComboBox1.Text) Then
TextBox1.Visible = False
TextBox1.Enabled = False

Else
TextBox1.Visible = True
TextBox1.Enabled = True
End If

End Sub

但结果总是文本框 1 被禁用，即使我从列表或组合框中进行选择<>null

Answer 1

这比你做的要简单。

相反，请测试 ComboBox1 的文本属性的长度是否大于 0。这将为您提供真/假的布尔值。然后，可以使用该布尔结果在一行中设置任何其他布尔值属性(如Enabled或Visible属性(。

另外，您需要将其放在ComboBox1的Change事件上，而不是TextBox1。

Private Sub ComboBox1_Change()
TextBox1.Enabled = (Len(ComboBox1.Text)>0)
End Sub

或

Private Sub ComboBox1_Change()
TextBox1.Visible = (Len(ComboBox1.Text)>0)
End Sub