Lignes Multicolores TextBox

**ArHacKnIdE** · 30/01/2007, 16h17

Bonjour à tous,

Voilà j'ai une TextBox en multiligne dont j'aimerai que l'affichage d'une ligne sur deux soit de couleurs différentes, exemple :

noir
bleu
noir
bleu
...

J'aimerai donc savoir comment faire pour que la TextBox affiche automatiquement une ligne sur deux en bleu.

Merci

**Vld44** · 30/01/2007, 16h25

Salut,

Je ne suis pas sûr que ce soit possible.
L'alternative serait d'utiliser un composant richtextbox à mon avis, et encore s'il le permet.

**AlainTech** · 30/01/2007, 16h26

Il faut utiliser un RichTextBox.

**ArHacKnIdE** · 30/01/2007, 16h30

Merci à vous.

Voilà j'ai trouvé le RichTextBox mais je ne trouve toujours pas comment atteindre mon but pour avoir une ligne sur deux en bleu

Merci

**ArHacKnIdE** · 30/01/2007, 16h41

Voilà j'ai trouvé ça :

Code :

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

RichTextBox1.SelColor = 12640511

Mais me faudrait maintenant différencier les lignes, par exemple avec pair ou impair, je vais aller chercher...

Encore Merci

**ArHacKnIdE** · 30/01/2007, 17h00

Voilà je pense avoir trouvé avec ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub TextBox1_Change()
nbrlignes = SendMessageLong(TextBox1.hwnd, EM_GETLINECOUNT, 0&, 0&)
 
 
  modulo = nbrlignes Mod 2
 
  If modulo = 1 Then
 
   TextBox1.SelColor = 12640511
   Else
    TextBox1.SelColor = 13640511
  End If
End Sub

Merci à vous deux de m'avoir mis sur la piste du RichTextBox

EDIT : zazaraignée, je suis preneur de ton code et je l'attends

Merci

**zazaraignée** · 30/01/2007, 17h03

Salut

J'ai fait ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub RichTextBox1_Change()
    Dim ligne As Long
    ligne = RichTextBox1.GetLineFromChar(RichTextBox1.SelStart)
    If ligne Mod 2 = 0 Then
        ' en noir
        RichTextBox1.SelColor = vbBlack
      Else
        'en bleu
        RichTextBox1.SelColor = vbBlue
    End If
End Sub

Mais ce n'est pas encore parfait. Si on fait un changement de ligne en tapant sur Entrée, ça va. Mais si on a un retour à la ligne automatique, il reste un premier caractère de la couleur de la ligne précédente. Voir l'image jointe.