well have you a small functional things ?.... certainly something stupid but i can't see it without touching
2016-11-10 4:38 GMT+01:00 [email protected] <[email protected]>: > 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 <[email protected] (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 > [email protected] > https://lists.sourceforge.net/lists/listinfo/gambas-user -- Fabien Bodard ------------------------------------------------------------------------------ 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 [email protected] https://lists.sourceforge.net/lists/listinfo/gambas-user
