Publicentral.com - promocion,paginas,web,tutores,publicentralPromocion de paginas webs
Mostrando Codigo - Visual Basic
Code

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.
Visitas: 40,591 - 19/01/2006 21:46:06
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
EXPLICACION
Tenemos que crear un formulario e introducir una etiqueta llamada label1
CODIGO


// Codigo ofrecido por Tutores.org

  1. Private Sub Form_Load()
  2.     Dim x As Integer, y As Integer
  3.     x = Screen.Width Screen.TwipsPerPixelX
  4.     y = Screen.Height Screen.TwipsPerPixelY
  5.     Label1 = "La resolucion de tu pantalla es  " & x & " x " & y
  6. 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 -->
COMENTARIOS
Comentario usuario
jonsen
2 5
Va perfecto. Gracias
Comentario usuario
14-05-2008 20:31:31
3 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 :)
Comentario usuario
27-06-2008 22:58:53
4 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)
Comentario usuario
08-12-2012 20:48:48
1 5
y cual es el imports que hay que usar
Comentario usuario
mistica
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
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.