在vbNewLine上防止字符数增加2

Question

我在文本框中遇到字符数问题。

If e.KeyChar = ChrW(13) Then tsCount.Text = "Character Count: " & tbText.Text.Count - 2

基本上我想在用户在文本框中创建新行时防止字符数增加2。我已尝试过上面的代码，但确实没有用。

此外，在我的程序中，用户无法使用文本框中的任何文本创建新行 以下代码：

If tbText.Text = String.Empty And e.KeyChar = ChrW(13) Then e.Handled = True

tsCount是一个标签，tbText是我的文本框。是否有可能通过上升2来阻止它？

Answer 1

在执行长度测量之前，您可以使用String.Replace(String, String)删除所有换行符。

Dim newText As String = tbText.Text.Replace(vbNewLine, String.Empty)
tsCount.Text = newText.Count