Topic: TreeView Control

[jbuzbee]

Ok, I've started a movement to catalog VBA controls to substitute for ObjectDCL - You see us lispers must finally come over here, with hat humbly in hand, and ask for some help.  I know your first reaction won't be, well, proper - but any help would really be appreciated. 

Has anyone used the treeview control in VBA?  I'm getting a syntax error on the following:

Code: [Select]

Dim layerfilters As AcadDictionary
Set layerfilters = ThisDrawing.Layers.GetExtensionDictionary.Item("ACAD_LAYERFILTERS")

For Each entry In layerfilters
TreeView1.Nodes.Add(new treenode, entry.name, entry.name, , ,)
Next

The VB help uses a different syntax:

treeView1.Nodes.Add(New TreeNode(customer2.CustomerName))

but the VBA dynamic help is showing the arg seperated by commas.  Any insight??

Thanks -

jb

[Bob Wahr]

Try losing your parenthesis, this isn't lisp

Code: [Select]

Dim layerfilters As AcadDictionary
Set layerfilters = ThisDrawing.Layers.GetExtensionDictionary.Item("ACAD_LAYERFILTERS")

For Each entry In layerfilters
TreeView1.Nodes.Add new treenode, entry.name, entry.name, , ,
NextI haven't done a treeview in a long time and didn't look at this, just noticed that.  The rule for parenthesis, even when intellisense shows them is, right of an equals sign, yes, otherwise, no.

So it would be
set SomeThing = TreeView1.Nodes.Add(new treenode, entry.name, entry.name, , ,)
or
TreeView1.Nodes.Add new treenode, entry.name, entry.name, , ,
not
TreeView1.Nodes.Add(new treenode, entry.name, entry.name, , ,)

hi-tee-hoe

[jbuzbee]

Thanks Bob - further digging and I caught that but it's still not working:

Code: [Select]


Dim layerfilters As AcadDictionary
Set layerfilters = ThisDrawing.Layers.GetExtensionDictionary.Item("ACAD_LAYERFILTERS")

Set nod0 = TreeView1.Nodes.Add(,,"root","All Layers",,)

For Each entry In layerfilters
Set nodekey = entry.Name
Set nodetext = entry.Name
TreeView1.Nodes.Add ,,nodekey,nodetext,,
Next


[Keith™]

Try this ...

Also what version of the TreeView control are you trying to use?

Code: [Select]

Dim layerfilters As AcadDictionary
On Error GoTo NoFilters
Set layerfilters = ThisDrawing.layers.GetExtensionDictionary.Item("ACAD_LAYERFILTERS")
NoFilters:
If layerfilters Is Nothing = False Then
 With TreeView1
  For Each Entry In layerfilters
   .Nodes.Add , , Entry.Name, Entry.Name
  Next
 End With
End If


[jbuzbee]

Keith - that did it! Thanks.

This will help me complete the treeview: next I want to put the appropriate layers as children under the filter nodes.  I'll keep everyone up to date!!

Thanks again Keith and Bob - this forum is great. 

jb

Have a good weekend!

[Bob Wahr]

It's only as good as the questions that are asked.



or something