Griser une ligne d'une list box

Le
Superman
Bonjour,

J'aimerais savoir si il est possible de griser (de ne pas pouvoir
utiliser) une ligne d'une listbox

Exemple :

Tomate
Fraise //Griser ou faire en sorte que cette ligne ne soit pas
cliquable
Pates


Merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacques93
Le #15393611
Bonjour Superman,
Superman a écrit :
Bonjour,

J'aimerais savoir si il est possible de griser (de ne pas pouvoir
utiliser) une ligne d'une listbox

Exemple :

Tomate
Fraise //Griser ou faire en sorte que cette ligne ne soit pas
cliquable
Pates


Merci




Avec une ListBox, je ne sais pas. Par contre avec un ListView, on peut
utiliser la propriété ForeColor, et/ou Ghosted d'un Item (Ghosted n'a
d'effet visuel que sur l'icône associée à l'item, et nécessite donc un
contrôle ListImage lié au ListView). Ces 2 contrôles se trouvent dans
Microsoft Windows Common Controls 6.0

Exemple de code :

Option Explicit

Private Sub Form_Load()
With Me.ListView1
.View = lvwReport
.ColumnHeaders.Add
.HideColumnHeaders = True
.LabelEdit = lvwManual
.SmallIcons = Me.ImageList1
.ListItems.Add , , "Tomate", , 1
.ListItems.Add , , "Fraise", , 1
.ListItems.Add , , "Pates", , 1
End With
Me.ListView1.ListItems(2).Ghosted = True
Me.ListView1.ListItems(2).ForeColor = vbGrayText
End Sub

Private Sub ListView1_Click()
If Me.ListView1.SelectedItem.Ghosted = True Then
Me.ListView1.ListItems(Me.ListView1.SelectedItem.Index).Selected =
False
Set Me.ListView1.SelectedItem = Nothing
End If
End Sub

Résultat :


--
Cordialement,

Jacques.

--
Cordialement,

Jacques.
Publicité
Poster une réponse
Anonyme