Cambiar resolucion grafica en access
Publicado por xisco (22 intervenciones) el 14/04/2004 17:07:21
Es posible cambiar la resolución gráfica al acceder a una aplicación en access mediante código?? Gracias
Valora esta pregunta


0
Option Compare Database
Option Explicit
Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwFlags As Long) As Long
Const DM_PELSWIDTH = &H80000
Const DM_PELSHEIGHT = &H100000
Public Function ChangeResolution()
Dim dm As DEVMODE
Dim lngRet As Long
dm.dmSize = Len(dm)
dm.dmPelsWidth = 1024
dm.dmPelsHeight = 768
dm.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
lngRet = ChangeDisplaySettings(dm, 0)
End Function