In control TreeView (version 1.00.4, 23 November 2003) I've found bug in module vbalTreeView.ctl Property node.FullPath returns a string in an inverted sequence.
A fix for this is as follows (in vbalTreeView.ctl):
Friend Property Get fItemPath(ByVal lID As Long) As String
Dim hItem As Long
Dim sRet As String
hItem = m_colIDs(CStr(lID))
Do While Not (hItem = 0)
pGetStyle hItem, TVIF_TEXT
If (Len(sRet) > 0) Then
>>> sRet = m_sPathSeparator & sRet
End If
>>> sRet = m_itemStyle.pszText & sRet
hItem = SendMessageL(m_hWnd, TVM_GETNEXTITEM, TVGN_PARENT, hItem)
Loop
fItemPath = sRet
End Property
|
Fixed |