Code:
'=========================================================================== Function NumParent(Byval hWnd As Long, Byval hItem As Long) As Long ' hWnd is the treeview control id ' hItem is the currently selected treeview node Local hParent As Long Local hJunk As Long Local nLevel As Long nLevel = 0 hParent = TreeView_GetParent(hWnd,hItem) Do While hParent Incr nLevel hJunk = hParent hParent = TreeView_GetParent(hWnd,hJunk) Loop Function = nLevel End Function '===========================================================================
Code:
LevelA1 \LevelB1 \LevelB2 \\LevelC1 \\\LevelD1 LevelA2 \LevelB3 \\LevelC2 \\\LevelD2
Joe
------------------
Leave a comment: