SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Liquid_Snake en Sábado 24 de Enero de 2004, 07:29

Título: Msflexgrid
Publicado por: Liquid_Snake en Sábado 24 de Enero de 2004, 07:29
Necesito realizar 2 cosas con MsFlexGrid, hace poco empecé a utilizar este control y buen, surgieron dudas:
1. Cómo veo lo que tengo elegido, o sea, con qué puedo hacer el retrieve de mi selección?
2. Cómo puedo guardar la info que tengo en el grid y luego cargarla cuando quiera?.
Sólo eso, gracias por adelantado.
Título: Re: Msflexgrid
Publicado por: Brroz en Lunes 26 de Enero de 2004, 15:21
Hola Liquid_Snake.

1 - Prueba algo de este estilo:
Código: Text
  1.  
  2. Private Sub MSFlexGrid1_SelChange()
  3. Dim intR As Integer, intC As Integer
  4. Dim intStepR As Integer, intStepC As Integer
  5. Dim str1 as String
  6. If MSFlexGrid1.Row > MSFlexGrid1.RowSel Then
  7.    intStepR = -1
  8. Else
  9.    intStepR = 1
  10. End If
  11. If MSFlexGrid1.Col > MSFlexGrid1.ColSel Then
  12.    intStepC = -1
  13. Else
  14.    intStepC = 1
  15. End If
  16. For intR = MSFlexGrid1.Row To MSFlexGrid1.RowSel Step intStepR
  17.    For intC = MSFlexGrid1.Col To MSFlexGrid1.ColSel Step intStepC
  18.       str1 = str1 & MSFlexGrid1.TextMatrix(intR, intC) & "&#59; "
  19.    Next intC
  20. Next intR
  21. MsgBox Left(str1, len(str1) - 3)
  22. End Sub
  23.  
  24.  
El código recorre la selección mostrando en un cuadro de diálogo el valor de las celdas seleccionadas.

2 - Usa la misma filosofia: utiliza la propiedad TextMatrix para obtener/asignar valores por fila y columna. Para almacenar los datos, valora tu mismo que es lo que te coviene (archivo de texto, tabla, etc...).

Suerte.
Título: Re: Msflexgrid
Publicado por: Liquid_Snake en Lunes 26 de Enero de 2004, 16:16
Mil gracias :D