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

222 - Drag and Drop entre un ListBox y un FlexGrid

Ejemplo para poder arrastrar elementos desde un control ListBox hacia un control MsFlexGrid

Controles:

Colocar en un formulario un control FlexGrid }
un control Listbox.

Código fuente en un formulario

Option Explicit Private Sub MSHFlexGrid1_DragDrop( _ Source As Control, _ X As Single, Y As Single) Dim la_columna As Long Dim la_Fila As Long Dim pos_x As Single Dim pos_y As Single With MSHFlexGrid1 pos_x = X / .CellWidth pos_y = Y / .CellHeight la_columna = Fix(pos_x) la_Fila = Fix(pos_y) If la_columna >= .Cols Then la_columna = .Cols - 1 End If If la_Fila >= .Rows Then la_Fila = .Rows - 1 End If If la_Fila = 0 Then la_Fila = 1 End If ' Asignar el elemento del listbox a la celda .TextMatrix(la_Fila, la_columna) = Source End With End Sub Private Sub Form_Load() Dim i As Integer 'Agregar algunos datos al control Listbox For i = 0 To 10 List1.AddItem i Next 'Indicar la ruta del Archivo de ícono para el Drag ( DragIcon ) List1.DragIcon = LoadPicture("C:\WINDOWS\cursores\harrow.cur") With MSHFlexGrid1 'Agrega algunas columas, filas y datos .Cols = 4 .Rows = 8 .FixedCols = 0 ' sin Fixed .FixedRows = 1 ' cols .TextMatrix(0, 0) = " Columna 1 " .TextMatrix(0, 1) = " Columna 2 " .TextMatrix(0, 2) = " Columna 3 " .TextMatrix(0, 3) = " Columna 4 " End With End Sub Private Sub List1_MouseDown( _ Button As Integer, _ Shift As Integer, _ X As Single, Y As Single) ' comienza el Drag List1.Drag vbBeginDrag End Sub

Buscar en Recursos vb