Ξ  Ampliar / reducir el margen  el Guille, la Web del Visual Basic, C#, .NET y más...

Truco por si asignas la posición del formulario a una guardada y cambias de tipo de pantalla

 
Publicado el 24/Oct/2020
Actualizado el 24/Oct/2020
Autor: Guillermo 'guille' Som

Pues eso… que hace poco mandé al servicio técnico de LG la pantalla externa que conecto a mi ordenador portátil y estoy teniendo problemas cuando abro las aplicaciones que he estado usando con ese monitor, al menos las que tengo programadas para que al cambiar la posición o el tamaño se guardan en un fichero de configuración para cuando cargue de nuevo esa aplicación se muestre donde estuvo la vez anterior. (publicado en mi blog)




 

Este contenido está obtenido de mi blog, la URL original es:
Truco por si asignas la posición del formulario a una guardada y cambias de tipo de pantalla

Pues eso… que hace poco mandé al servicio técnico de LG la pantalla externa que conecto a mi ordenador portátil y estoy teniendo problemas cuando abro las aplicaciones que he estado usando con ese monitor, al menos las que tengo programadas para que al cambiar la posición o el tamaño se guardan en un fichero de configuración para cuando cargue de nuevo esa aplicación se muestre donde estuvo la vez anterior.

Una de las opciones por la que opté fue poner que siempre se mostrasen en el centro de la pantalla, pero con el tamaño indicado en el diseño del formulario.

La idea que se me ha ocurrido esta mañana es la de comprobar dónde está la posición Left y Top guardadas y si estarían fuera del rango de esos mismos valores de las propiedades de el WorkingArea de PrimaryScreen.

Los valores de alto y ancho (Height y Width) no los toco, ya que el usuario podrá cambiar esos tamaños a su antojo, ya que ahora sí que podrá ver la ventana de la aplicación.

Este es el código para Visual Basic con el que hago la comprobación que te he mencionado:

' Asignar el tamaño y última posición
' Comprobar que esté en la parte visible                    (24/Oct/20)
Dim l = cfg.GetValue("Ventana", "Left", Me.Left)
Dim t = cfg.GetValue("Ventana", "Top", Me.Top)
If Screen.PrimaryScreen.WorkingArea.Left < l Then
    Me.Left = cfg.GetValue("Ventana", "Left", Me.Left)
Else
    Me.Left = 0
End If
If Screen.PrimaryScreen.WorkingArea.Top < t Then
    Me.Top = cfg.GetValue("Ventana", "Top", Me.Top)
Else
    Me.Top = 0
End If
Me.Height = cfg.GetValue("Ventana", "Height", Me.Height)
Me.Width = cfg.GetValue("Ventana", "Width", Me.Width)

Los valores de la posición y tamaño del formulario los obtengo de un fichero de configuración y solo asigno el valor Left si la posición Left de WorkingArea es menor, ya que cuando está en el monitor externo (al menos en mi caso) el valor de Left suele ser negativo.
Y con el valor Top hacemos lo mismo, solo asignarlo si no es menor que el valor Top del área de trabajo de la pantalla principal.

 

Y aquí tienes el mismo código para C#:

// Asignar el tamaño y última posición
// Comprobar que esté en la parte visible                    (24/Oct/20)
var l = cfg.GetValue("Ventana", "Left", this.Left);
var t = cfg.GetValue("Ventana", "Top", this.Top);
if (Screen.PrimaryScreen.WorkingArea.Left < l)
    this.Left = cfg.GetValue("Ventana", "Left", this.Left);
else
    this.Left = 0;

if (Screen.PrimaryScreen.WorkingArea.Top < t)
    this.Top = cfg.GetValue("Ventana", "Top", this.Top);
else
    this.Top = 0;

this.Height = cfg.GetValue("Ventana", "Height", this.Height);
this.Width = cfg.GetValue("Ventana", "Width", this.Width);

 

Y esto es todo, espero que te haya sido de utilidad.

 

Nos vemos.
Guillermo



 


Haz tu donativo a este sitio con PayPal
 

Busca en este sitio con Google
 
Google

La fecha/hora en el servidor es: 30/11/2020 11:48:23

La fecha actual GMT (UTC) es: 

©Guillermo 'guille' Som, 1996-2020