Vatansever
Asistan
- Katılım
- 23 Ağustos 2007
- Mesajlar
- 405
- Reaksiyon puanı
- 1
- Puanları
- 18
Arkadaşlar Treeview'de seçenekler ekliyorum ve bu seçeneklerin sıralamalarını değiştirmek istiyorum altta bir kod buldum bunu denedim bu kod ile bir seçeneği seçip sürüklüyorum başka birinin üzerine bırakıyorum ve o seçenek bıraktığımın içinde ayrı bir dal oluşturuyor, ayrı bir dal oluşturmasın sadece sıralama değişsin istiyorum kodu düzeltebilirmisiniz?
http://www.codeproject.com/Articles/8995/Introduction-to-TreeView-Drag-and-Drop-VB-NET
treeView'im şöyle
http://www.codeproject.com/Articles/8995/Introduction-to-TreeView-Drag-and-Drop-VB-NET
treeView'im şöyle
Kod:
+Liste
+değer1
+değer2
+değer3
+değer4
+değer5
+değer6
+değer7
+değer8
Kod:
Public Sub TreeView1_ItemDrag(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles TreeView1.ItemDrag, TreeView2.ItemDrag
'Set the drag node and initiate the DragDrop
DoDragDrop(e.Item, DragDropEffects.Move)
End Sub
Public Sub TreeView1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TreeView1.DragEnter, TreeView2.DragEnter
'See if there is a TreeNode being dragged
If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", True) Then
'TreeNode found allow move effect
e.Effect = DragDropEffects.Move
Else
'No TreeNode found, prevent move
e.Effect = DragDropEffects.None
End If
End Sub
Public Sub TreeView1_DragOver(ByVal sender As System.Object, ByVal e As DragEventArgs) Handles TreeView1.DragOver, TreeView2.DragOver
'Check that there is a TreeNode being dragged
If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", True) = False Then Exit Sub
'Get the TreeView raising the event (incase multiple on form)
Dim selectedTreeview As TreeView = CType(sender, TreeView)
'As the mouse moves over nodes, provide feedback to the user
'by highlighting the node that is the current drop target
Dim pt As Point = CType(sender, TreeView).PointToClient(New Point(e.X, e.Y))
Dim targetNode As TreeNode = selectedTreeview.GetNodeAt(pt)
'See if the targetNode is currently selected, if so no need to validate again
If Not (selectedTreeview Is targetNode) Then
'Select the node currently under the cursor
selectedTreeview.SelectedNode = targetNode
'Check that the selected node is not the dropNode and also that it
'is not a child of the dropNode and therefore an invalid target
Dim dropNode As TreeNode = CType(e.Data.GetData("System.Windows.Forms.TreeNode"), TreeNode)
Do Until targetNode Is Nothing
If targetNode Is dropNode Then
e.Effect = DragDropEffects.None
Exit Sub
End If
targetNode = targetNode.Parent
Loop
End If
'Currently selected node is a suitable target, allow the move
e.Effect = DragDropEffects.Move
End Sub
Public Sub TreeView1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TreeView1.DragDrop, TreeView2.DragDrop
'Check that there is a TreeNode being dragged
If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", True) = False Then Exit Sub
'Get the TreeView raising the event (incase multiple on form)
Dim selectedTreeview As TreeView = CType(sender, TreeView)
'Get the TreeNode being dragged
Dim dropNode As TreeNode = CType(e.Data.GetData("System.Windows.Forms.TreeNode"), TreeNode)
'The target node should be selected from the DragOver event
Dim targetNode As TreeNode = selectedTreeview.SelectedNode
'Remove the drop node from its current location
dropNode.Remove()
'If there is no targetNode add dropNode to the bottom of the TreeView root
'nodes, otherwise add it to the end of the dropNode child nodes
If targetNode Is Nothing Then
selectedTreeview.Nodes.Add(dropNode)
Else
targetNode.Nodes.Add(dropNode)
End If
'Ensure the newley created node is visible to the user and select it
dropNode.EnsureVisible()
selectedTreeview.SelectedNode = dropNode
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Allow the TreeViews to be the target of a DragDrop operation
'and populate it with some random TreeNodes for the example
TreeView1.AllowDrop = True
TreeView1.HideSelection = False
End Sub