Grüß Sie,
wie kann ich Zeichen für Zeichen einer RichTextBox auslesen und deren Inhalt UND Farbe speichern?
Es geht darum, ich habe eine leere RichTextBox. Nun markiere ich genau ein Zeichen, weise diesem ein Zeichen zu und eine Farbe. Nach X Zeichen fängt eine neue Zeile und die gleiche Prozedur nochmals an.
So weit mein Problem verstanden?
Falls nicht melden, dann schick ich ein Code-Beispiel meines Problemes!
Lg
Michael P. Schiefere
Hi Michael !
Das ganz ist gar nicht so einfach, denn dazu müsstest Du dich mit den Steuerzeichen einer RichtextBox auskennen !
Den Text findest Du in TextRTF Eigenschaft. Darin sind auch die Steuerzeichen enthalten, welche meistens mit einem „/“ eingeleitet werden !
Was welches Steuerzeichen bewirkt kann ich Dir auch nicht sagen, aber jedes Zeichen einzeln auslesen funktioniert so :
Dim i as integer
dim char as string
for i = 1 to len(me.Richtextbox1.TextRTF)
char = Mid(me.Richtextbox1.TextRTF,i,1)
next
LG
Mario