Mettre de la couleur dans une RichtextBox sans selectionner
cs_didlette62
Messages postés
2
Date d'inscription
mardi 29 juin 2004
Statut
Membre
Dernière intervention
8 avril 2005
-
8 avril 2005 à 11:24
cs_didlette62 Messages postés 2 Date d'inscription mardi 29 juin 2004 Statut Membre Dernière intervention 8 avril 2005 - 8 avril 2005 à 22:28
cs_didlette62 Messages postés 2 Date d'inscription mardi 29 juin 2004 Statut Membre Dernière intervention 8 avril 2005 - 8 avril 2005 à 22:28
A voir également:
- Mettre de la couleur dans une RichtextBox sans selectionner
- Selectionner la derniere cellule non vide d'une colonne excel vba - Forum VBA Office (Excel, Word ...)
- Vba couleur cellule - Forum Visual Basic 6
- Determiner la première cellule non vide d'une feuille excel vb.n ✓ - Forum VB.NET
- Inverser couleur photoshop - Forum Visual Basic
- Inversion de couleur ✓ - Forum Visual Basic 6
2 réponses
leguigui2bx
Messages postés
23
Date d'inscription
jeudi 9 décembre 2004
Statut
Membre
Dernière intervention
9 mai 2005
8 avril 2005 à 11:46
8 avril 2005 à 11:46
Ben utilse la méthode textchanged de la richtextbox :
Private
Sub RichTextBox1_TextChanged(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles RichTextBox1.TextChanged
RichTextBox1.ForeColor = Color.Red
End
Sub
Voila sa devrai marcher
Private
Sub RichTextBox1_TextChanged(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles RichTextBox1.TextChanged
RichTextBox1.ForeColor = Color.Red
End
Sub
Voila sa devrai marcher
cs_didlette62
Messages postés
2
Date d'inscription
mardi 29 juin 2004
Statut
Membre
Dernière intervention
8 avril 2005
8 avril 2005 à 22:28
8 avril 2005 à 22:28
ça ne marche pas...
Mais c'est pas grave j'ai trouvé une autre solution, et en plus j'ai eu l'idée grâce à ce que tu m'as dit alors merci qd meme !!
En fait, j'ai fait une procédure :
Sub ChangeCouleur(chaine As String)
rtf.SelBold = True ' la je choisis comme va etre mon texte
rtf.SelStart = Len(Form1.txtChat) ' C'est pour écrire après ce qui est deja écrit dans la rtf
rtf.SelText = vbCrLf & chaine 'ça écrit le texte que je veux entrer
End Sub
Et en fait comme j’écris pas tout de suite ce qu’il faut, c’est la procédure qui le fait, Par contre du coup j’ai été obligé de tout écrire avec cette méthode parce que quand je réécris normalement, toutes mes modifs sont effacées…. Snif !
Voilà
Mais c'est pas grave j'ai trouvé une autre solution, et en plus j'ai eu l'idée grâce à ce que tu m'as dit alors merci qd meme !!
En fait, j'ai fait une procédure :
Sub ChangeCouleur(chaine As String)
rtf.SelBold = True ' la je choisis comme va etre mon texte
rtf.SelStart = Len(Form1.txtChat) ' C'est pour écrire après ce qui est deja écrit dans la rtf
rtf.SelText = vbCrLf & chaine 'ça écrit le texte que je veux entrer
End Sub
Et en fait comme j’écris pas tout de suite ce qu’il faut, c’est la procédure qui le fait, Par contre du coup j’ai été obligé de tout écrire avec cette méthode parce que quand je réécris normalement, toutes mes modifs sont effacées…. Snif !
Voilà
