adding an ActiveX control at run-time
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:
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:
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
