What in the name of American erections am I doing wrong here?
Public Sub mnuCollapse_Click()
' Collapse all nodes to the level of the selected node
Dim hNode As CNode
Dim hAttr As String
Dim iLevel As Integer
hNode = $hDoc.Index[tvwDoc.Key]
iLevel = hNode.Level
START_HERE:
tvwDoc.MoveFirst
While tvwDoc.MoveNext()
hNode = $hDoc.Index[tvwDoc.Item.Key] '<-- All "seems" to fall apart here?
If hNode.Level >= iLevel Then
tvwDoc.Item.Expanded = False
Endif
Wend
End
tvwDoc is a ColumnView. There is a selected item in the _TreeView, Thus,
tvwDoc.Key provides a key into the $hDoc.Index collection from which I can
determine the object that was used to populate that columnView branch and from
that objects values I can see the "Level" that I want. All that works fine.
What I am trying to do is go through the ColumnView branches and "collapse" any
branch of the same "Level". Which gets us to START_HERE.
There must be something absolutely, stupidly, simple that I am trying to do
wrong here - :-(
Any help.
rgrds
b
--
B Bruen <adamn...@gnail.com (sort of)>
------------------------------------------------------------------------------
Developer Access Program for Intel Xeon Phi Processors
Access to Intel Xeon Phi processor-based developer platforms.
With one year of Intel Parallel Studio XE.
Training and support from Colfax.
Order your platform today. http://sdm.link/xeonphi
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
