Comment créer des évènements sur un contrôle ListView Crée Dynamiquement en VBA
Bonjour chers tous.
J'ai créer un Controle ListView Dynamiquement en VBA Excel et je voudrais bien agir dessus grâce au évenements comme ListView_Click, ListView_DbClick, ListView_MouseMove...
Voici le Code Permettant de générer la ListView dans le UserForm
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Dim lvwCtrl as MSComctlLib.ListViewCtrl
Public Sub CreatDynamicFormControl(ParentForm As UserForm, _
bStrProgrID As ListView, _
ListViewName As String, _
IsControlVisible As Boolean, _
ParamArray ListColHeaders() As Variant)
On Error GoTo ErrHnd
Set lvwCtrl = ParentForm.Controls.Add("MSComctlLib.ListViewCtrl", ListViewName, IsControlVisible)
With lvwCtrl
'Propriétés du Contrôle...
End With
Exit Sub
ErrHnd:
MsgBox "Une Erreur d'exécution est survenue dans la procédure de contruction du control ListView (" & _
Err.Description & ")", 16 + 0, "Echec construction Object ListView"
If (Not lvwCtrl Is Nothing) Then Set lvwCtrl = Nothing
End Sub |
Tout ce que je parviens à faire sur le contrôle ainsi crée, c'est juste agir dessus en faisant un click sur CommandButton.
en faisant Me("ListViewProduit").Font.Size = 12 par Exemple
Quelqu'un aurrait-il une idée de comment faire avec les Événements natifs du ListView ?
Cordialement.
