Access - AYUDA CON CODIGO

Option Compare Database

Option Explicit

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Public Declare Function MoveWindow Lib "user32" (ByVal hWnd As Long, ByVal x As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long

Public Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long

'   function retrieves a handle to a display device context (DC) for the client

'   area of a specified window or for the entire screen.

Public Declare Function apiGetDC Lib "user32" Alias "GetDC" (ByVal hWnd As Long) As Long

Public Declare Function apiGetDeviceCaps Lib "gdi32" Alias "GetDeviceCaps" (ByVal hDC As Long, ByVal nIndex As Long) As Long

Public Declare Function apiReleaseDC Lib "user32" Alias "ReleaseDC" (ByVal hWnd As Long, ByVal hDC As Long) As Long

Public Const TWIPSPERINCH = 1440

Public Type POINTAPI

   x As Long

   Y As Long

End Type

Public Type RECT

   Left As Long

   Top As Long

   Right As Long

   Bottom As Long

End Type

Public Punto As POINTAPI

'Number of pixels per logical inch along the screen width.

'In a system with multiple display monitors, this value is

'the same for all monitors

Public Const LOGPIXELSX = 88

'Number of pixels per logical inch along the screen height.

'In a system with multiple display monitors, this value is the

'same for all monitors

Public Const LOGPIXELSY = 90

Option Explicit

#If VBA7 Then

    Public Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

    Public Declare PtrSafe Function MoveWindow Lib "user32" (ByVal hWnd As Long, ByVal x As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long

    Public Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long

    '   function retrieves a handle to a display device context (DC) for the client

    '   area of a specified window or for the entire screen.

    Public Declare PtrSafe Function apiGetDC Lib "user32" Alias "GetDC" (ByVal hWnd As Long) As Long

    Public Declare PtrSafe Function apiGetDeviceCaps Lib "gdi32" Alias "GetDeviceCaps" (ByVal hDC As Long, ByVal nIndex As Long) As Long

    Public Declare PtrSafe Function apiReleaseDC Lib "user32" Alias "ReleaseDC" (ByVal hWnd As Long, ByVal hDC As Long) As Long

#Else

    Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

    Public Declare Function MoveWindow Lib "user32" (ByVal hWnd As Long, ByVal x As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long

    Public Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long

    '   function retrieves a handle to a display device context (DC) for the client

    '   area of a specified window or for the entire screen.

    Public Declare Function apiGetDC Lib "user32" Alias "GetDC" (ByVal hWnd As Long) As Long

    Public Declare Function apiGetDeviceCaps Lib "gdi32" Alias "GetDeviceCaps" (ByVal hDC As Long, ByVal nIndex As Long) As Long

    Public Declare Function apiReleaseDC Lib "user32" Alias "ReleaseDC" (ByVal hWnd As Long, ByVal hDC As Long) As Long

#End If

Public Const TWIPSPERINCH = 1440