Publicentral.com - Promocion en cientos de buscadoresPromocion en cientos de buscadores
Mostrando Codigo - Visual Basic
Code

Visual Basic - Modificar resolucion de pantalla

Códigos Visual Basic

El codigo muestra como cambiar la resolucion de pantalla en pixeles o pixels En el ejemplo hemos puesto en las lineas 61 y 62 ( 640 x 480 pixels) debemos incluir la primera parte del codigo en un modulo y la segunda en nuestro formulario con un boton llamado command1 el cual ejecutará la aplicacion. Una vez ejecutada el codigo modificará la resolucion de pantalla, avisando si el ordenador debe de ser reiniciado o no.
Visitas: 24,425 - 16/05/2004 1:57:47
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
CODIGO


// Codigo ofrecido por Tutores.org

  1. ' ---------- MODULO
  2. Public Const EWX_LOGOFF = 0
  3. Public Const EWX_SHUTDOWN = 1
  4. Public Const EWX_REBOOT = 2
  5. Public Const EWX_FORCE = 4
  6. Public Const CCDEVICENAME = 32
  7. Public Const CCFORMNAME = 32
  8. Public Const DM_BITSPERPEL = &H40000
  9. Public Const DM_PELSWIDTH = &H80000
  10. Public Const DM_PELSHEIGHT = &H100000
  11. Public Const CDS_UPDATEREGISTRY = &H1
  12. Public Const CDS_TEST = &H4
  13. Public Const DISP_CHANGE_SUCCESSFUL = 0
  14. Public Const DISP_CHANGE_RESTART = 1
  15. Type typDevMODE
  16.     dmDeviceName       As String * CCDEVICENAME
  17.     dmSpecVersion      As Integer
  18.     dmDriverVersion    As Integer
  19.     dmSize             As Integer
  20.     dmDriverExtra      As Integer
  21.     dmFields           As Long
  22.     dmOrientation      As Integer
  23.     dmPaperSize        As Integer
  24.     dmPaperLength      As Integer
  25.     dmPaperWidth       As Integer
  26.     dmScale            As Integer
  27.     dmCopies           As Integer
  28.     dmDefaultSource    As Integer
  29.     dmPrintQuality     As Integer
  30.     dmColor            As Integer
  31.     dmDuplex           As Integer
  32.     dmYResolution      As Integer
  33.     dmTTOption         As Integer
  34.     dmCollate          As Integer
  35.     dmFormName         As String * CCFORMNAME
  36.     dmUnusedPadding    As Integer
  37.     dmBitsPerPel       As Integer
  38.     dmPelsWidth        As Long
  39.     dmPelsHeight       As Long
  40.     dmDisplayFlags     As Long
  41.     dmDisplayFrequency As Long
  42. End Type
  43. Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lptypDevMode As Any) As Boolean
  44. Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lptypDevMode As Any, ByVal dwFlags As Long) As Long
  45. Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
  46.  
  47. ' ---------- FORMULARIO
  48.  
  49. Private Sub Command1_Click()
  50. Dim typDevM As typDevMODE
  51. Dim lngResult As Long
  52. Dim intAns    As Integer
  53. lngResult = EnumDisplaySettings(0, 0, typDevM)
  54. With typDevM
  55.     .dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
  56.     .dmPelsWidth = 640  'Ancho (640,800,1024, etc)
  57.    .dmPelsHeight = 480 'Altura (480,600,768, etc)
  58. End With
  59. lngResult = ChangeDisplaySettings(typDevM, CDS_TEST)
  60. Select Case lngResult
  61.     Case DISP_CHANGE_RESTART
  62.         intAns = MsgBox("Necesita reiniciar su ordenador para ver los cambios." & _
  63.             vbCrLf & vbCrLf & "Desea reiniciar ahora ??", _
  64.             vbYesNo + vbSystemModal, "Resolucion de pantalla")
  65.         If intAns = vbYes Then Call ExitWindowsEx(EWX_REBOOT, 0)
  66.     Case DISP_CHANGE_SUCCESSFUL
  67.         Call ChangeDisplaySettings(typDevM, CDS_UPDATEREGISTRY)
  68.         MsgBox "Resolucion modificada", vbInformation, "Resolucion modificada"
  69.     Case Else
  70.         MsgBox "Se ha producido un error", vbSystemModal, "Error"
  71. End Select
  72. End Sub



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Modificar resolucion de pantalla" href="http://www.tutores.org/codigo/1079/" target="_blank">Modificar resolucion de pantalla</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
NaxoneZ
2 5
Gracias por el codigo, estube buscando y son de los pocos codigos que entiendo a leer y he conseguido hacer funcionar, tnx :)
Comentario usuario
09-05-2007 03:08:03
5 5
Gracias, buenísimo! Estoy modernizandome aprendiendo el VB.NET pero el VB sigue siendo genial, no deja de sorprenderme todo lo que se puede hacer con las APIs!
Comentario usuario
21-11-2007 14:50:03
2 5
Hola, es lo que andaba buscando, muchisimas gracias a tu esfuersos, FELICES FIESTAS
Comentario usuario
10-10-2009 01:59:26
5 5
como puedo hacer para que vuelva a la resolucion que tenia antes de aplicar el cambio
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.