Insérez le code suivant dans la fonction bouton de clic:
Private Sub Button1_Click (expéditeur de ByVal comme System.Object, ByValue tant System.EventArgs) Poignées Button1.Click
9-RichTextBox1.Rtf = { rtf1 ansi deff0 { colortbl-red0 green0 blue0- red255 green0 blue0-} Cette ligne est la couleur ligne de défaut ligne cf2This est rouge ligne cf1This est la couleur par défaut}
Chaîne en clair = RichTextBox1.Text
End Sub
Going ligne par ligne, cela va placer une partie au format RTF texte dans le RichTextBox. Il va ensuite placer le texte, avec sa mise en forme dépouillée, dans une chaîne nommée clair. De là, vous pouvez faire ce que vous aimez.