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

245 - FlexGrid a portapapeles

Ejemplo que recorre un control Flexgrid y va almacenando los registros en una cadena, y luego la pasa al portapapeles

Este es un ejemplo simple que demuestra el uso de la propiedad textMatrix para recorrer el conjunto de datos del control.

En el código se muestra como recorrer las filas, y consultando dicha propiedad dentro del bucle ForNext, recuperar el texto de la fila y columna actual para almacenarla en una variable String, separando cada dato mediante un ; como un archivo cvs, es decir la salida sería por ejemplo :

vista de los datos pasados al ClipBoard

Controles

Colocar un control FlexGrid llamado MsFlexGrid1
un Command1

Código fuente en el formulario

Option Explicit ' Rutina que copia el MsFlexgird al clipboard '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub Copiar_Clipboard(FlexGrid As Object) On Error GoTo ErrSub Dim Columna As Long Dim Fila As Long Dim Datos As String Datos = vbNullString ' verifica que el flexgrid tenga datos If MSFlexGrid1.Rows < 1 Then MsgBox " No hay datos en el FlexGrid para copiar", vbExclamation Exit Sub End If 'Recorre las filas del Flexgrid For Fila = 0 To MSFlexGrid1.Rows - 1 'Recorre las columnas del MsFlexgrid For Columna = 0 To MSFlexGrid1.Cols - 1 Datos = Datos & MSFlexGrid1.TextMatrix(Fila, Columna) & ";" Next Columna ' Almacena el dato y un salto de carro para el siguiente Datos = Datos & vbNewLine Next Fila ' limpia los datos previos del portapapeles Clipboard.Clear 'Pega los datos en el portapapeles Clipboard.SetText Datos MsgBox "Las filas del Flexgrid se copiaron al portapapeles ", vbInformation Exit Sub ' error ErrSub: MsgBox " Número de error: " & Err.Number & vbNewLine & _ " Descripción del error: " & Err.Description, vbCritical End Sub ' botón que le envía el MsFlexgird para copiarlo al portapapeles '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command1_Click() Copiar_Clipboard MSFlexGrid1 End Sub Private Sub Form_Load() Dim i As Integer MSFlexGrid1.Cols = 2 MSFlexGrid1.Rows = 1 ' agrega dos columnas al flexgrid MSFlexGrid1.FormatString = "Columna1 | Columna2" ' añade algunos datos For i = 1 To 12 MSFlexGrid1.AddItem i & vbTab & MonthName(i) Next End Sub

Recursos vb 6.0 - Enlaces relacionados

Recursos Visual basic.NET - enlaces relacionados

Trabajar con el Portapapeles o clipboard en Vb.NET

Buscar en Recursos vb