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

149 - Arrastrar columnas en un FlexGrid

Este ejemplo muestra como poder hacer un Drag and Drop o arrastre de columnas en un control FlexGrid

En el ejemplo , el control FlexGrid está enlazado a un control Data para hacerlo mas simple.

Al presionar un Command1 se llama a una rutina llamada Cargar_FlexGrid en el cual se le debe enviar el control FlexGrid, la ruta de la base de datos, la sentencia sql y el control Data, por ejemplo:

Call Cargar_FlexGrid(Path, "Select * From Authors", Data1, MSFlexGrid )

También hay que indicar en la propiedad DataSource del control FlexGrid el control Data, en este caso es un Data1

Una cosa importante es que se debe indicar en la propiedad DragIcon, un archivo de cursor para que se visualice mientras se arrastra la columna, por ejemplo:

MSFlexGrid1.DragIcon = LoadPicture("c:\icono-drag.ico")

Para el ejemplo colocar

Un control MsFlexgrid
Un Command1
Un Data

pegar el siguiente código fuente en un formulario:

Option Explicit Private Sub Command1_Click() Dim Path As String Path = "C:\Archivos de programa\Microsoft Visual Studio\VB98\Biblio.mdb" Call Cargar_FlexGrid( _ Path, _ "Select * From Authors", _ Data1, _ MSFlexGrid1) End Sub Private Sub Form_Load() Command1.Caption = " Cargar datos en el FlexGrid " 'Opcional: Acá especificar el Icono a mostrar cuando se haga _ el drag de la columna del Flexgrid MSFlexGrid1.DragIcon = LoadPicture("c:\icono-drag.ico") End Sub Private Sub MSFlexGrid1_DragDrop( _ Source As VB.Control, _ X As Single, _ Y As Single) With MSFlexGrid1 If .Tag = "" Then Exit Sub End If .Redraw = False .ColPosition(Val(.Tag)) = .MouseCol Call Ordenar(MSFlexGrid1) .Redraw = True End With End Sub Private Sub MSFlexGrid1_MouseDown( _ Button As Integer, _ Shift As Integer, _ X As Single, _ Y As Single) With MSFlexGrid1 .Tag = "" If .MouseRow <> 0 Then Exit Sub End If .Tag = Str(.MouseCol) .Drag 1 End With End Sub Private Sub Cargar_FlexGrid( _ p As String, _ s As String, _ Data As Data, _ FlexGrid As MSFlexGrid) Dim i As Integer On Error GoTo errSub Data.DatabaseName = p FlexGrid.Redraw = False With FlexGrid .Row = 0 .ColAlignment(0) = 7 For i = 0 To .Cols - 1 .Col = i .CellFontSize = 14 .CellAlignment = 4 .MergeCol(i) = True .ColWidth(i) = 2200 Next i .MergeCells = flexMergeRestrictColumns End With Data.RecordSource = s Call Ordenar(FlexGrid) Data.Refresh FlexGrid.Redraw = True Exit Sub errSub: MsgBox Err.Number & " " & Err.Description End Sub Sub Ordenar(FlexGrid As MSFlexGrid) With FlexGrid .Col = 0 .ColSel = .Cols - 1 .Sort = 1 End With End Sub

Buscar en Recursos vb