2011-11-02 313 views
0

我使用Fileystemwatcher观察网络共享上的某个文件夹,并且不想计算文本框中的行数。VB.NET计算文本框中的行数

我有2个richtextboxes,第一个将显示行号,第二个显示更改/删除/重命名文件。

我能够显示标签中的行总数,但也想显示在richtextbox中的行数,但问题是它将数字添加到当前,它需要添加数字在一个新队。

希望图像能解释。

example image

Private Sub textFolderActiviteit_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textFolderActiviteit.TextChanged 
    textFolderActiviteit.SelectionStart = textFolderActiviteit.Text.Length 
    textFolderActiviteit.SelectionLength = 0 
    textFolderActiviteit.ScrollToCaret() 
    textFolderActiviteit.Focus() 
    Dim currentLineIndex As Integer = textFolderActiviteit.GetLineFromCharIndex(textFolderActiviteit.SelectionStart) 
    Me.Label2.Text = String.Format("{0}", currentLineIndex + 1) 
    Me.textLineCount.Text = String.Format("{0}", currentLineIndex + 1 & vbCrLf) 
End Sub 

Private Sub textLineCount_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textLineCount.TextChanged 
    textLineCount.SelectionStart = textLineCount.Text.Length 
    textLineCount.SelectionLength = 0 
    textLineCount.ScrollToCaret() 
    textLineCount.Focus() 
End Sub 

回答

0

也许我误解的问题,但不能你只是把VbCrlf行号之前?

Me.textLineCount.Text = String.Format("{0}", vbCrLf & (currentLineIndex + 1).ToString()) 
+0

不工作,它仍然计数而不是添加1,2,3,4,5 – PandaNL

+0

所以你不想要1,2,3,4 ...你想1,2,4 ,8,16?或者是什么? – N0Alias

+0

是的,我不想跟进,但看看图像只是计数,而不是把新的行号放在一个新的行。 – PandaNL