WPF RICHTEXTBOX 自动删除文档头实现自动滚屏
Private Sub RichTextBox_TextChanged(sender As Object, e As TextChangedEventArgs) Handles richTextBox.TextChanged
button.Content = RichTextBox.Document.Blocks.Count
RichTextBox.ScrollToEnd()
If RichTextBox.Document.Blocks.LongCount > 20 Then
button1.Content = RichTextBox.Document.Blocks.LongCount
RichTextBox.Document.Blocks.Remove(RichTextBox.Document.Blocks.FirstBlock)
'RichTextBox.Document.ContentEnd.DeleteTextInRun(-50)
'button1.Content = RichTextBox.Document.Blocks.FirstBlock.ToString
End If
End Sub
还没找到按行删除的函数,那样更顺滑点。