Question

我深入（为了娱乐和学习）编程，我有问题，我知道如何用这个简单的代码计算文本框中的行

Label1.Text = Textbox1.Lines.Count

但是当我粘贴一些多行文本时，这段代码不计算行数，它将它计为一行。是的，还有一个问题就是让线路计数器生效，我试过了

    Private Sub Textbox1_TextChanged(sender As Object, e As EventArgs) Handles Page_Names.TextChanged
Label1.Text = Textbox1.Lines.Count
End Sub

但这会重现很多。

我要粘贴的“多行”文字示例

email1@gmail.com
email2@gmail.com
email3@gmail.com
email4@gmail.com
email5@gmail.com
email6@gmail.com
email7@gmail.com
email8@gmail.com
email9@gmail.com
email10@gmail.com
email11@gmail.com

对不起愚蠢的问题我很新，抱歉英文不好：）

提前致谢！

Answer 1

由于声誉较低，我无法在添加评论部分回答，因此将其发布在此处。您的问题的解决方案是使用文本框属性。将AcceptReturn属性更改为文本框属性的true。

多=真 AcceptReturn =真然后你可以做任何事来计算文本框的行数。就像添加一个按钮，一个标签，然后添加按钮点击事件等代码一样。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Label1.Text = TextBox1.Lines.Count
End Sub

Answer 2

你处理一个不同的TextBox的TextChanged事件，你想要计算它的行。

试试这个：

Private Sub Textbox1_TextChanged(sender As Object, e As EventArgs) Handles Textbox1.TextChanged
Label1.Text = Textbox1.Lines.Count
End Sub

文本框行计数器（更复杂）VB.NET

2 个答案: