Hallo ,
ich habe eine richTextBox, bei der ich, über Checkboxen bzw. Comboboxen, markierten Text bearbeiten kann (Fett, kursiv, Schriftfarben, Schriftgrößen usw. ). Wenn der markierte Text verschiedene Schriftgrößen beinhaltet ( z.B. ein Wort in Schriftgröße 12 und das Andere in Schriftgröße 16) und diesen dann z.B. Fett machen möchte wird dieser nicht nur Fett sondern verändert auch die Schriftgröße auf 13.
Beim Debuggen habe ich dann gemerkt, dass markierte Stellen mit verschiedenen Größen immer die Größe 13 haben (richTextBox.selectionFont.size = 13).
Hier meine Sub für die Checkboxen:
Jemand eine gute Idee wie ich verhindern kann, dass immer auf Schriftgröße 13 umgestellt wird?
ich habe eine richTextBox, bei der ich, über Checkboxen bzw. Comboboxen, markierten Text bearbeiten kann (Fett, kursiv, Schriftfarben, Schriftgrößen usw. ). Wenn der markierte Text verschiedene Schriftgrößen beinhaltet ( z.B. ein Wort in Schriftgröße 12 und das Andere in Schriftgröße 16) und diesen dann z.B. Fett machen möchte wird dieser nicht nur Fett sondern verändert auch die Schriftgröße auf 13.
Beim Debuggen habe ich dann gemerkt, dass markierte Stellen mit verschiedenen Größen immer die Größe 13 haben (richTextBox.selectionFont.size = 13).
Hier meine Sub für die Checkboxen:
VB.NET-Quellcode
- Public Sub formatAendern()
- Dim fsSelectedFontstyle As FontStyle = FontStyle.Regular
- If chkFett.Checked Then fsSelectedFontstyle = fsSelectedFontstyle Or FontStyle.Bold
- If chkKursiv.Checked Then fsSelectedFontstyle = fsSelectedFontstyle Or FontStyle.Italic
- If chkUnterstrichen.Checked Then fsSelectedFontstyle = fsSelectedFontstyle Or FontStyle.Underline
- If chkDurchgestrichen.Checked Then fsSelectedFontstyle = fsSelectedFontstyle Or FontStyle.Strikeout
- Dim fontTest As Font = rtfBeschreibung.SelectionFont
- rtfBeschreibung.SelectionFont = New Font(fontTest.FontFamily, fontTest.Size, fsSelectedFontstyle)
- End Sub
Jemand eine gute Idee wie ich verhindern kann, dass immer auf Schriftgröße 13 umgestellt wird?