Programmatically Insert Text into a RichTextBox : RichTextBox « Windows Presentation Foundation « VB.Net






Programmatically Insert Text into a RichTextBox

Programmatically Insert Text into a RichTextBox
   


<Window 
  x:Class="WpfApplication1.Window1"
  xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
  xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
  Title="Window1" Height="600" Width="800">
  <DockPanel>
    <StackPanel DockPanel.Dock="Bottom" Orientation="Horizontal">
      <TextBox x:Name="tbxInsertionText" Width="200" Margin="5,0" />
      <Button DockPanel.Dock="Bottom" Content="Insert" Click="btnInsert_Click"/>
    </StackPanel>
    <RichTextBox x:Name="rtbTextContent" />
  </DockPanel>
</Window>
//File:Window.xaml.vb
Imports System.Windows
Imports System.Windows.Documents
Imports System.Windows.Input

Namespace WpfApplication1
  Public Partial Class Window1
    Inherits Window
    Public Sub New()
      InitializeComponent()
    End Sub

    Private Sub btnInsert_Click(sender As Object, e As RoutedEventArgs)
      If String.IsNullOrEmpty(tbxInsertionText.Text) Then
        Return
      End If
      rtbTextContent.BeginChange()
      If rtbTextContent.Selection.Text <> String.Empty Then
        rtbTextContent.Selection.Text = String.Empty
      End If
      Dim tp As TextPointer = rtbTextContent.CaretPosition.GetPositionAtOffset(0, LogicalDirection.Forward)
      rtbTextContent.CaretPosition.InsertTextInRun(tbxInsertionText.Text)
      rtbTextContent.CaretPosition = tp
      rtbTextContent.EndChange()
      Keyboard.Focus(rtbTextContent)
    End Sub
  End Class
End Namespace

   
    
    
  








Related examples in the same category

1.Get selected text from RichTextBox by using RichTextBox.Selection.TextGet selected text from RichTextBox by using RichTextBox.Selection.Text
2.Get Caret Position in a RichTextBox by using RichTextBox.CaretPosition.GetPositionAtOffsetGet Caret Position in a RichTextBox by using RichTextBox.CaretPosition.GetPositionAtOffset
3.Get the content from the rich text box.Get the content from the rich text box.
4.Add / Remove TextChanged event for RichTextBoxAdd / Remove TextChanged event for RichTextBox
5.Clear any formatting applied to the text with TextRange.ClearAllProperties();Clear any formatting applied to the text with TextRange.ClearAllProperties();
6.Apply Syntax Highlighting in a Text ControlApply Syntax Highlighting in a Text Control
7.Select all text from RichTextBox and cutSelect all text from RichTextBox and cut
8.Use Application Command to edit RichTextBoxUse Application Command to edit RichTextBox
9.Load or Save the Content of a RichTextBoxLoad or Save the Content of a RichTextBox
10.Display a Password Entry Box and get the inputDisplay a Password Entry Box and get the input