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

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

125 - Hacer un Drag and Drop de elementos en un 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.

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

Buscar en Recursos vb