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

125 - Hacer un Drag and Drop de elementos en un ListView

Contenido

Ejemplo 1 - Drag&Drop de items en Listview
Ejemplo 2 - Mover Items y colocarlos en una posición concreta
Mover y pasar elementos mediante botones
Relacionados

Ejemplo 1 - Drag&Drop de items en Listview

Este ejemplo muestra como poder utilizar los eventos OLESetData y OleDragDrop para realizar un Drag and Drop ( Arrastre de elementos o de Items) desde un ListView hacia otro

Formulario con los ListView

Ejemplo de dragandDrop de items entre controles Listview

El ListView1 debe tener la propiedad OLEDragMode en ccOLEDragAutomatic y el ListView2 la propiedad OLEDropMode en ccOLEDropManual, para habilitar el Drag and Drop respectivamente.

Una ves que se seleccionan los items en el Listview1 y se arrastran al segundo, se dispara en el listview 2 el evento OLEDragDrop.

Cuando llega a la línea ListaItems = Data.GetData(vbCFText) , se dispara el otro evento del Lv1, se recorre la lista de elementos en un For Next, se almacena en una variable de cadena esa lista con los elementos seleccionados, luego vuelve al evento y los agrega.

Nota. Este ejemplo permite seleccionar varios items,y todos los que se arrastren se agregarán al final de la lista, es decir al final del control ListView número 2. Para poder añadirlos en una ubicación concreta, es decir donde se encuentre el mouse, una forma es utilizando el método HitTest en el evento Ole_DragOver visto en el ejemplo siguiente de esta página.

Controles

Colocar 2 ListView
Un Command1

Código fuente en el formulario

Option Explicit Private Sub Command1_Click() ListView2.ListItems.Clear End Sub Private Sub Form_Load() Dim i As Integer Dim UnItem As ListItem With ListView1 'Agregamos algunas columnas .ColumnHeaders.Add , , "Columna 1", 1500 .ColumnHeaders.Add , , "Columna 2", 1500 .ColumnHeaders.Add , , "Columna 3", 1500 'Para permitir seleccionar varios items del ListView .MultiSelect = True 'Vista de reporte .View = lvwReport .GridLines = True 'Para poder arrastrar los items .OLEDragMode = ccOLEDragAutomatic For i = 1 To 25 Set UnItem = .ListItems.Add(, , "Elemento " & i) .ListItems(i).SubItems(1) = "SubItem" Next End With With ListView2 .ColumnHeaders.Add , , "Columna 1", 1500 .ColumnHeaders.Add , , "Columna 2", 1500 .ColumnHeaders.Add , , "Columna 3", 1500 .MultiSelect = True .View = lvwReport .GridLines = True 'Para habilitar el Drop sobre este Listview .OLEDropMode = ccOLEDropManual End With Command1.Caption = " Clear ListView 2 " Me.Caption = " Ejemplo para hacer un Drag - Drop de elementos en un ListView " End Sub Private Sub ListView1_OLESetData(Data As MSComctlLib.DataObject, DataFormat As Integer) Dim i As Integer, sStr As String 'Recorremos todos leos items del ListView y chequeamos cual está seleccionado For i = 1 To ListView1.ListItems.Count If ListView1.ListItems(i).Selected Then 'Creamos una cadena con los Items que luego será separada _ con la función Split If Len(sStr) <> 0 Then sStr = sStr & vbCrLf End If sStr = sStr & ListView1.ListItems(i).Text End If Next 'Establece los datos Data.SetData sStr DataFormat = vbCFText End Sub Private Sub ListView2_OLEDragDrop(Data As MSComctlLib.DataObject, _ Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single) Dim arrayItems() As String, ListaItems As String, objItem As ListItem Dim i As Integer 'Si el dato es de tipo texto If Data.GetFormat(vbCFText) Then 'Consulta en en el evento OleSetdata ListaItems = Data.GetData(vbCFText) 'Recupera los datos y los separa arrayItems = Split(ListaItems, vbCrLf, -1, vbBinaryCompare) 'Recorre el array y Los agrega al Listview2 For i = LBound(arrayItems) To UBound(arrayItems) Set objItem = ListView2.ListItems.Add(, , arrayItems(i)) Next 'Refrescamos ListView2.Refresh End If End Sub

Mover Items y colocarlos en una posición concreta

Este código fuente a diferencia del anterior, permite mover los items desde el control origen ( los que se arrastran ) , hacia el control destino. Al realizar la operación de Drag&Drop de los elementos, se eliminan los items del primer Listview.

También, se pueden colocar los elementos en la posición donde se desee ( La posición del mosue ). Para seleccionar el item mientras se realiza la operación de arrastre, (sobre el Listview número 2), se utiliza la función HitTest del control Listview en el evento OLEDragOver.

vista previa del form de ejemplo

Iniciar un nuevo proyecto y colocar los siguientes controles:

Listview1
Listview2

Código fuente en el Form principal

Option Explicit ' \\ -- Descripción : Mover Items mediante Drag&Drop, desde un ListView hacia otro ' \\ -- Autor : Luciano Lodola -- http://www.recursosvisualbasic.com.ar ' ----------------------------------------------------------------------------- ' ------------------------------------------------------------------------------ ' \\ -- Inicio ' ------------------------------------------------------------------------------ Private Sub Form_Load() Dim i As Integer Dim UnItem As ListItem ' -- Configurar listview Origen With ListView1 ' -- Agregar encabezados .ColumnHeaders.Add , , "Columna 1", 1500 .ColumnHeaders.Add , , "Columna 2", 1500 .ColumnHeaders.Add , , "Columna 3", 1500 ' -- Habilitar la multiselección .MultiSelect = True ' -- Modo reporte .View = lvwReport .GridLines = True .FullRowSelect = True ' -- Habilitar la operación de arrastrar .OLEDragMode = ccOLEDragAutomatic ' -- Agregar elementos For i = 1 To 25 Set UnItem = .ListItems.Add(, , "Elemento " & i) .ListItems(i).SubItems(1) = "SubItem" Next End With ' -- Configurar listview destino With ListView2 ' -- Las columnas .ColumnHeaders.Add , , "Columna 1", 1500 .ColumnHeaders.Add , , "Columna 2", 1500 .ColumnHeaders.Add , , "Columna 3", 1500 ' -- Deshabilitar la multiselección .MultiSelect = False ' -- Otras propiedades .View = lvwReport .GridLines = True .FullRowSelect = True ' -- Habilitar el Drop sobre este Listview .OLEDropMode = ccOLEDropManual End With End Sub ' ------------------------------------------------------------------------------ ' \\ -- Ocurre en el control de origen de la operación arrastrar y colocar de OLE cuando el destino solicita datos que DataObject no ha proporcionado durante el evento OLEDragStart. ' ------------------------------------------------------------------------------ Private Sub ListView1_OLESetData(Data As MSComctlLib.DataObject, DataFormat As Integer) Dim i As Integer Dim sStr As String ' -- Recorrer todos los elementos del ListView y guardar los que se encuentran seleccionados With ListView1 For i = 1 To .ListItems.Count If .ListItems(i).Selected Then If Len(sStr) <> 0 Then sStr = sStr & vbCrLf sStr = sStr & .ListItems(i).Text End If Next End With ' -- Establecer los datos Data.SetData sStr DataFormat = vbCFText End Sub ' ------------------------------------------------------------------------------ ' \\ -- Ocurre cuando se sueltan los datos en el control destino ' ------------------------------------------------------------------------------ Private Sub ListView2_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single) ' -- Variables Dim arrayItems() As String Dim ListaItems As String Dim xLvItem As ListItem Dim i As Integer Dim lItemIndex As Long ' -- Comprobar el formato de los datos (Si el dato es de tipo texto) If Data.GetFormat(vbCFText) Then ' -- Obtener los items y volcarlos a un array ListaItems = Data.GetData(vbCFText) arrayItems = Split(ListaItems, vbCrLf, -1, vbBinaryCompare) ' -- Obtener el índice del primer elemento del Listview destino ( Ubicación donde soltar los datos ) With ListView2 If Not .SelectedItem Is Nothing Then lItemIndex = .SelectedItem.Index Else lItemIndex = .ListItems.Count + 1 End If ' -- Recorre el array y agregar al Listview destino indicando el índice For i = LBound(arrayItems) To UBound(arrayItems) Set xLvItem = .ListItems.Add(lItemIndex, , arrayItems(i)) lItemIndex = lItemIndex + 1 Next End With ' -- Refrescar el control ListView2.Refresh ' -- Eliminar los elementos del listview origen Call Remove_Selected(ListView1) End If End Sub ' -------------------------------------------------------------------------------- ' \\ -- Eliminar items seleccionados ' -------------------------------------------------------------------------------- Private Sub Remove_Selected(ListView As ListView) Dim i As Integer On Error Resume Next With ListView ' -- Recorremos toda la lista For i = 1 To .ListItems.Count ' -- si el elemento está seleccionado ... If .ListItems.Item(i).Selected Then ' -- .. Eliminar .ListItems.Remove (i) ' -- Restamos uno a i para que ya que eliminamos 1 elemento de la lista i = i - 1 ' -- Si i es igual a la cantidad salimos del For If i = ListView1.ListItems.Count Then Exit For End If Next End With On Error GoTo 0 End Sub ' -------------------------------------------------------------------------------- ' \\ -- Seleccionar el elemento de acuerdo a la posición del mouse ( en el listview destino) ' -------------------------------------------------------------------------------- Private Sub ListView2_OLEDragOver(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer) ' -- Obtener el item en el cual el cursor está encima Dim xLvItem As ListItem Set xLvItem = ListView2.HitTest(x, y) ' -- Si el cursor está encima de un item entonces seleccionarlo If Not xLvItem Is Nothing Then xLvItem.Selected = True ListView2.SetFocus End If End Sub

Mover elementos mediante botones

Este otro ejemplo no realiza Drag&Drop, en cambio muestra una forma de mover elementos desde un control hacia el otro, utilizando para ello dos botones.

Para mover y pasar los elementos entre ambos controles, se establece la propiedad Checkboxes en True para poder seleccionarlos.

Nota importante . El ejemplo requiere items con clave.

Vista previa del formulario

Colocar dos ListView y establecerle a ambos la propiedad Checkboxes con el valor True.

Código fuente en el FRM principal

Option Explicit ' \\ -- Descripción : Mover Items mediante Drag&Drop, desde un ListView hacia otro ' \\ -- Autor : Luciano Lodola -- http://www.recursosvisualbasic.com.ar ' ----------------------------------------------------------------------------- ' \\ Declaraciones ( Apis ) ' ------------------------------------------------------------------------------------------ Private Declare Function SetErrorMode Lib "kernel32" (ByVal wMode As Long) As Long Private Declare Sub InitCommonControls Lib "Comctl32" () ' ------------------------------------------------------------------------------ ' \\ -- Función para mover los items ' ------------------------------------------------------------------------------ Private Sub Move_Items(lvOrigen As ListView, LvDestino As ListView) ' -- Variables Dim xLvItem As ListItem ' --- Variable para acceder a los items del listview dentro de la colección Dim ColItems As New Collection ' --- Colección temporal para guardar los items seleccionados Dim xItem As Variant ' --- Variable para recorrer la colección en un For Each With lvOrigen ' -- Recorrer la lista For Each xLvItem In lvOrigen.ListItems ' -- ¿ Está seleccionado .. ? If xLvItem.Checked Then ' -- Mover LvDestino.ListItems.Add , xLvItem.Key, xLvItem.Text ' -- agregar la clave para luego poder eliminar el elemento ColItems.Add xLvItem.Key, xLvItem.Key End If Next ' -- recorrer la colección anterior For Each xItem In ColItems ' -- Eliminar .ListItems.Remove xItem Next ' -- Eliminar la colección Set ColItems = Nothing End With End Sub ' ------------------------------------------------------------------------------ ' \\ -- Botón 1 para mover y copiar los elementos desde el listview 1 hacia el listview 2 ' ------------------------------------------------------------------------------ Private Sub Command1_Click() Call Move_Items(ListView1, ListView2) End Sub ' ------------------------------------------------------------------------------ ' \\ -- Botón 2 para mover y copiar los elementos seleccionados desde el listview 2 hacia el listview 1 ' ------------------------------------------------------------------------------ Private Sub Command2_Click() Call Move_Items(ListView2, ListView1) End Sub ' ------------------------------------------------------------------------------ ' \\ -- Inicio ' ------------------------------------------------------------------------------ Private Sub Form_Initialize() Call SetErrorMode(2) Call InitCommonControls End Sub Private Sub Form_Load() ' -- Configurar listview Origen With ListView1 ' -- Agregar encabezados .ColumnHeaders.Add , , "Nombre del producto", 3500 ' -- Modo reporte .View = lvwReport .FullRowSelect = True Dim sValue As String ' -- Agregar datos ........ sValue = "Impresora Epson lq 670" .ListItems.Add , sValue, sValue sValue = "Impresora HP Photo Smart" .ListItems.Add , sValue, sValue sValue = "Monitor Philips 170 Xs" .ListItems.Add , sValue, sValue sValue = "Cpu Computadora Hp Modelo D 220 Mt Pentium" .ListItems.Add , sValue, sValue sValue = "Lápiz USB Twister" .ListItems.Add , sValue, sValue sValue = "Cámara digital sony dsc S730" .ListItems.Add , sValue, sValue sValue = "Camara digital Sony Cybershot DSC T10" .ListItems.Add , sValue, sValue sValue = "Placa xfx Geforce 8600 GT 256mb ddr3" .ListItems.Add , sValue, sValue sValue = "Router SMC modelo SMC7904WBRA2" .ListItems.Add , sValue, sValue End With ' -- Configurar listview 2 With ListView2 ' -- Las columnas .ColumnHeaders.Add , , "Nombre del producto", 3500 ' -- Otras propiedades .View = lvwReport .FullRowSelect = True End With Command1.Caption = ">" Command2.Caption = "<" End Sub

Enlaces relacionados

Buscar en Recursos vb