Visual Basic - Duda con el MSFlexGrid

Life is soft - evento anual de software empresarial
 
Vista:

Duda con el MSFlexGrid

Publicado por Oraldo López (10 intervenciones) el 04/11/2003 19:36:08
Saludos amigos del foro de VB:
La duda es la siguiente, estoy trabajando con VB6.0 y en una grilla tipo MSFlexGrid tengo una serie de registros que quisiera copiar y pegar en una de Ecxel o en cualquier aplicación. Los registros se seleccionan (pintan) uso Ctrl + C para copiar y despues Ctrl + V para pegar pero no pasa nada.
¿Alguien puede iluminarme en este asunto?

Desde ya, muy agradecido.

Saludos desde Don Torcuato - Pcia. de Bs. As. - Argentina
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Duda con el MSFlexGrid

Publicado por Ivette (28 intervenciones) el 04/11/2003 21:03:02
Hola, mira el c+odigo que me hizo favor de proporcionarme un compañero de la web del programador es el siguiente; requieres usar un command bottom o ya pensarás en otra alternativa, el código es el siguiente:
dim MiString as string

MiString = MiString & MiGrid.Clip
Clipboard.Clear
Clipboard.SetText MiString

Dim i As Integer
Dim j As Integer

'COPIA LOS ENCABEZADOS
col1 = IIf(MiGrid.Col < MiGrid.ColSel, MiGrid.Col, MiGrid.ColSel)
col2 = IIf(MiGrid.Col > MiGrid.ColSel, MiGrid.Col, MiGrid.ColSel)
For i = 0 To MiGrid.FixedRows - 1
For j = col1 To col2
MiString = MiString & MiGrid.TextMatrix(i, j)
If j < col2 Then MiString = MiString + vbTab
Next j
MiString = MiString + vbCr
Next i
Nota: la persona que me proporcionó el código fue: Oskar GG

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar