RTF Formatierungen {Wichtig}

[hugamann]

Super.

Vielen dank.

Ich habe auch einen lösungsweg gefunden der allerdings ein bisschen komplizierter ist

Dim pos1 As Integer
Dim ar(1000) As String
Dim a As Integer

Private Sub Command1_Click()
RTF.SelColor = vbGreen
End Sub

Private Sub Form_Load()
pos1 = 1

RTF.Text = "Start"

RTF.SelStart = 0
RTF.SelLength = Len(RTF.Text)
RTF.SelColor = vbRed

SendKeys "{End}"

RTF.Text = RTF.Text & vbCrLf

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

RTF.Text = RTF.Text & "{System}" & Text1.Text & vbCrLf
pos1 = InStr(pos1, RTF.Text, "{")

ar(a) = pos1
a = a + 1
For i = 0 To a
If ar(i) <> "" Then
RTF.SelStart = ar(i)
RTF.SelLength = 6
RTF.SelColor = vbGreen
End If
Next i
pos1 = pos1 + 1
End If
End Sub

 

[paulberthold]

Dir ist bewusst, dass die Eigenschaft "Text" immer nur den Text ohne RTF Steuercodes zurückgibt und die Eigenschaft "TextRTF" mit Steuercodes? Deine Formatierung wurde also deshalb überschrieben, weil Du den geänderten Text immer der Eigenschaft "Text" zugewiesen hast, die immer nur einen unformatierten Text erwartet.