Discussion :

[totoche]

Bonjour,
Lorsque comctl32 et mscomctl sont référencé dans le projet, si l'on dépose sur une form un composant imageList1(mscomctl) , que l'on alimente dynamiquement :

Code :

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

1
2
3
4
 
  Dim imgX As ListImage
  Set imgX = Me.imageList1.ListImages.Add(, , Me.tremplin.Image)
  imgX.Key = keyListView

il se produit une erreur type incompatible.
Pour palier a cette erreur je supprime la référence à msconctl et tente de créer le composant à la main

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim WithEvents ctlDynamicIL As VBControlExtender
-----------
Private Sub Form_Load()
Licenses.Add "MSComctlLib.ImageListCtrl"
------------
Sub maSub(ByVal strFile As String)
Set ctlDynamicIL = Controls.Add("MSComctlLib.ImageListCtrl", _
                    "myctlIL", frmMain)

Dim imgX As ctlDynamicIL.object.ListImage 'ici Erreur
Set imgX = ctlDynamicIL.object.ListImages. _
Add(, , Picture1.Image)

Erreur type défini par l'utilisateur non défini
Merci

[totoche]

Dim imgX As object