Foros del Web » Programación para mayores de 30 ;) » .NET »

Resolución de pantallas

Estas en el tema de Resolución de pantallas en el foro de .NET en Foros del Web. Amigos tengo el instalador de mi sistema creado en .NET y al momento de ejecutarlo en mi pc (donde desarrolle mi sistema) todo bien. Pero ...
  #1 (permalink)  
Antiguo 18/07/2012, 19:29
 
Fecha de Ingreso: octubre-2007
Mensajes: 59
Antigüedad: 17 años
Puntos: 0
Resolución de pantallas

Amigos tengo el instalador de mi sistema creado en .NET y al momento de ejecutarlo en mi pc (donde desarrolle mi sistema) todo bien.
Pero cuando lo instalo en una laptop como que se desordena un poco y supongo que sera por la resolucion de las pantallas de laptops.
Algunas sugerencias de como crear programas con .net y que mantenga un orden al instalarlo ya sea en pc de escritorio o laptops.
Gracias.
  #2 (permalink)  
Antiguo 19/07/2012, 17:02
 
Fecha de Ingreso: julio-2012
Ubicación: Distrito Federal
Mensajes: 7
Antigüedad: 12 años, 4 meses
Puntos: 0
Sonrisa Respuesta: Resolución de pantallas

Hola a mi tambien me sucedio algo parecido a tu problema yo lo que hice fue hacer una funcion , bueno esa funcion la agrego en un modulo tal y como te lo muestro :

Código:
Imports System.Drawing
Module ajustar_lapantalla
    Public Function ajustar_pantalla(ByVal forma As System.Windows.Forms.Form) As Form


        'ESTA FUNCION ADAPTA TODOS LOS CONTROLES DE UNA FORMA A LA RESOLUCION DE LA PANTALLA



        Dim z As Double

        Dim intX As Integer = Screen.PrimaryScreen.WorkingArea.Width

        Dim intY As Integer = Screen.PrimaryScreen.WorkingArea.Height

        z = (((intX) ^ 2 + (intY) ^ 2) ^ 0.5) / (((forma.Size.Width) ^ 2 + (forma.Size.Height) ^ 2) ^ 0.5)


        Dim ciclo = 0


        Do While ciclo < forma.Controls.Count

            forma.Controls.Item(ciclo).Size = New Size(((forma.Controls.Item(ciclo).Size.Width * intX) / forma.Size.Width), ((forma.Controls.Item(ciclo).Size.Height * intY) / forma.Size.Height))

            forma.Controls.Item(ciclo).Location = New Point(((forma.Controls.Item(ciclo).Location.X * intX) / forma.Size.Width), ((forma.Controls.Item(ciclo).Location.Y * intY) / forma.Size.Height))

            forma.Controls.Item(ciclo).Font = New System.Drawing.Font(forma.Controls.Item(ciclo).Font.FontFamily, (forma.Controls.Item(ciclo).Font.Size * z))

            ciclo = ciclo + 1



        Loop


        forma.Size = New System.Drawing.Size(intX, intY)



        Return forma
    End Function


End Module
DESPUES DE CREAR LA FUNCION SOLAMENTE LA INVOCAS EN EL EVENTO LOAD DE TU FORMULARIO SERIA ALGO PARECIDO A LO SIGUIENTE:

Código:
 Private Sub Form_menu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ajustar_pantalla(Me)
   
    End Sub
ESPERO Y TE SEA DE AYUDA SALUDOS
  #3 (permalink)  
Antiguo 21/07/2012, 21:31
 
Fecha de Ingreso: octubre-2007
Mensajes: 59
Antigüedad: 17 años
Puntos: 0
Respuesta: Resolución de pantallas

OscarSoftwares no pude notar el cambio. La idea es que mi sistema se adapte a cualquier resolución de una PC o laptop. Estuve jugando un poco con la propiedad Anchor de los controles pero aun así cada vez q cambio de resolución (desde la más cercana hasta la más lejana algunos controles se desordenan).
Alguien conoce algo bien práctico.
Gracias.

Etiquetas: net, pantallas, resolución
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 11:21.