VB .NET Resolucion Automatica
Publicado por JJBreaker (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...
Espero les sirva Saludos :)
www.zacurarevelion.es
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
0