Sección de códigos , trucos y ejemplos para visual basic

273 - Drag and Drop en un TreeView

Contenido

Drag Drop desde un control hacia un Treeview
Drag Drop entre los nodos de un Treeview 1
Mover la lista en la operación de arrastre
Enlaces relacionados

Drag Drop desde un control hacia un Treeview

Ejemplo que muestra como hacer un Drag Drop de items o elementos desde un listbox hacia el item seleccionado de un control TreeView

Para poder realizar este ejemplo, el control TreeView debe tener la propiedad OLEDropMode con el valor ccOLEDropManual. Y en este caso, como los elementos que se van a arrastrar son los del Listox, la propiedad OLEDragMode del Listbox debe estar con el valor en 1 ( en Automatic )

Controles

Colocar un control ListBox
un TreeView

Al ejecutar el form se cargarán algunos datos en ambos controles:

vista del formulario de ejemplo para hacer un drag&drop de elementos en un TreeView

Nota: este ejemplo permite hacer un drag drop en el item del Treeview en el cual se suelta, para ello se utiliza la propiedad DropHighlight y el método HitTest.

El primero lo que hace es devolver una referencia al Node o item seleccionado y lo resalta. El método HitTest devuelve el objeto Nodo o Item, a partir de la coordenada x e y en el momento de la operación de Drag, en este caso se usa en el evento DragOver ( Mientras se hace el arrastre )

Set TreeView1.DropHighlight = TreeView1.HitTest(x, y)

Nota: si se desea también poder hacer un drag drop entre los propios Items o elementos del Treeview, colocar la propiedad OLEDragMode con el valor ccOLEDragAutomatic ( al final de la página hay un simple código fuente que hace un Drag Drop entre los nodos del Treeview )

Código fuente en el formulario

Option Explicit Private Sub Form_Load() Dim i As Integer Dim Nodo As Node 'Agrega algunos items al listbox For i = 0 To 10 List1.AddItem "Item " & i Next 'Permite hacer el Drag para el listbox List1.OLEDragMode = 1 TreeView1.LineStyle = tvwRootLines 'Permite soltar elementos en el Treeview _ en la operación de Drag and Drop TreeView1.OLEDropMode = ccOLEDropManual 'Añade algunos nodos y elementos al TReeView With TreeView1.Nodes For i = 1 To 10 Set Nodo = .Add(, , , "Elemento " & i) .Add Nodo, tvwChild, , " Sub elemento " & i 'Expande los nodos Nodo.Expanded = True Next End With Me.Caption = " Ejemplo de Drag and Drop en un Treeview" End Sub Private Sub List1_MouseDown( _ Button As Integer, _ Shift As Integer, _ x As Single, y As Single) ' Comienza el drag en el listbox List1.OLEDrag End Sub Private Sub TreeView1_OLEDragDrop( _ Data As MSComctlLib.DataObject, _ Effect As Long, _ Button As Integer, _ Shift As Integer, _ x As Single, y As Single) 'Variable para hacer referencia al nodo del treeview Dim Nodo As Node ' DropHighlight devuelve la referencia del nodo _ .. si es que hay uno Set Nodo = TreeView1.DropHighlight Set TreeView1.DropHighlight = Nothing 'Si se soltó en un item le asigna el dato If Not Nodo Is Nothing Then Nodo.Text = Data.GetData(1) End If End Sub Private Sub TreeView1_OLEDragOver( _ Data As MSComctlLib.DataObject, _ Effect As Long, _ Button As Integer, _ Shift As Integer, _ x As Single, y As Single, _ State As Integer) ' si mientras se hace el Drag, el puntero sale del control _ no se le asigna nada If State = vbLeave Then Set TreeView1.DropHighlight = Nothing ' ..Si no devuelve y asigna el nodo correspondiente Else Set TreeView1.DropHighlight = TreeView1.HitTest(x, y) End If End Sub

Drag and Drop entre nodos

Este otro código fuente de ejemplo es de la web de Microsoft , y permite hacer el Drag and drop entre los nodos del control

Descargar ejemplo

vista del formulario para agregar nuevos nodos y poder hacer el drag and drop

Mover la lista en la operación de arrastre

Deslizar las barras de desplazamiento al hacer el drag

Este otro interesante código , muestra como poder , en el momento de realizar la operación de arrastre, deslizar la barra de desplazamiento del control , ya que por defecto las mismas no se deslizan en forma automática

Para esto emplea la función del api SendMessage junto a un control timer y la propiedad DropHighlight del treeview

Descargar

Recursos visual basic - Enlaces relacionados

Buscar en Recursos vb