in Treeview Node verschieben und Position anzeigen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von majachen99.

    in Treeview Node verschieben und Position anzeigen

    Hallo zusammen,

    mit folgendem Code verschiebe ich die Nodes:

    VB.NET-Quellcode

    1. Private Sub NodeMoveUp()
    3. With TreeView1
    4. Dim hNode As TreeNode = .SelectedNode
    6. If Not (hNode Is Nothing) Then
    7. Dim PreviewNode As TreeNode = hNode.PrevNode
    8. If Not (PreviewNode Is Nothing) Then
    9. .Nodes.Remove(hNode)
    10. If Not (PreviewNode.Parent Is Nothing) Then
    11. PreviewNode.Parent.Nodes.Insert(PreviewNode.Index, hNode)
    12. Else
    13. .Nodes.Insert(PreviewNode.Index, hNode)
    14. End If
    15. .SelectedNode = hNode
    16. .Focus()
    17. Else
    18. .Focus()
    19. End If
    20. End If
    21. End With
    23. End Sub
    25. Private Sub NodeMoveDown()
    27. With TreeView1
    28. Dim hNode As TreeNode = .SelectedNode
    30. If Not (hNode Is Nothing) Then
    31. Dim DownNode As TreeNode = hNode.NextNode
    32. If Not (DownNode Is Nothing) Then
    33. .Nodes.Remove(DownNode)
    34. If Not (hNode.Parent Is Nothing) Then
    35. hNode.Parent.Nodes.Insert(hNode.Index, DownNode)
    36. Else
    37. .Nodes.Insert(hNode.Index, DownNode)
    38. End If
    39. TreeView1.SelectedNode = TreeView1.GetNodeAt(TreeView1.PointToClient(Control.MousePosition))
    40. .SelectedNode = hNode
    41. .Focus()
    42. Else
    43. .Focus()
    44. End If
    45. End If
    46. End With
    48. End Sub


    und damit will ich mir die Posiziondes markierten verschobenen Node sofort anzeigen lassen:

    VB.NET-Quellcode

    1. Private Sub treeView1_AfterSelect(ByVal sender As Object, ByVal e As TreeViewEventArgs) Handles TreeView1.AfterSelect
    3. If (e.Node.Parent IsNot Nothing) Then
    4. If (e.Node.Parent.GetType() Is GetType(TreeNode)) Then
    5. Me.Text = "HauptknotenName : " + e.Node.Parent.Text + ControlChars.Cr + _
    6. "HauptknotenIndex: " + e.Node.Parent.Index.ToString() + ControlChars.Cr + " " + _
    7. "UnterknotenIndex: " + e.Node.Index.ToString()
    8. End If
    9. Else
    10. Me.Text = "Hauptknoten markiert" + " " + e.Node.Index.ToString
    11. End If
    13. End Sub


    Beim nach oben Verschieben funktioniert das auch immer, aber beim nach unten verschieben nicht immer zuverlässig (bei vielen Nodes in der Liste)

    Ohne
    TreeView1.SelectedNode = TreeView1.GetNodeAt(TreeView1.PointToClient(Control.MousePosition))
    im NodeMoveDown wird mir die aktuelle Position gar nicht angezeigt

    was mache ich falsch ,wo ich was ändern?

    vielen Dank für Eure Hilfe und Vorschläge...

    Gruß Majachen