Discussion :

[Jihnn]

Bonjour,

Je suis un nouvel utilisateur du fameux contrôles "RichTextBox". Je veux l'utiliser pour pouvoir placer plusieurs couleurs dans un champ de texte (Client IRC, ça fait plus propre). Voici un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[03:59:21.322] <ThunderStroke> Hello, World !

Je me demandais donc comment faire. Je sais que je pourrais utiliser .SelColor = <Couleur>, mais je suis incapable d'y mettre plusieurs couleurs.

MSDN ne m'a pas donné la solution escompté, une recherche sur ce forum non plus. J'aurais bien aimé allez voir la FAQ, mais je suis incapable d'y accéder .

Merci d'avance,

ThunderStroke

[Jihnn]

Désolé, entre temps, un ami m'a fourni la solution
Pour ceux que ça intéresse :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub AddChat(ParamArray saElements() As Variant)
   Dim i As Byte
   For i = LBound(saElements) To UBound(saElements) Step 2
      With frmChat.txtChat
         .SelStart = Len(.Text)
         .SelLength = 0
         .SelColor = saElements(i)
         .SelText = saElements(i + 1) & Left$(vbCrLf, -2 * CLng((i + 1) = UBound(saElements)))
         .SelStart = Len(.Text)
      End With
   Next i
End Sub

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AddChat &H8000000F&, "C'est gris ! | ", &H8000000D&, "C'est bleu !"