FastColoredTextbox問題滾動文字和定位插入符號

Question

這個問題是關於擴展控制：FastColoredTextbox這裏：http://www.codeproject.com/Articles/161871/Fast-Colored-TextBox-for-syntax-highlighting

我試圖自動向下滾動文本，並把文本光標的最後一個字符附加的文本（我認爲文本屬性的總長度）。

文本滾動問題

這是工作的自動文本滾動：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     FastColoredTextBox1.Text = str 
     FastColoredTextBox1.ScrollLeft() 
     FastColoredTextBox1.Navigate(FastColoredTextBox1.Lines.Count - 1) 
    End Sub 

...但我想讓它更通用，這不工作：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    FastColoredTextBox1.Text = str 
End Sub 


Private Sub FastColoredTextBox1_TextChanged(sender As Object, e As FastColoredTextBoxNS.TextChangedEventArgs) Handles FastColoredTextBox1.TextChanged 
    sender.ScrollLeft() 
    sender.Navigate(FastColoredTextBox1.Lines.Count - 1) 
End Sub 

任何錯誤或異常，只是不會工作，文本不滾動像在第一個例子。

鍵盤的光標位置問題

關於文本光標，我已經試過，但沒有工作過：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    FastColoredTextBox1.Text = str 
    FastColoredTextBox1.SelectionStart = FastColoredTextBox1.Text.Length 
End Sub 

任何錯誤或異常，只是不工作。

UPDATE

試過@ebyrob解決方案，但不起作用，它不會滾動下來。

Imports FastColoredTextBoxNS 

Public Class Form1 

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     Dim str As String = String.Empty 
     For x As Int32 = 1 To 1000 : str += vbNewLine & x : Next 
     FastColoredTextBox1.Text = str 
    End Sub 

    Private Sub FastColoredTextBox1_TextChanged(sender As Object, e As TextChangedEventArgs) Handles FastColoredTextBox1.TextChanged 
     GoEnd() 
    End Sub 

    Public Sub GoEnd() 
     If FastColoredTextBox1.Lines.Count > 0 Then 
      FastColoredTextBox1.Selection.Start = New Place(FastColoredTextBox1.Lines(FastColoredTextBox1.Lines.Count - 1).Count, FastColoredTextBox1.Lines.Count - 1) 
     Else 
      FastColoredTextBox1.Selection.Start = New Place(0, 0) 
     End If 
     FastColoredTextBox1.DoCaretVisible() 
    End Sub 

End Class 

更新兩個

的@ebyrob代碼工作只有當我追加文本後稱之爲 「GoEnd」 一如既往，像這樣的例子：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    Dim str As String = String.Empty 
    For x As Int32 = 1 To 1000 : str += vbNewLine & x : Next 
    FastColoredTextBox1.Text = str 
    GoEnd() 
End Sub 

這是相同的我評論過的第一個問題（TextChanged事件沒有按預期工作）的問題，我需要使其效率和通用，我認爲控件的「TextChanged」事件將是正確的事件把「GoEnd（）」，但肯定不是。

我不想讓這個永遠

1. Add text 
2. Call GoEnd 
3. Add more text 
4. Call again GoEnd 

我wan't把「GoEnd」中贏得成功，當文本更改爲簡化事物的事件：

1. add text 
2. add more text 

UPDATE三

所有的問題都解決了，只是改變了事件名稱：

Public Class Form1 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Dim mytext As String = String.Empty 
     For x As Int32 = 1 To 1000 : mytext += vbNewLine & x : Next 
     FastColoredTextBox1.Text += mytext 
     FastColoredTextBox1.Focus() 
    End Sub 

Private Sub FastColoredTextBox1_TextChanged(sender As Object, e As FastColoredTextBoxNS.TextChangedEventArgs) _ 
    Handles FastColoredTextBox1.TextChangedDelayed 

    sender.ScrollLeft() 
    sender.Navigate(sender.Lines.Count - 1) 
    FastColoredTextBox1.SelectionStart = FastColoredTextBox1.Text.Length 

End Sub 

End Class 

Answer 1

顯然已經存在只是爲了這個操作的方法：

public void GoEnd() 
    { 
     if (lines.Count > 0) 
      Selection.Start = new Place(lines[lines.Count - 1].Count, 
             lines.Count - 1); 
     else 
      Selection.Start = new Place(0, 0); 

     DoCaretVisible(); 
    } 

注意你還需要：

Dim tbSender as FastColoredTextBox 
tbSender = DirectCast(sender, FastColoredTextBox) 
tbSender.Text = str 
tbSender.GoEnd() 
' ... 

最後，我建議：

Option Explicit 

幾乎所有的VB代碼。

編輯：測試控制之後，延遲活動的工作

FastColoredTextBox1.TextChangedDelayed += FastColoredTextBox1_TextChanged; 

注：這意味着每個發射事件的默認100毫秒的延遲。