Visual Basic - Grid Multilineas

Life is soft - evento anual de software empresarial
 
Vista:

Grid Multilineas

Publicado por ChidWist (4 intervenciones) el 31/03/2009 23:58:46
Hola una consulta más. hice una prueba en formatear la cadena que quiero ingresar a una celda de un MSHFlexGrid para que se sea multilínea:

cadena= "cadena1" & vbCrLf & "cadena2"
msfgrid.text=cadena

Pero no la coloca con el salto de línea. Este grid que estoy usando si puede colocar los datos como lo deseo? o ¿estare haciendo algo incorrecto?¿Necesitare habilitar algo del Grid o me podrían indicar como hacerlo? jejejejeje, de ante mano mul gracias muchachos...
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:Grid Multilineas

Publicado por Jimmy T. (134 intervenciones) el 02/04/2009 17:03:43
Pues la respuesta acerca de si haces algo incorrecto es : Sí:

Dim fila As Integer
Dim columna As Integer

Primero establece la propiedad WordWrap del MSHFlexGrid a True

cadena = "cadena1" & vbCrLf & "cadena2" --> hasta aquí vas bien

Para asignar texto se hace de la siguiente manera:

fila = 1
columna = 1

msfgrid.TextMatrix(fila, columna) = cadena

Si no tienes al menos 1 Fixed Row y la propiedad AllowUserResizing establecida en 2 ó 3 para poder cambiar el alto de la celda no prodras ver la celda completa a menos de que tengas un procedimiento que recorra el MSHFlexGrid y lo haga por ejemplo este:

Private Sub AjustarGridA()
Dim alto As Double

With msfgrid
For i = 0 To .Rows - 1
alto = 0

For j = 0 To .Cols - 1
If TextHeight(.TextMatrix(j, i)) > alto Then
alto = TextHeight(.TextMatrix(j, i))
End If
Next j

RowHeight(i) = alto + 250
Next i
End With
End Sub

Espero te sirva Saludos!!
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

RE:Grid Multilineas

Publicado por Jimmy T. (134 intervenciones) el 02/04/2009 17:44:32
En la respuesta que te di hay un pequeño error en el procedimiento que ajusta el alto de la celda:

Cuando pongo .TextMatrix(j,i) en realidad debe ser .TextMatrix(i,j) pues la definición es .TextMatrix(Fila, Columna)

Saludos!!
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

RE:Grid Multilineas

Publicado por ChidWist (4 intervenciones) el 03/04/2009 00:13:24
Muchas Gracias Jimmy!

Lo probare llegando a casa, no habia podido consultar el foro. pero creo que funcionará según me has comentado.

Gracias por tu apoyo y seguiremos en contacto por esta vía....
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