Portal •  Foro •  FAQ •  Buscar •  Temas recientes •  Lista de usuarios •  Registrarse •  Conectarse 
Foro » Gambas » General

Igualar Longitud De Texto Por Alguna Forma O Formato

Responder al tema

Ir a la página Anterior  1, 2

cogier
Citar
Mensajes: 99 Ubicación: Guernsey, Channel Islands
Domingo, 25 Agosto 2019, 16:41
Objetivo: Re: Igualar Longitud De Texto Por Alguna Forma O Formato
Vale, un intento más:

Public Sub Form_Open()
Dim Label1 As Label
Dim gastos As Single = 100993.78
Dim devoluciones As Single = 0
Dim sGastos, sDevoluciones As String
Dim LenGastos, LenDevoluciones As Short

System.Language = "es_ES.UTF-8"

With Label1 = New Label(Me)
.Height = 100
.Width = 500
.X = 10
.Y = 10
.Font = Font["Noto Mono, Bold, 14"] ''Importante
End With

sGastos = Format(gastos, "-#,##0.00 €")
LenGastos = Len(sGastos)

sDevoluciones = Format(devoluciones, "-#,##0.00 €")
LenDevoluciones = Len(sDevoluciones)


Label1.Text = "Nº de movimientos/mes es: " & "39" & "\n" & " Gastado:" & Space(20 - LenGastos) & sGastos & "\n" & "Reembolsado:" & Space(20 - LenDevoluciones) & sDevoluciones


End


label1

Perfil MP  
gambafeliz
Citar
Mensajes: 830
Domingo, 25 Agosto 2019, 17:56
Objetivo: Re: Igualar Longitud De Texto Por Alguna Forma O Formato
cogier escribió: [Ver mensaje]


label1


Aaa la ***** Super ******

Bien no, lo siguiente (Genial !!!!)

Musisimas Gracias, joven. Tu si que vales

-nota: supongo que no me vas a cobrar por ello-

Perfil MP  
gambafeliz
Citar
Mensajes: 830
Domingo, 25 Agosto 2019, 18:05
Objetivo: Re: Igualar Longitud De Texto Por Alguna Forma O Formato
cogier escribió: [Ver mensaje]
Vale, un intento más:

With Label1 = New Label(Me)
.Height = 100
.Width = 500
.X = 10
.Y = 10
.Font = Font["Noto Mono, Bold, 14"] ''Importante
End With
End


label1


cogier mil gracias de verdad.

Permiteme que te aporte una información. Este es mi código actual:

If inidiaext = 0 Then
strTexto = "Nº de movimientos/mes es: [ "
Else
strTexto = "Nº de movimientos/día es: [ "
Endif
Dim cadena1 As String = strTexto & Format(gResultado.Count, "00 ]")
Dim cadena2 As String = "Gastado: " & Format(gastos, "-#,##0.00 €")
Dim cadena3 As String = "Reembolsado: " & Format(Abs(devoluciones), "-#,##0.00 €")
Label1.Font = Font["Noto Mono, Bold, 11"] ''Importante <--------------------------------------------------------------------- Tan solo he añadido esta línea de tu código y todo resuelto.
Label1.Text = cadena1 & "\n\n" & cadena2 & "\n" & cadena3

¿que te parece?

Perfil MP  
shordi
Citar
Mensajes: 4982 Ubicación: Albacete
Domingo, 25 Agosto 2019, 23:04
Objetivo: Re: Igualar Longitud De Texto Por Alguna Forma O Formato
gambafeliz escribió: [Ver mensaje]
shordi escribió: [Ver mensaje]
gambafeliz escribió: [Ver mensaje]

Gracias, shordi, pero, ¿puede ser que no este algo bien?, por ejemplo String(Lenght As Integer, Pattern As String) As String

¿solo pregunto es que no me va o no se aplicarlo?


No, es que se me había olvidado el segundo parámetro al teclear
anchodeseado=30
cadenaconlapasta=" 30,86€"
cadena = "Literal que quiero:"
string(anchodeseado - len(cadena)," ") & cadena & cadenaconlapasta


Yo he hecho esto basado en tus indicaciones:

Dim anchodeseado As Integer = 30
Dim cadenaconlapasta As String = " 30,86€"
Dim cadenaconlapasta1 As String = " 130,86€"
Dim cadenar As String = "Literal que quiero:"
Dim cadenar1 As String = "Literal quiero:"
Label1.text = String(anchodeseado - Len(cadenar), " ") & cadenar & cadenaconlapasta & "\n" & String(anchodeseado - Len(cadenar1), " ") & cadenar1 & cadenaconlapasta1

Lo siento, agradezco tu ayuda, pero no funciona como espero.

Pero shordi ya lo he resuelto de forma airosa, no es la leche de alineación perfecta como "cogier" que ha hecho mas incluso de lo que yo quería. Pero es válido. Al final si sigo avanzando en mi programa, voy hacer un proyecto, gracias a vuestra ayuda muy muy interesante para todos. Y si lo hago, prometo regalarlo a quien le interese.

Nota: El proyecto es mucho mas de lo que te mandé, pero tu has visto su inicio mas simple.

Gracias, cogier y shordi, ok

Por supuesto al textlabel le habías puesto una fuente de paso fijo, claro...

Perfil MP  
Shell
Citar
Mensajes: 5278 Ubicación: Al otro lado de la pantalla
Lunes, 26 Agosto 2019, 08:47
Objetivo: Re: Igualar Longitud De Texto Por Alguna Forma O Formato
Esto..y como siendo valores constantes para algunas cosas, ¿ no usáis Const y preferís Dim ?.
Ancho, alto, etc, etc...

Saludos

Perfil MP   Sitio web
gambafeliz
Citar
Mensajes: 830
Lunes, 26 Agosto 2019, 09:30
Objetivo: Re: Igualar Longitud De Texto Por Alguna Forma O Formato
shordi escribió: [Ver mensaje]

Por supuesto al textlabel le habías puesto una fuente de paso fijo, claro...


Fíjate que por lo que he visto, gracias al aporte de "cogier", lo único que le faltaba a mi código para resolver el problema era decirle al Label1 que debía tener una fuente de paso fijo. Pero aunque alguna vez supongo que lo hice, pues no caí.

Para resumir, el problema no esta en el código sino en la Fuente del Label1 para que todo se vea como estaba pidiendo.

Gracias a todos.

Perfil MP  
Responder al tema
Ir a la página Anterior  1, 2

Página 2 de 2


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 1.0109s (PHP: -91% SQL: 191%)
Consultas SQL: 44 - Debug off - GZIP Activado