RE:Adaptar aplicaion a distintas resoluciones
Hola Jim y los demás:
Estoy programando en 1024*768, pero quiero que mi aplicación se ajuste automáticamente a la resolución del equipo en que corre en un determinado momento, con la sugerencia de Jim escribí el código de más abajo, pero tengo problemas con los controles: si les dejo anchor fijo obvio no quedan en su lugar la trabajar con otra resolución, y si les quito el anchor cuando la resolución es menor no se dibujan.
Alguien tiene alguna idea?
Public Class Form1
Public Const ancho As Integer = 1024
Public Const alto As Integer = 768
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim ancho As Integer = Screen.PrimaryScreen.Bounds.Width
Dim alto As Integer = Screen.PrimaryScreen.Bounds.Height
Dim aux As Integer = 1
'indica como es la pantalla de despliegue respecto a la de programación.
If ancho > 1024 Then
If alto > 768 Then
aux = 1 'ancho mayor, alto mayor
Else
aux = 2 'ancho mayor, alto menor o igual
End If
Else
If alto > 768 Then
aux = 3 'ancho menor o igual, alto mayor
Else
aux = 4 'ancho menor o igual, alto menor o igual
End If
End If
Dim escalador As SizeF
Select Case aux
Case 1 'ancho mayor, alto mayor
escalador = New SizeF(ancho / 1024, alto / 768)
Exit Select
Case 2 'ancho mayor, alto menor o igual
escalador = New SizeF(ancho / 1024, 768 / alto)
Exit Select
Case 3 'ancho menor o igual, alto mayor
escalador = New SizeF(1024 / ancho, alto / 768)
Exit Select
Case 4 'ancho menor o igual, alto menor o igual
escalador = New SizeF(1024 / ancho, 768 / alto)
Exit Select
Case Else
Exit Select
End Select
Me.Scale(escalador)
End Sub
End Class