![\"RichTextBox-Element](\"..\/fileadmin\/_temp_\/2020_01\/pic_204_001.png\")
<\/p>\nDie beiden Steuer-elemente TextBox und TextBlock reichen für die Darstellung einfacher Texte aus. Wenn die Texte jedoch formatiert oder sogar strukturiert dargestellt werden sollen, brauchen wir eine Alternative. Im Artikel “FlowDocument-Elemente mit XAML” haben Sie bereits das FlowDocument-Element kennen gelernt, das viele Möglichkeiten bietet einschließlich Absätze, Inline-Formatierungen, Listen, Tabellen und Abbildungen. Nun wollen wir uns ansehen, wie uns das RichTextBox-Steuerelement dabei unterstützen kann, diese Art von Dokumenten zu bearbeiten.<\/b><\/p>\n
FlowDocument als Inhalt von RichTextBox-Steuerelementen<\/b><\/p>\n
RichTextBox<\/b>-Steuerelemente enthalten immer ein FlowDocument<\/b>-Element als Inhalt. Wenn Sie also Text in ein solches Steuerlement eingeben, dann wird dieser Text im Hintergrund als Inhalt eines FlowDocument<\/b>-Elements gespeichert.<\/p>\n
Ein FlowDocument<\/b>, das haben wir bereits im Artikel FlowDocument-Elemente mit XAML <\/b>beschrieben, ist im Prinzip ein XML-Dokument, das sowohl den Inhalt als auch die Formatierungen und die Strukturierung des Dokuments enthält.<\/p>\n
Wir wollen ein Fenster erzeugen, dass in einem Grid ein Label und ein RichTextBox<\/b>-Steuerelement enthält. Dieses RichTextBox<\/b>-Element soll den Inhalt eines der FlowDocument<\/b>-Elemente, die wir im oben genannten Artikel erzeugt haben, darstellen (siehe Bild 1). Dazu nutzen wir den folgenden Code:<\/p>\n
<\/p>\n
Bild 1: RichTextBox-Element mit formatiertem Text, der sich aber nicht formatieren lässt<\/span><\/b><\/p>\n Wir haben hier direkt den Beispielcode aus dem Artikel FlowDocument-Elemente mit XAML <\/b>(www.datenbankentwickler.net\/203<\/b>) in den Code integriert, damit wir direkt Text zum Herumprobieren haben. Im Artikel FlowDocument-Elemente mit VB <\/b>(www.datenbankentwickler.net\/210<\/b>) zeigen wir, wie Sie FlowDocument<\/b>-Elemente per VB mit Inhalt füllen, diese auslesen oder bearbeiten.<\/p>\n Leider zeigt das RichTextBox<\/b>-Element in der aktuellen Konfiguration keine Steuer-elemente zum Formatieren des Textes an – zunächst keine offensichtlichen, aber auch keine über das Kontextmenü. Außerdem sehen wir in der Abbildung auch direkt, dass sich das RichTextBox<\/b>-Element deutlich von den Steuerelementen zur Anzeige von FlowDocument<\/b>-Elementen unterscheidet. Der Inhalt wird immer in einer Spalte angezeigt, es gibt keine Zoom- und auch keine Suchfunktion.<\/p>\n Wir haben es also mit einem Steuerelement rein zum Bearbeiten des Inhalts zu tun. Damit Sie den enthaltenen Text auch in gewohnter Form bearbeiten können, fügen wir im Artikel Format-Menü für die RichTextBox <\/b>(www.datenbankentwickler.net\/205<\/b>) ein passendes Menü hinzu.<\/p>\n RichTextBox-Steuerelement leeren<\/b><\/p>\n Wenn Sie mit einem leeren RichTextBox<\/b>-Steuerelement fortfahren wollen, können Sie das schnell erledigen, indem Sie den kompletten Inhalt markieren (mit Strg + A<\/b>) und dann die Entf<\/b>-Taste betätigen. Sie finden dann ein leeres RichTextBox<\/b>-Steuerelement vor (siehe Bild 2).<\/p>\n Bild 2: Geleertes RichTextBox-Steuerelement<\/span><\/b><\/p>\n Kompletten Inhalt markieren<\/b><\/p>\n Wir wollen zeigen, wie Sie per VB den kompletten Inhalt des RichTextBox<\/b>-Steuerelements markieren. Dazu fügen wir eine erste Schaltfläche oberhalb des RichTextBox<\/b>-Steuerelements hinzu, die wir wie folgt in ein StackPanel<\/b>-Element mit horizontaler Ausrichtung einschließen:<\/p>\n Die Ereignismethode enthält den Aufruf der SelectAll<\/b>-Methode des RichTextBox<\/b>-Steuerelements sowie die Anweisung zum Verschieben des Fokus auf dieses Steuer-element (siehe Bild 3).<\/p>\n Bild 3: Markieren des vollständigen Inhalts des RichTextBox-Steuerelements<\/span><\/b><\/p>\n Die SelectAll<\/b>-Methode reicht zwar aus, um den Inhalt des RichTextBox<\/b>-Steuerelements zu markieren, aber solange das Steuer-element nicht den Fokus hat, wird die Markierung nicht angezeigt. Daher müssen wir noch den Fokus auf das RichTextBox<\/b>-Element verschieben.<\/p>\n Text ausgeben<\/b><\/p>\n Um den vollständigen Text auszugeben, müssen wir einen etwas anderen Weg gehen als etwa bei einem Textfeld. Hier reicht es, über das Text<\/b>-Attribut auf den Inhalt zuzugreifen.<\/p>\n Dazu deklarieren wir ein Text-Range<\/b>-Objekt namens –objTextRange <\/b>und füllen dieses mit einem neuen Objekt dieses Typs mit den Konstruktor-Parametern rtb.Document.ContentStart <\/b>und rtb.Document.ContentEnd<\/b>. Dann geben wir den Inhalt von objTextRange <\/b>über die Text<\/b>-Eigenschaft in einem Meldungsfenster aus:<\/p>\n Das Ergebnis zeigt Bild 4. Hier ist zu erkennen, dass die Ausgabe ohne Formatierungen geliefert wird.<\/p>\n Bild 4: Ausgabe des Inhalts des RichTextBox-Steuerelements<\/span><\/b><\/p>\n Markierten Text auslesen<\/b><\/p>\n Den aktuell markierten Text ermitteln wir mit der Selection<\/b>-Eigenschaft des RichTextBox<\/b>-Steuerelements. Dieses bietet mit der Text<\/b>-Eigenschaft die Möglichkeit, den enthaltenen Text auszulesen. Die folgende Methode gibt den markierten Text aus:<\/p>\n Auf Änderung der Markierung reagieren<\/b><\/p>\n Manchmal will man auf das Setzen oder Ändern einer Markierung reagieren. Dazu gibt es ein passendes Ereignis, das wir durch Setzen des Attributs SelectionChanged <\/b>auf den Namen der auszuführenden Ereignismethode aktivieren:<\/p>\n Das Selection<\/b>-Ereignis feuert mehrmals, wenn Sie beispielsweise mit der Maus einen Text markieren und dazu an einer Stelle die Maustaste herunterdrücken und dann den Mauszeiger bis zum Ende der Markierung ziehen oder die Markierung mithilfe von Tastaturbefehlen erweitern. Daher geben wir den aktuell markierten Text im folgenden Beispiel in einem Textfeld aus:<\/p>\n Text an Markierung einfügen<\/b><\/p>\n Die folgende Schaltfläche soll eine Methode aufrufen, die den Text aus dem Textfeld an der Stelle der aktuellen Markierung im RichTextBox<\/b>-Steuerelement einfügen soll:<\/p>\n Die dadurch aufgerufene Ereignismethode erledigt das durch Einstellen des mit Selection.Text <\/b>ermittelten Bereichs auf den Inhalt des Textfeldes:<\/p>\n Kompletten Inhalt durch neuen Text ersetzen<\/b><\/p>\n Wenn Sie den kompletten aktuellen Inhalt des RichTextBox<\/b>-Steuerelements durch einen anderen Text ersetzen wollen, legen Sie den zu ersetzenden Teil mit einem TextRange<\/b>-Element fest. Dieses füttern wir beim Initialisieren mit der Start- und der Endmarkierung des enthaltenen Dokuments und weisen dann der Text<\/b>-Eigenschaft des TextRange<\/b>-Objekts den einzusetzenden Text zu:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><Grid>\r\n <Grid.RowDefinitions>\r\n <RowDefinition Height=\"Auto\"><\/RowDefinition>\r\n <RowDefinition Height=\"*\"><\/RowDefinition>\r\n <\/Grid.RowDefinitions>\r\n <Label Grid.Row=\"0\" Margin=\"5\">RichTextBox-Steuerelement mit vorgegebenem Inhalt:<\/Label>\r\n <RichTextBox Grid.Row=\"1\" Margin=\"5\">\r\n <FlowDocument IsOptimalParagraphEnabled=\"True\" IsHyphenationEnabled=\"True\" TextAlignment=\"Left\">\r\n <Paragraph FontSize=\"16\" FontFamily=\"Arial\" FontWeight=\"Bold\">Zwischenüberschrift<\/Paragraph>\r\n ...\r\n <\/FlowDocument>\r\n <\/RichTextBox>\r\n<\/Grid><\/pre>\n
![\"Geleertes](\"..\/fileadmin\/_temp_\/2020_01\/pic_204_002.png\")
<\/p>\n<StackPanel Orientation=\"Horizontal\" Grid.Row=\"1\">\r\n <Button x:Name=\"btnAllesMarkieren\" Click=\"BtnAllesMarkieren_Click\">Alles markieren<\/Button>\r\n<\/StackPanel><\/pre>\n
![\"Markieren](\"..\/fileadmin\/_temp_\/2020_01\/pic_204_003.png\")
<\/p>\nPrivate Sub <\/span>BtnAllesMarkieren_Click(...)\r\n rtb.SelectAll()\r\n rtb.Focus()\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>BtnInhaltAusgeben_Click(sender As Object<\/span>, e As <\/span>RoutedEventArgs)\r\n Dim <\/span>objTextRange As <\/span>TextRange\r\n objTextRange = New<\/span> TextRange(rtb.Document.ContentStart, rtb.Document.ContentEnd)\r\n MessageBox.Show(objTextRange.Text)\r\nEnd Sub<\/span><\/pre>\n![\"Ausgabe](\"..\/fileadmin\/_temp_\/2020_01\/pic_204_004.png\")
<\/p>\nPrivate Sub <\/span>BtnMarkierterText_Click(sender As Object<\/span>, e As <\/span>RoutedEventArgs)\r\n Dim <\/span>strSelection As String<\/span>\r\n strSelection = rtb.Selection.Text\r\n MessageBox.Show(strSelection)\r\nEnd Sub<\/span><\/pre>\n<RichTextBox x:Name=\"rtb\" ... SelectionChanged=\"Rtb_SelectionChanged\"><\/pre>\n
Private Sub <\/span>Rtb_SelectionChanged(sender As Object<\/span>, e As <\/span>RoutedEventArgs)\r\n Dim <\/span>strSelection As String<\/span>\r\n strSelection = rtb.Selection.Text\r\n txt.Text = strSelection\r\nEnd Sub<\/span><\/pre>\n<Button x:Name=\"btnTextEinfuegen\" Click=\"BtnTextEinfuegen_Click\">Text an Markierung einfügen:<\/Button>\r\n<TextBox x:Name=\"txtEinfuegen\" Text=\"Einfügen\"><\/TextBox><\/pre>\n
Private Sub <\/span>BtnTextEinfuegen_Click(sender As Object<\/span>, e As <\/span>RoutedEventArgs)\r\n Dim <\/span>strText As String<\/span>\r\n strText = txtEinfuegen.Text\r\n rtb.Selection.Text = strText\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>BtnKomplettenTextErsetzen_Click(sender As Object<\/span>, e As <\/span>RoutedEventArgs)\r\n Dim <\/span>objTextRange As <\/span>TextRange\r\n Dim <\/span>strText As String<\/span>\r\n strText = txtEinfuegen.Text\r\n objTextRange = New<\/span> TextRange(rtb.Document.ContentStart, rtb.Document.ContentEnd)\r\n objTextRange.Text = strText\r\nEnd Sub<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t