oControl.Init Xtree.Object

where I WAS typing…

oControl.Init Xtree

Everything is working well now and I’m well chuffed.

thanks
Guy

I’m trying to find a genuine “treeview” to put into my project, in place of the treectrl from the mscomctllib v6 and have referenced the v5 treeview, but can’t seem to insert the activex into my project.

I exported and imported everything including the form into access and made several minor changes (including removing the textbox references) so that my objects were referenced instead.

I can’t even seem to get the genuine treeview from the imported form onto my access form (which appears to be a different kind of form altogether)

any ideas would be greatly appreciated.

It appears that although access application itself (outside vba) recognises the treectrl as a “treectrl”, VBA tells me in the watch window that the TYPE of the object is “custom” – which it isn’t! I got it stright from the “insert activeX object” menu on the form designer.

I’m stuck!

thanks
Guy Carnegie

Rob, You are correct. And you prompted me to recall (too late) I had used TypeName where TypeOf would be better. You’d also need a WithEvents variable to hold the reference and provide the event handler. So:

Private WithEvents m_ListView As MSComctlLib.ListView

…

If TypeOf Control Is MSComctlLib.TreeView Then
Set m_TreeView = Control
ElseIf TypeOf Control Is MSComctlLib.ListView Then
Set m_ListView = Control
Else
Exit Function
End If

Jamie.

–

Nice work!
And great idea Juan Pablo González!

I have an immediate use for it.

Having just glossed the code, I see code for handling TreeView.
My solution would need it for a ListView control.
I presume adding another elseif in CPopupControlMSComctlLib.Init is necessary.

Again – good work. Very useful.

Cheers
Rob