Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » Resolucion de pantalla

Access - Resolucion de pantalla

Volver
Nuevo Tema
<<>>
 
Vista:

Resolucion de pantalla

Publicado por Jose Luis (46 intervenciones) el 03/10/2000 00:00:00
Hola a todo el que lea esta nota.
Mi problema es siguiente. En VB uso este codigo para obtener la resolucion actual del sistema.

Private VScr As Integer, HScr As Integer

Private Sub Form_Load()
HScr = Screen.Width / Screen.TwipsPerPixelX
VScr = Screen.Height / Screen.TwipsPerPixelY

y despues lo uso para cambiar el tamaño de un ActiveX segun la resolucion actual.
Como puedo obtener por medio de codigo la resolucion actual desde Access? el codigo anterior no me vale porque Screen en acces no admite las propiedades Width ni Height.
Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

Resolucion de pantalla

Publicado por Alejandro (4142 intervenciones) el 14/04/2023 00:19:25
En Access, puedes obtener la resolución de pantalla actual utilizando la función API de Windows "GetSystemMetrics". Esta función devuelve la resolución en píxeles de la pantalla. Para utilizar esta función, debes agregar el siguiente código a un módulo de VBA en tu base de datos de Access:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Compare Database
Option Explicit
 
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
 
Const SM_CXSCREEN As Long = 0
Const SM_CYSCREEN As Long = 1
 
Public Function GetScreenWidth() As Long
    GetScreenWidth = GetSystemMetrics(SM_CXSCREEN)
End Function
 
Public Function GetScreenHeight() As Long
    GetScreenHeight = GetSystemMetrics(SM_CYSCREEN)
End Function

Luego, en tu formulario o módulo de VBA, puedes utilizar estas funciones para obtener la resolución de pantalla en píxeles:

1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
    Dim HScr As Long
    Dim VScr As Long
 
    HScr = GetScreenWidth()
    VScr = GetScreenHeight()
 
    ' Usa las variables HScr y VScr como necesites
End Sub

Espero que esto te ayude a resolver tu problema.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar