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.
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.
Última modificación: 08-04-2021, 12:45 por gambafeliz.
...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« Los horizontes perdidos nunca regresan. » (F. Battiato, 1983)
« Las ondas nunca regresan. » (Genesis: Ripples, 1976)
« Vita non suavis esse potest, nec Mors amara. » (...vuott)
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(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
Última modificación: 07-04-2021, 18:20 por gambafeliz.
vuott, Por fin ...
Al final he conseguido que funcione tu código pero tengo que añadir una línea antes de:
Gracias vuott
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 textoGracias vuott
Última modificación: 08-04-2021, 12:49 por gambafeliz.