防止字符數上升2在vbNewLine

我在文本框中的字符數有問題。防止字符數上升2在vbNewLine

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來防止它？

來源

2014-11-01 Greg

在Windows環境中，新行由兩個字符（Cr + Lf;回車+換行）組成。也看到這個問題：http://stackoverflow.com/questions/1552749/difference-between-cr-lf-lf-and-cr-line-break-types – Styxxy 2014-11-01 18:22:09

在執行長度測量之前，您可以使用String.Replace(String, String)刪除所有新行字符。

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

來源

2014-11-01 18:36:19

防止字符數上升2在vbNewLine

回答

相關問題