Couleur seulement sur une ligne ?

Question

Bonjour, je n'arrive pas à mettre une couleur sur une seule ligne :D

J'ai essayé : 
    Label2.ForeColor = &HFF&
      Label2.Caption = "test rouge"
    Form3.Label1.ForeColor = &HFF&
      Label2.Caption = "test vert"

Mais ca ne marche pas, seul le dernier est pris en compte !

Merci ;)

pcpunch · Answer

verifie ds les propriete que les label et le form n ont pas la couleur transparente!!!

vjeux · Answer

Pas compris la ??

Il me faudrait le moyen de cibler une ligne et de la mettre en couleur, sinon dans les parametres rien est transparent !

pcpunch · Answer

explique un peu mieux car la comprend rien? normalement ton code doit marcher !!!

pcpunch · Answer

ce code marche tres bien :
Label1.ForeColor = &HC000&
Label1.Caption = "test vert"

Label2.ForeColor = &HFF&
Label2.Caption = "test rouge"

vjeux · Answer

Oui mais la tu changes de label ... moi je veux rester dans le meme

pcpunch · Answer

tu veu faire defiler les couleurs les une apres les autres?? ex : toutes les secondes?

vjeux · Answer

Bon tu as pas compris alors ce que je veux faire c'est que dans 1 label, il y ait 2 lignes de 2 couleurs différentes (en meme temps)

pcpunch · Answer

a ma connaissance impossible!!!! idem dans un textbox ainsi que dans une listbox!!!

mais je suis pas super caler!!!! mais pas nul nom plus!!lol

vjeux · Answer

Bon ok ;)
Sinon je vais faire pleins de label :D

Enfin ca va me faire chier car faudra que je copie colle pleins de if mais bon ...

Arsena · Answer

Avec un label je vois pas la solution mais je pense qu'avec un "RichTextBox" c'est possible

si ça re convient je t'envoie un exemple

A+
MD

capoueidiablo · Answer

--= Capoueidiablo =--

Salut a tous,
ba je c pas pour Vjeux mais pour moi ca m'interresse de savoir comment on met de la couleur sur une seul ligne dans une rtb donc te gene pas pour mettre un exemple ;-)

sinon vjeux tu peux mettre des "select case" à la place des "if" c'est peut etre plus simple a faire, enfin ca depend du code ;-)

Bon et bien bon code a tous
--Capoueidiablo--

Arsena · Answer

Le code


Option Explicit
'Une partie de ce code a été trouve sur Internet
Sub colorer(mot As String, coul As Long)
Dim SUITE As Boolean
Dim DEBUT As Long
Dim pos As Integer
Dim i As Integer
If mot = "" Then Exit Sub
pos = RichTextBox1.SelStart
DEBUT = 1
SUITE = True
Do Until SUITE = False 'si encore=False c'est la fin de la coloration pour ce mot
If InStr(DEBUT, RichTextBox1.Text, mot) <> 0 Then
RichTextBox1.SelStart = InStr(DEBUT, RichTextBox1.Text, mot) - 1 'Point de depart du mot a colorer
RichTextBox1.SelLength = Len(mot)   'Longeur du mot a colorer
RichTextBox1.SelColor = coul        'Couleur du mot
RichTextBox1.SelBold = True         'Mot en GRAS
DEBUT = RichTextBox1.SelStart + 2  'Si DEBUT > SelStart du mot a colorer
Else                    'alors fin de l'occurence
SUITE = False           'si il n'y a plus d'occurence du mot
End If
Loop
RichTextBox1.SelStart = pos
RichTextBox1.SelColor = QBColor(0)
RichTextBox1.SelBold = 0
End Sub

Private Sub Form_Load()
RichTextBox1.Text = "Le texte a colorer dans une ligne de RTB."
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
RichTextBox1.SelColor = QBColor(2)
colorer "colorer", QBColor(9)
End Sub


A+ et bonne prog
MD

capoueidiablo · Answer

Merci arsena tu es un saint homme (ou femme) je te revaudrai ca ;-)
--Capoueidiablo--

Couleur seulement sur une ligne ?

13 réponses

Discussions similaires