الطلب غريب نوعا
المفترض كل عقدة ولها اسمها
تفضل حسب طلبك توضع في حدث النقر على العقد
Dim v As Integer
Dim i As String
i = Node.FullPath
v = Mid(Node.Key, 2, 1)
If Mid(Node.Key, 1, 1) = "s" Then
lblPath.Caption = TreeView2.Nodes.Item(v)
Else
lblPath.Caption = Left(i, InStr(i, "-") - 1)
End If
لاحظ اني غيرت اسم العقدة الابن من اجل التعرف على الأب
شجرة2.rar