Al otro lado de la pantalla
Estaba haciendo algún ejemplo para el blog y me encontré alguna duda con el componente Label.
Lo que quiero es que la palabra que esta dentro de la etiqueta se expanda tanto horizontalmente como verticalmente al
tamaño de la pantalla.
Supongamos el caso de solo lo hago con la etiqueta y el tamaño de un formulario.Bien.
PUBLIC SUB Form_Open()
'Quiero que el componente etiqueta ocupe el formulario completo y que
'el tamaño de la fuente se expanda al maximo en el eje horizontal y vertical
'No estoy contemplando que la palabra sea muy larga y no quepa en la pantalla
'No quiero usar una palabra demasiado grande
ME.Arrangement = Arrange.Fill
'Damos un contenido a la propiedad text de etiqueta
lbEjemplo.Text = "ejemplo"
'Sea el contenido que sea de la etiqueta la convertimos a mayúscula.
'Para una conversión mas correcta del código de los caracteres debemos usar la función string
lbEjemplo.Text = String.UCase(lbEjemplo.Text)
'Alineamos su contenido al centro
lbEjemplo.Alignment = Align.Center
'Adapto el tamaño de la fuente al alto del formulario
lbEjemplo.Font.Size = ME.Height
'Primer intento.Esto no logra el efecto deseado
'ME.Width = lbEjemplo.Width
'ME.Height = lbEjemplo.Height
'El tamaño de la fuente es mas ancha que el contenido de la etiqueta
'Segundo intento
'Como quiero que la fuente ocupe todo el alto y ancho del formulario
'ajustamos el tamaño del formulario al ancho y alto de la fuente
'La etiqueta de por si esta expandida al tamaño del formulario llenándolo
'"FMain.Arrangement" esta a Fill
'Si estuviéramos en pantalla completa esto no tendría efecto
ME.Width = lbEjemplo.Font.Width(lbEjemplo.Text)
ME.Height = lbEjemplo.Font.Height(lbEjemplo.Text)
END
'Quiero que el componente etiqueta ocupe el formulario completo y que
'el tamaño de la fuente se expanda al maximo en el eje horizontal y vertical
'No estoy contemplando que la palabra sea muy larga y no quepa en la pantalla
'No quiero usar una palabra demasiado grande
ME.Arrangement = Arrange.Fill
'Damos un contenido a la propiedad text de etiqueta
lbEjemplo.Text = "ejemplo"
'Sea el contenido que sea de la etiqueta la convertimos a mayúscula.
'Para una conversión mas correcta del código de los caracteres debemos usar la función string
lbEjemplo.Text = String.UCase(lbEjemplo.Text)
'Alineamos su contenido al centro
lbEjemplo.Alignment = Align.Center
'Adapto el tamaño de la fuente al alto del formulario
lbEjemplo.Font.Size = ME.Height
'Primer intento.Esto no logra el efecto deseado
'ME.Width = lbEjemplo.Width
'ME.Height = lbEjemplo.Height
'El tamaño de la fuente es mas ancha que el contenido de la etiqueta
'Segundo intento
'Como quiero que la fuente ocupe todo el alto y ancho del formulario
'ajustamos el tamaño del formulario al ancho y alto de la fuente
'La etiqueta de por si esta expandida al tamaño del formulario llenándolo
'"FMain.Arrangement" esta a Fill
'Si estuviéramos en pantalla completa esto no tendría efecto
ME.Width = lbEjemplo.Font.Width(lbEjemplo.Text)
ME.Height = lbEjemplo.Font.Height(lbEjemplo.Text)
END
Y ahora en pantalla completa. Recordad para salir ALT-Tabulador.
PUBLIC SUB Form_Open()
'Quiero que el componente etiqueta ocupe toda la pantalla.
'el tamaño de la fuente se expanda al maximo en el eje horizontal y vertical
'No estoy contemplando que la palabra sea muy larga y no quepa en la pantalla
'No quiero usar una palabra demasiado grande
ME.Arrangement = Arrange.Fill
ME.FullScreen = TRUE
'Damos un contenido a la propiedad text de etiqueta
lbEjemplo.Text = "ejemplo"
'Sea el contenido que sea de la etiqueta la convertimos a mayuscula.
'Para una conversión mas correcta del código de los caracteres debemos usar la función string
lbEjemplo.Text = String.UCase(lbEjemplo.Text)
'Alineamos su contenido al centro
lbEjemplo.Alignment = Align.Center
'Adapto el tamaño de la fuente al alto del formulario
lbEjemplo.Font.Size = ME.Height
END
'Quiero que el componente etiqueta ocupe toda la pantalla.
'el tamaño de la fuente se expanda al maximo en el eje horizontal y vertical
'No estoy contemplando que la palabra sea muy larga y no quepa en la pantalla
'No quiero usar una palabra demasiado grande
ME.Arrangement = Arrange.Fill
ME.FullScreen = TRUE
'Damos un contenido a la propiedad text de etiqueta
lbEjemplo.Text = "ejemplo"
'Sea el contenido que sea de la etiqueta la convertimos a mayuscula.
'Para una conversión mas correcta del código de los caracteres debemos usar la función string
lbEjemplo.Text = String.UCase(lbEjemplo.Text)
'Alineamos su contenido al centro
lbEjemplo.Alignment = Align.Center
'Adapto el tamaño de la fuente al alto del formulario
lbEjemplo.Font.Size = ME.Height
END
No se ve, que la fuente puede tomar tanto el tamaño horizontal de la etiqueta como el vertical.
Saludos.
