Configurar la resolución de pantalla
Estoy haciendo una pequeña base de datos en Access 2000 cuyos formularios están diseñados para una resolución de pantalla de 1024x768 y, la pregunta es ¿existe alguna manera de que Access primero que nada verifique que la configuración de pantalla es de 1024x768 y no de 800x600 por ejemplo, y en caso contrario lance un mensaje de atención?.
3 respuestas
Respuesta de vbgopher
1
Espero esto te sirva
'Codigo en el formulario
'un boton llamado commmando0 al hacer click
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function GetWindowRect Lib "user32" _
(ByVal hwnd As Long, _
lpRect As RECT) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Function Resolucion() As String
Dim REC As RECT
Dim xWidth As String
Dim xHigh As String
Call GetWindowRect(GetDesktopWindow, REC)
xWidth = CStr(REC.Right - REC.Left)
xHigh = CStr(REC.Bottom - REC.Top)
Resolucion = xWidth & " x " & xHigh
End Function
Private Sub Comando0_Click()
MsgBox Resolucion
End Sub
VbGopher
Mexicali B.C. Mex
'Codigo en el formulario
'un boton llamado commmando0 al hacer click
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function GetWindowRect Lib "user32" _
(ByVal hwnd As Long, _
lpRect As RECT) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Function Resolucion() As String
Dim REC As RECT
Dim xWidth As String
Dim xHigh As String
Call GetWindowRect(GetDesktopWindow, REC)
xWidth = CStr(REC.Right - REC.Left)
xHigh = CStr(REC.Bottom - REC.Top)
Resolucion = xWidth & " x " & xHigh
End Function
Private Sub Comando0_Click()
MsgBox Resolucion
End Sub
VbGopher
Mexicali B.C. Mex
Respuesta de denciso
1
Se requiere trabajar con APIS:
http://www.mentalis.org/index2.shtml
http://www.google.com.mx/search?hl=es&client=firefox-a&rls=org.mozilla%3Aen-US%3Aofficial_s&q=apis+y+msaccess&btnG=B%C3%BAsqueda&meta=
http://www.mvp-access.com/
http://www.google.com.mx/search?hl=es&client=firefox-a&rls=org.mozilla%3Aen-US%3Aofficial_s&q=cambiar+resolucion+en+msaccess&btnG=B%C3%BAsqueda&meta=
http://www.mentalis.org/index2.shtml
http://www.google.com.mx/search?hl=es&client=firefox-a&rls=org.mozilla%3Aen-US%3Aofficial_s&q=apis+y+msaccess&btnG=B%C3%BAsqueda&meta=
http://www.mvp-access.com/
http://www.google.com.mx/search?hl=es&client=firefox-a&rls=org.mozilla%3Aen-US%3Aofficial_s&q=cambiar+resolucion+en+msaccess&btnG=B%C3%BAsqueda&meta=
Respuesta de hen9
1
Si existe esa posibilidad y es llamando un API de windows pero en el omento no la tengo. Busca en internet en www.google.com sobre api y te llevara a la web deseada.