Visual Basic - Obtener la resolucion de la pantalla
Códigos Visual Basic
Simple demostracion de como podriamos obtener la resolucion de pantalla en visual basic.
Tutores.org
Mostrando Codigo - Visual Basic
EXPLICACION
Tenemos que crear un formulario e introducir una etiqueta llamada label1
CODIGO
// Codigo ofrecido por Tutores.org
- Private Sub Form_Load()
- Dim x As Integer, y As Integer
- x = Screen.Width Screen.TwipsPerPixelX
- y = Screen.Height Screen.TwipsPerPixelY
- Label1 = "La resolucion de tu pantalla es " & x & " x " & y
- End Sub
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Obtener la resolucion de la pantalla" href="http://www.tutores.org/codigo/1596/" target="_blank">Obtener la resolucion de la pantalla</a>
<!-- Final enlace Tutores.org -->
<a title="Tutores.org - Obtener la resolucion de la pantalla" href="http://www.tutores.org/codigo/1596/" target="_blank">Obtener la resolucion de la pantalla</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
alberto
14-05-2008 20:31:31
1
5
hola que tal intente usar tu ejemplo en vb.net pero me da error en screen, sabras a que se deba ??
Gracias por la informacion :)
Gracias por la informacion :)
Comentario usuario
Jonathan
27-06-2008 22:58:53
3
5
Dim x, y As Short
x = VB6.PixelsToTwipsX(System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width) VB6.TwipsPerPixelX
y = VB6.PixelsToTwipsY(System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height) VB6.TwipsPerPixelY
msgbox( "" & x & "x" & y)
x = VB6.PixelsToTwipsX(System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width) VB6.TwipsPerPixelX
y = VB6.PixelsToTwipsY(System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height) VB6.TwipsPerPixelY
msgbox( "" & x & "x" & y)
Comentario usuario
misticamistica
3
5
El imports que se usa es el siguiente:
Imports System.Windows.Forms
pero este codigo no funcionaba muy bien, pues solo me tomaba 1 resolucion y luego si cambiaba esta la pantalla me tomaba la antigua.
Sique aca dejo un codigo que me sirvio de modo que cambiaba la resolucion y no existia problema
Dim theScreenBounds As Rectangle
theScreenBounds=Screen.GetBounds(Screen.PrimaryScreen.Bounds)
Donde se encuentran las propiedades.
theScreenBounds.Width
theScreenBounds.Height
Imports System.Windows.Forms
pero este codigo no funcionaba muy bien, pues solo me tomaba 1 resolucion y luego si cambiaba esta la pantalla me tomaba la antigua.
Sique aca dejo un codigo que me sirvio de modo que cambiaba la resolucion y no existia problema
Dim theScreenBounds As Rectangle
theScreenBounds=Screen.GetBounds(Screen.PrimaryScreen.Bounds)
Donde se encuentran las propiedades.
theScreenBounds.Width
theScreenBounds.Height
INSERTAR COMENTARIO