Pasar datos desde un Textbox hacia un FlexGrid

[erbuson]

Aqui te dejo una rutina para crear facilmente las columnas de un Grid

Código:

Public Sub GridTitulos(Grid As MSFlexGrid, Titulos As String)
  ' Crea los títulos de un MsFlexgrid, añadiendo las columnas si hace falta
  ' Formato de Titulo por cada Columna es Ancho # Cabecera Ajuste (<Izquierda, >Derecha =Centro)
  
  ' Ejemplo de utilizacion Call GridTitulos(MSFlexGrid1, "40#Nombre<;10#NIF>;8#Fecha=")
  
  Dim Separador As Integer, Columna As Single, Titulo() As String
  Titulo = Split(Titulos, ";")
  For Columna = 0 To UBound(Titulo)
    If Columna > Grid.Cols - 1 Then Grid.Cols = Columna + 1
    Separador = InStr(Titulo(Columna), "#")
    Grid.ColWidth(Columna) = Val(Left$(Titulo(Columna), Separador)) * 120
    Grid.ColData(Columna) = Grid.ColWidth(Columna)
    Titulo(Columna) = Mid$(Titulo(Columna), Separador + 1)
    Grid.FixedAlignment(Columna) = flexAlignCenterCenter
    If Right$(Titulo(Columna), 1) = "=" Then
      Grid.ColAlignment(Columna) = flexAlignCenterCenter
      Titulo(Columna) = Left$(Titulo(Columna), Len(Titulo(Columna)) - 1)
    ElseIf Right$(Titulo(Columna), 1) = "<" Then
      Grid.ColAlignment(Columna) = flexAlignLeftCenter
      Titulo(Columna) = Left$(Titulo(Columna), Len(Titulo(Columna)) - 1)
    ElseIf Right$(Titulo(Columna), 1) = ">" Then
      Grid.ColAlignment(Columna) = flexAlignRightCenter
      Titulo(Columna) = Left$(Titulo(Columna), Len(Titulo(Columna)) - 1)
    End If
    Grid.TextMatrix(0, Columna) = Titulo(Columna)
  Next
End Sub

Como puedes ver te puede resultar bastante práctica si utilizas muchos Grids