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:

Código:

Public Sub Form_Open()

  With GridView1
    .Rows.Count = 3
    .Columns.Count = 3
  End With
 
  GridView1[0, 0].RichText = "10000<BR><FONT Size=1>10000"
  GridView1.Columns[0].Width = -1
  GridView1.Rows[0].Height = -1

End

Prueba esto. Hay 2 celdas, pero sólo puedes ver una.

Código:

GridView1 As GridView

Public Sub Form_Open()

  BuildForm
  AddData

End

Public Sub AddData()

  Dim iLoop, iRow As Integer

  For iLoop = 10000 To 10020
    Inc GridView1.Rows.Count
    GridView1[iRow, 0].Text = Str(iLoop)
    GridView1[iRow, 0].Font.Size = 16
    GridView1[iRow, 0].Font.Bold = True
    GridView1[iRow, 0].Border = New Border("style:none plain none plain")
    Inc GridView1.Rows.Count
    Inc iRow
    GridView1[iRow, 0].Text = Str(iLoop)
    GridView1[iRow, 0].Font.Size = 8
    GridView1[iRow, 0].Border = New Border("style:none plain plain plain")
    Inc iRow
  Next

End

Public Sub BuildForm()

  With Me
    .H = 450
    .W = 450
    .Arrangement = Arrange.Vertical
    .Padding = 5
  End With

  With GridView1 = New GridView(Me) As "GridView1"
    .Expand = True
    .Columns.Count = 1
    .Grid = False
  End With

End

...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

¿Es posible que sea un problema de mi IDE de Gambas?

No se... pueder ser.

vuott, Por fin ...

Al final he conseguido que funcione tu código pero tengo que añadir una línea antes de:

Código:

Dim sCadena1 As String = "10000"
Dim sCadena2 As String = "10000"
'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