Question

首先，我要感谢所有回答我上一个问题的人，我有一个组合框（列表）和一个文本框（key1），但是如果组合框不为空，我想启用文本框，我试图通过此代码来做到这一点

  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

但结果始终是textbox1被禁用，即使我从列表或组合框中选择

Answer 1

这比您做的要简单。

相反，测试ComboBox1的text属性的长度是否大于0。这将为您提供布尔值True / False。然后，您可以使用该布尔结果在一行中全部设置任何其他布尔值属性（例如Enabled或Visible属性）。

此外，您需要将其放在Change的{{1}}事件上，而不是ComboBox1上。

TextBox1

或

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

显示/隐藏文本框（如果comboxbox为null）

1 个答案: