Ajouter une colonne dans un ListView avec SendMessage

Question

Salut &#224; tous,

    Je gal&#232;re pour ajouter une colonne &#224; un ListView dont je poss&#232;de le handle, avec l'API SendMessage. La constante &#224; utiliser est LVM_INSERTCOLUMNA. J'ai essay&#233; de retoucher une fonction d'une source vraiment compl&#232;te prise sur vbAccelerator, sans succ&#232;s 

Je n'ai pas trouv&#233; d'autres exemples sur internet... Quelqu'un saurait-il comment faire fonctionner tout cela 

Merci d'avance 

VBEnJ0Y

cs_Jack · Answer

lol, tu n'as qu'&#224; le demander &#224; l'auteur de la source en question ...
Chez toi, combien vaut ta constante ?
Private Const LVM_FIRST As Long = &H1000
Private Const LVM_INSERTCOLUMNA As Long = (LVM_FIRST + 27)

Quel syntaxe de SendMessage utilises-tu ? et qu'est ce qui ne va pas ?

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Champion du monde de boule de cristal - 2005
Le savoir est la seule mati&#232;re qui s'accro

VBEnJ0Y · Answer

Hello jack,

En fait, les quelques fois o&#249; j'ai envoy&#233; un mail &#224; un programmeur anglais, je n'ai obtenu aucune r&#233;ponse. Peut-&#234;tre que mon anglais leur fait peur 

Oui, c'est bien &#231;a pour les constantes. J'avais essay&#233; de faire une fonction au d&#233;but :

Private Const LVM_FIRST As Long = &H1000
Private Const LVM_INSERTCOLUMNA As Long = (LVM_FIRST + 27)
Private Const LVCF_FMT As Long = &H1
Private Const LVCF_IMAGE As Long = &H10
Private Const LVCF_ORDER As Long = &H20
Private Const LVCF_SUBITEM As Long = &H8
Private Const LVCF_TEXT As Long = &H4
Private Const LVCF_WIDTH As Long = &H2
Private Const LVCFMT_BITMAP_ON_RIGHT As Long = &H1000
Private Const LVCFMT_CENTER As Long = &H2
Private Const LVCFMT_COL_HAS_IMAGES As Long = &H8000
Private Const LVCFMT_IMAGE As Long = &H800
Private Const LVCFMT_JUSTIFYMASK As Long = &H3
Private Const LVCFMT_LEFT As Long = &H0
Private Const LVCFMT_RIGHT As Long = &H1

 Private Type LVCOLUMN
     mask As Long
     fmt As Integer
     cx As Integer
     pszText As String
     cchTextMax As Integer
     iSubItem As Integer
 End Type

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lparam As Any) As Long

'ajoute une colonne
Public Function InsertColumn(Byval hListView as Long, ByVal sName As String, ByVal index As Long, Optional ByVal Width As Long = 1040) As Boolean
 Dim pCol As LVCOLUMN
    With pCol
        .cchTextMax = Len(sName)
        .cx = Width
        .fmt = LVCFMT_LEFT
        .iSubItem = index
        .mask = LVCF_WIDTH Or LVCF_FMT Or LVCF_SUBITEM Or LVCF_TEXT
        .pszText = sName
    End With
    InsertColumn = SendMessage(hListView, LVM_INSERTCOLUMNA, index , pCol)
End Function

Malheureusement, aucune colonne ne s'ajoutait au ListView. Apr&#232;s j'ai repris celle tir&#233; de vbAccelerator, sans succ&#232;s non plus 

Je ne vois pas ce qui cloche pourtant !

Merci encore 

VBEnJ0Y

VBEnJ0Y · Answer

Au fait, j'ai oubli&#233; de pr&#233;ciser pourquoi je voudrai faire tout &#231;a:

    Je pr&#233;pare une classe pour lire facilement les GIF anim&#233;s, elle renvoie toutes les infos contenus dans le fichier... Et je voudrai faire en sorte que d&#232;s l'ouverture d'un CommonDialog, quand on affiche les fichiers en mode 'D&#233;tails', des colonnes soient rajout&#233;es, comme "Hauteur", "Largeur", "Nombre de couleurs", "Couleur de fond"... et bien s&#251;r d'afficher les infos dans les colonnes respectives 

    Je pr&#233;cise au cas o&#249; il y a moyen de le faire sans passer un 'SendMessage' ni par le SubClassing ou le Hooking, ce serait l'id&#233;al 

    Donc si vous avez une id&#233;e pour ajouter des colonnes dans ce fameux CommonDialog, faites-moi signe 

Merci d'avance...

VBEnJ0Y

Ajouter une colonne dans un ListView avec SendMessage

3 réponses

Discussions similaires