Hola
Necesito tener una columna de Celdas de esta forma:
Esto es una celda compuesta por dos números que a su vez los separa con gb.CrLf
10.000
10.000
¿Esto es posible hacerlo?
¿Como?
Gracias.
...usando la Propiedad ".RichText" y TAG HTML:
GAMBAS
.Rows.Count = 3
.Columns.Count = 3
GridView1[0, 0].RichText = "10000<BR><FONT Size=1>10000"
GridView1.Columns[0].Width = -1
GridView1.Rows[0].Height = -1
Prueba esto. Hay 2 celdas, pero sólo puedes ver una.
GAMBAS
BuildForm
AddData
For iLoop
= 10000 To 10020 GridView1
[iRow,
0].
Text = Str(iLoop
) GridView1
[iRow,
0].
Font.
Size = 16 GridView1
[iRow,
0].
Border = New Border
("style:none plain none plain") GridView1
[iRow,
0].
Text = Str(iLoop
) GridView1
[iRow,
0].
Font.
Size = 8 GridView1
[iRow,
0].
Border = New Border
("style:none plain plain plain")
.H = 450
.W = 450
.Arrangement = Arrange.Vertical
.Padding = 5
.Columns.Count = 1
(07-04-2021, 16:18)vuott escribió: [ -> ]...usando la Propiedad ".RichText" y TAG HTML:
Gracias vuott pero por alguna razón que desconozco no me funciona tu caso y este fue mi primera opción antes de preguntar en el foro ya que a mi también me pareció lógico probar. Pero no, no me ha funcionado. ¿Es posible que sea un problema de mi IDE de Gambas?
Gracias cogier y me alegra poder hablar nuevamente contigo.
No entiendo tu código y sinceramente no se adaptarlo al mio. Perdón pero me parece que tu estas en otro nivel
Si se te ocurre como puedo hacerlo, pues ya me cuentas.
De todas formas yo seguiré probando tu código para ver si lo veo.
Mil gracias a los dos

vuott, Por fin ...
Al final he conseguido que funcione tu código pero tengo que añadir una línea antes de:
GAMBAS
'con esta línea siguiente me funciona bien. Esta línea es efectiva para todos los casos, osea,
'cuando la celda esta con datos o vacía
GridView1[0,0].Text = "" '<-- a esta línea me refiero, ojo, tengo en la celda datos antes, no estaba vacía
GridView1[0, 0].RichText = sCadena1 & "<BR><FONT Size=1>" & sCadena2 'esto lo resuelve la línea anterior, si ya contiene datos previos.
GridView1[0, 0].RichText = "10000<BR><FONT Size=1>10000" 'siempre funciona si la celda no contiene ningún dato o texto
Gracias vuott