Visual Basic.NET - VB .NET Resolucion Automatica

   
Vista:

VB .NET Resolucion Automatica

Publicado por JJBreaker jjbreaker4@hotmail.com (4 intervenciones) el 29/09/2012 18:06:02
E visto algunos post de gente pidiendo este código... así que lo comparto, aclaro que es 100% creado por mi...

1
2
3
4
5
6
7
8
ReadOnly AlturaEscritorio As Double = Screen.PrimaryScreen.Bounds.Height
    ReadOnly AnchuraEscritorio As Double = Screen.PrimaryScreen.Bounds.Width
    Private ResolucionX As Integer = AnchuraEscritorio / 1.5
    Private ResolucionY As Integer = AlturaEscritorio / 2
 
Private Sub CheckRes()
       Form1.Size = New Size(AnchuraEscritorio / 1.5, AlturaEscritorio / 2)
End Sub


Espero les sirva Saludos :)

www.zacurarevelion.es
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder