Ecrire ligne par ligne dans un richtextbox en VB.Net ?

cs_deel Messages postés 6 Date d'inscription mardi 22 janvier 2002 Statut Membre Dernière intervention 21 novembre 2002 - 21 nov. 2002 à 08:48
gregdevils Messages postés 6 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 20 février 2004 - 13 févr. 2004 à 11:45
Depuis que j'ai VB.net, je n'arrive plus à écrire ligne par ligne dans un richtextbox, et encore moins à modifier les polices, la taille, ou insérer des images.

Quelqu'un aurait une petite idée pour m'aider ?

2 réponses

gregdevils Messages postés 6 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 20 février 2004
13 févr. 2004 à 11:42
Je suis débutant en .net

Insérer une ligne

.SelectedText = "Mon texte" + vbCrLf

Changer la couleur

Dim color As New Color()

.SelectionColor = color.Red
.SelectedText = "texte " + vbCrLf 'ecrit le texte en rouge

Formater du texte (le seul problème c'est que je n'est pas encore trouver comment faire pour avoir le texte en gras,italique et souligné en même temps)

.SelectionFont = New Font("Comic sans ms", 12, FontStyle.Bold)
.SelectionIndent = 5
.SelectedText = "text" + vbCrLf

Insertion du image à la position du curseur (dans cet exemple je récupère l'image qui est dans un controle picturebox)

Dim MyFormat As DataFormats.Format = DataFormats.GetFormat(DataFormats.Bitmap)

Clipboard.SetDataObject(ImLogo.Image)
.Paste(MyFormat)

j'espère que cela t'aidera.
0
gregdevils Messages postés 6 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 20 février 2004
13 févr. 2004 à 11:45
J'avais oublié

Il faut mettre le nom du contrôle devant les fonctions ou bien utiliser la stucture with-end with

With Rtf_texte
.SelectedText = "text" + vbCrLf
end with
0
Rejoignez-nous