一行代码不解,高手指教!

[kkcncry]

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim count, i As Integer

For i = 0 To TextBox1.Text.Length() - 1
If TextBox1.Text.Substring(i, 1) = vbCr Then
count += 1
i += 1 <-----------该句代码有必要吗? '解释说是跳过换行符
End If
Next i
MsgBox(count) 代码功能实现计算一个文本框中文本的行数~
End Sub

[herodraw]

没用的把

[daisi]

应该没有用

[美福种田伯]

不能加的吧，加了不会出错吗？

[g555]

有用，就是跳过换行符

[huangwenfeng]

作用是跳过换行的那个字符，但最后出来的行数不对，应加上
If TextBox1.Text.Length() > 0 Then
count = count + 1
End If

[g555]

还是这句快速
count=TextBox1.Lines.GetLength(0)

[midy]

有用的 就是你 写的 “跳过换行符”

[nic7968]

：）

[huangyiiiiii]

就是让i加1啊 跳过了后面一个字符 直接处理后面的后面那个字符

[hamadou]

为什么呢？
因为在多行的textbox的text中，换行符是占两位的。所以要跳过。不加1就不行，其实就相当于+2了啊。

[wangyaqin123]

是跳过换行符

[DotNet灵魂]

这么多人，讲明白了，不用我罗嗦了吧