Eventi su TreeView creato a Run-Time

Question

Ciao a tutti

( faccio seguito a questa discussione )

Il seguente codice funzionante (ridotto per maggior comprensione), aggiunge un riferimento a "MSComctlLib" se non presente e crea un controllo TreeView in run-time.

Ho letto da qualche parte che non è possibile intercettare l'evento click o dblClick su un TreeView creato in run-time. Spero che non sia vero!!!

questo il codice che si avvale di un modulo di classe (MyClass) con il quale vorrei intercettare l'evento dblClick su nodo TreeView, ma che non riesco a far funzionare:

'NELLA USERFORM

Dim TV As New MyClass

Dim ctlTV As Control

Private Sub UserForm_Initialize()

...

Aggiunge riferimento a MSComctlLib

...

mInitialize

End Sub

Sub mInitialize()

'.....

Set ctlTV = .Controls.Add("MSComctlLib.TreeCtrl", "TreeView1")

    With ctlTV

    '....

    '....

    .Nodes.Add , , "Node1", "One", 1

    .Nodes.Add "Node1", tvwChild, "Node2", "Two", 2

    .Nodes.Add "Node1", tvwChild, "Node3", "Three", 3

    End With

End With

Set TV.TVEvents = ctlTV ' <<<???????

End Sub

'IN UN MODULO DI CLASSE CHIAMATO MyClass

Public WithEvents TVEvents As clsTreeView

Private Sub TVEvents_DblClick(cNode As clsNode)

MsgBox "Hi dodo"

End Sub

Grazie per i vostri suggerimenti

saluti

domenico

Answer 1

Ciao a tutti

Spero di essere smentito, ma in seguito a questo link, credo proprio che non si possa fare...

Pertanto "limito" l'automazione alla sola creazione del riferimento, inserendo "fisicamente" nella UserForm i controlli necessari del TreeView e relativa ImageList.

Grazie

saluti

domenico