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

450 - Seleccionar rango de celdas en Flexgrid

Ejemplo que usa las propiedades Row, Col, RowSel y ColSel para seleccionar un rango de celdas en una grilla de tipo flexgrid.

Luego se copia el rango seleccionado a otra grilla

Nota . Así como está el ejemplo, solo se copia el rango de datos, si en el primer Flexgrid hay mas de una columna seleccionada

Controles

Microsoft Flexgrid 1
Microsoft Flexgrid 2
Command1
Command2

Código fuente en un form

Private Sub Command1_Click() ' selecciona el rango desde la fila 3 de la primer columna _ hasta la fila 6 de la columna 1 With MSFlexGrid1 .Col = 0 .Row = 3 .ColSel = 1 .RowSel = 6 ' Establece la fila superior mostrada en el FlexGrid .TopRow = .Row .SetFocus End With End Sub Private Sub Command2_Click() With MSFlexGrid2 ' borra la grilla .Clear ' si el rango es de una sola columna sale If MSFlexGrid1.ColSel = MSFlexGrid1.Col Then .Rows = 1 .Cols = MSFlexGrid1.Cols Exit Sub End If ' encabezado igual al MSFlexGrid1 .FormatString = MSFlexGrid1.FormatString 'Asigna la cantidad de filas seleccionadas del rango .Rows = Abs(MSFlexGrid1.RowSel - MSFlexGrid1.Row) + 2 .FixedCols = MSFlexGrid1.FixedCols .FixedRows = MSFlexGrid1.FixedRows .Row = 1 .Col = 0 .RowSel = .Rows - 1 .ColSel = .Cols - 1 ' copia los datos al otro flexgrid .Clip = MSFlexGrid1.Clip .ColWidth(0) = 3500 .ColWidth(1) = 1000 End With End Sub Private Sub Form_Load() With MSFlexGrid1 .FixedCols = 0 .Rows = 1 ' añade dos columnas .FormatString = "Dias del mes | Saldo" Dim i As Integer Dim fecha As Date fecha = "01/01/2007" ' llena la grilla con algunos valores For i = 1 To 30 .AddItem CStr(FormatDateTime(fecha + i, vbShortDate)) & _ vbTab & FormatCurrency(i * 100 * Rnd(5)) Next ' ancho de las cols. .ColWidth(0) = 3500 .ColWidth(1) = 1000 End With Command1.Caption = "Seleccionar rango" Command2.Caption = "Copiar rango a Flexgrid 2" End Sub

Recursos vb 6.0 - Enlaces relacionados

MSFlexgrid - Ejemplos

Buscar en Recursos vb