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

274 - Drag and Drop en un Listview con el método HitTest

Ejemplo que muestra como hacer un Drag Drop de datos, desde un listbox hacia el item seleccionado de un control ListView

Este ejemplo es practicamente igual a este otro Drag and Drop en TreeView .. pero adaptado para un control ListView

Para poder aceptar una operación de Drop , el control ListView debe tener la propiedad OLEDropMode con el valor ccOLEDropManual.

El ejemplo hace uso de la propiedad DropHighlight y el método HitTest. Con ello se puede hacer referencia al Item seleccionado en el momento que se hace el OleDragOver y el OleDragDrop

Colocar los siguientes controles :

Un control ListBox
y un control ListView.

Código fuente en el formulario

Option Explicit '*************************************************************************** '* Controles necesarios: Un ListView y un ListBox '*************************************************************************** Private Sub Form_Load() Dim i As Integer 'Agrega algunos items al control listbox For i = 0 To 10 List1.AddItem "Item " & i Next 'Permite hacer el Drag para el listbox List1.OLEDragMode = 1 ListView1.View = lvwReport ListView1.ColumnHeaders.Add , , " Columna 1 " 'Permite soltar elementos en el ListView _ en la operación de Drag and Drop ListView1.OLEDropMode = ccOLEDropManual 'Añade algunos items al Listview For i = 1 To 10 ListView1.ListItems.Add , , " Elemento " & i Next Me.Caption = " Ejemplo de Drag and Drop en un Listview " MsgBox "Arrastrar los items desde el List hacia el Listview ", vbInformation End Sub Private Sub List1_MouseDown( _ Button As Integer, _ Shift As Integer, _ x As Single, y As Single) ' Habilita la operación de Drag en el control Listbox List1.OLEDrag End Sub Private Sub Listview1_OLEDragDrop( _ Data As MSComctlLib.DataObject, _ Effect As Long, _ Button As Integer, _ Shift As Integer, _ x As Single, y As Single) 'Variable de objeto para hacer referencia al Item del ListView Dim Un_Item As ListItem ' DropHighlight devuelve la referencia del Item (si es que hay uno) Set Un_Item = ListView1.DropHighlight Set ListView1.DropHighlight = Nothing 'Si se soltó en un item le asigna el dato del ListBox If Not Un_Item Is Nothing Then Un_Item.Text = Data.GetData(1) End If End Sub Private Sub Listview1_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 _ Listview ...no se le asigna nada If State = vbLeave Then Set ListView1.DropHighlight = Nothing ' .. Si no, devuelve y asigna a DropHighlight el item correspondiente _ que lo obtenemos con el método HitTest Else Set ListView1.DropHighlight = ListView1.HitTest(x, y) End If End Sub

Recursos Visual basic - Enlaces relacionados

Buscar en Recursos vb