Question

最近，我一直试图让我的程序启用带有以下代码的组合框。请记住，文本框已启用多行。

If TextBox1.Text.Count > 1 Then
ComboBox1.Enabled = True
End If

一个问题是，当您在文本框的第一行按Enter而没有任何文本时，请键入，但不启用它。有没有办法使用RichTextBox解决这个问题？

基本上我想在第一行为空时禁止换行。

我试过了。

If TextBox1.Text = 0 Then
If vbNewLine = vbTrue Then
SendKeys.Send("{BS}")
End If
End If

Answer 1

你正在寻求创可贴，而是解决真正的问题：

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    ComboBox1.Enabled = TextBox1.Lines.Count > 0
End Sub

你也可以让创可贴工作：

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
    If TextBox1.Text = String.Empty And e.KeyChar = ChrW(13) Then e.Handled = True
End Sub

当文本框的第一行为空时，禁止vbNewLine

1 个答案: