Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Listbox

Listbox

6 réponses
Avatar
Rosalie Mignon
Bonjour
Aidez un d¨¦butant en lui indiquant comment dans une Listbox faire pour
qu'un index choisi par code soit d'une couleur diff¨¦ente ?
ex: Listbox1 avec un contenu :
toto1
toto2 --> en bleu
toto3

merci d'avance
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
seb-seb
"Rosalie Mignon" a écrit dans le message de news:
42b4065f$0$26457$
Bonjour
Aidez un d¨¦butant en lui indiquant comment dans une Listbox faire pour
qu'un index choisi par code soit d'une couleur diff¨¦ente ?
ex: Listbox1 avec un contenu :
toto1
toto2 --> en bleu
toto3

merci d'avance



je crois pas que ca existe mais sinon je suis preneur !!!
Avatar
Jacques93
Bonjour Rosalie Mignon,
Rosalie Mignon a écrit :
Bonjour
Aidez un d¨¦butant en lui indiquant comment dans une Listbox faire pour
qu'un index choisi par code soit d'une couleur diff¨¦ente ?
ex: Listbox1 avec un contenu :
toto1
toto2 --> en bleu
toto3

merci d'avance




Je ne pense pas que cela soit possible avec le contrôle Listbox de base.
Même avec les API (SendMessage). Tu devrais peut être regarder du côté
du contrôle ListView (Nécessite d'ajouter le composant Microsoft Common
Control (MsComCtl.ocx) :

Private Sub Form_Load()
Dim itmX As ListItem
Dim i As Integer

With Me.ListView1
.View = lvwReport
.GridLines = False

.ColumnHeaders.Add , , "Col1"
.ColumnHeaders(1).Width = 600
.HideColumnHeaders = True

For i = 1 To 10
Set itmX = .ListItems.Add(, , "Toto" & i)
itmX.ForeColor = vbBlack
Next i
End With
End Sub

Private Sub Command1_Click()
With Me.ListView1
If .ListItems(2).ForeColor <> vbBlue Then
.ListItems(2).ForeColor = vbBlue
.ListItems(2).Bold = True
Else
.ListItems(2).ForeColor = vbBlack
.ListItems(2).Bold = False
End If
End With
End Sub


--
Cordialement,

Jacques.
Avatar
Alain CROS
Bonjour.

Soit j'ai rien compris ou soit...

Private Sub Form_Load()
With List1
.AddItem "toto1"
.AddItem "toto2"
.AddItem "toto3"
.Selected(1) = True
End With
End Sub

Alain CROS

"Rosalie Mignon" a écrit dans le message de news: 42b4065f$0$26457$
| Bonjour
| Aidez un d¨¦butant en lui indiquant comment dans une Listbox faire pour
| qu'un index choisi par code soit d'une couleur diff¨¦ente ?
| ex: Listbox1 avec un contenu :
| toto1
| toto2 --> en bleu
| toto3
|
| merci d'avance
|
|
Avatar
Jacques93
Bonsoir Alain CROS
Alain CROS a écrit :
Bonjour.

Soit j'ai rien compris ou soit...

Private Sub Form_Load()
With List1
.AddItem "toto1"
.AddItem "toto2"
.AddItem "toto3"
.Selected(1) = True
End With
End Sub



Es ti en bleu le "toto2" ?

Je crois, si j'ai compris la question que Rosalie Mignon voudrait un
Lisbox MultiColor. Suspens, attendons :-D

Alain CROS

"Rosalie Mignon" a écrit dans le message de news: 42b4065f$0$26457$
| Bonjour
| Aidez un d¨¦butant en lui indiquant comment dans une Listbox faire pour
| qu'un index choisi par code soit d'une couleur diff¨¦ente ?
| ex: Listbox1 avec un contenu :
| toto1
| toto2 --> en bleu
| toto3
|
| merci d'avance
|
|






--
Cordialement,

Jacques.
Avatar
Michel
Jacques93 a écrit :
Bonsoir Alain CROS
Alain CROS a écrit :

Bonjour.

Soit j'ai rien compris ou soit...

Private Sub Form_Load()
With List1
.AddItem "toto1"
.AddItem "toto2"
.AddItem "toto3"
.Selected(1) = True
End With
End Sub




Es ti en bleu le "toto2" ?

Je crois, si j'ai compris la question que Rosalie Mignon voudrait un
Lisbox MultiColor. Suspens, attendons :-D


Alain CROS

"Rosalie Mignon" a écrit dans le message de
news: 42b4065f$0$26457$
| Bonjour
| Aidez un d¨¦butant en lui indiquant comment dans une Listbox faire pour
| qu'un index choisi par code soit d'une couleur diff¨¦ente ?
| ex: Listbox1 avec un contenu :
| toto1
| toto2 --> en bleu
| toto3
|
| merci d'avance
|
|








Si vraiment vous insitez il y a un exemple sur
http://megaten.alterlinks.fr/
va dans la rubrique code et tu trouveras
Listbox avec lignes colorées.

Euh c'est à base de subclassing donc ne jamais arrete ton
pgm via l'IDE de VB sinon crash assuré..

Bonne lecture
Avatar
Rosalie Mignon
Vraiment merci pour touts vos idées.
La solution du Select(1) me convient parfaitement
quant a la version multicolore , je garde l'adresse.

merci a tous

"Rosalie Mignon" a écrit dans le message de news:
42b4065f$0$26457$
Bonjour
Aidez un d¨¦butant en lui indiquant comment dans une Listbox faire pour
qu'un index choisi par code soit d'une couleur diff¨¦ente ?
ex: Listbox1 avec un contenu :
toto1
toto2 --> en bleu
toto3

merci d'avance