Prezados amigos,

quando crio um determinado formulário, ao executar o programa em computadores que tenham definição de vídeo diferente a imagem fica distorcida (muito grande ou muito pequena). O que fazer para resolver este tipo de problema?

Obrigado,

Luiz Cláudio

Da uma olhada nesse modulo.

É só copiar e colar.

Option Compare Database


Option Explicit

Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, rectangle As RECT) As Long
Public Const SW_SHOWNORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMAXIMIZED = 3
Type RECT
x1 As Long
y1 As Long
x2 As Long
y2 As Long
End Type
Declare Sub SetWindowPos Lib "user32" (ByVal hwnd&, ByVal hWndInsertAfter&, ByVal x&, ByVal Y&, ByVal cX&, ByVal cY&, ByVal wFlags&)
Public Const HWND_TOP = 0 'Move janela do Access para o topo de Z-order.
'Valores para wFlags.
Public Const SWP_NOZORDER = &H4 'Ignora hWndInsertAfter.

Function MaximizeAccess()
Dim Maxit%
Maxit% = ShowWindow(hWndAccessApp, SW_SHOWMAXIMIZED)
End Function

Function RestoreAccess()
Dim Restoreit%
Restoreit% = ShowWindow(hWndAccessApp, SW_SHOWNORMAL)
End Function

Function GetScreenResolution() As String
Dim R As RECT, hwnd As Long, RetVal As Long
hwnd = GetDesktopWindow()
RetVal = GetWindowRect(hwnd, R)
GetScreenResolution = (R.x2 - R.x1) & "x" & (R.y2 - R.y1)
End Function

Function SizeAccess()
Dim cX As Long, cY As Long, cHeight As Long
Dim cWidth As Long, h As Long
'pega "handle" para o Access.
h = Application.hWndAccessApp
cX = 80: cY = 80: cWidth = 640: cHeight = 480
'Posiciona Access.
SetWindowPos h, HWND_TOP, cX, cY, cWidth, cHeight, SWP_NOZORDER
End Function


Function PosicionaAplicativo()

If GetScreenResolution = "800x600" Or GetScreenResolution = "1024x768" Or GetScreenResolution = "640x480" Then
RestoreAccess
Dim lngSize As Long
lngSize = SizeAccess
Else
MaximizeAccess
End If

End Function



------------------
Central de apoio Cliente Interno - Ceprol
Sampaio Lima

" O insucesso é apenas uma oportunidade para recomeçarmos com mais inteligência "

amigo sampaio
meu sistema é feito em 1024x768 ocupa toda a tela, e a maioria dos usuáiros aki utilizam 800x600

quando o sistema for visto em 800x600 tem como eu adaptar para ver proporcionalmnente com o mesmo tamanho de 1024x768 ??

Luiz,

Veja se este exemplo ajuda.

Luiz Cláudio,

Dê uma olhada nas respostas do Zumba e minha neste tópico: http://www.forumaccess.com/gd/ultimatebb.cgi?ubb=get_topic&f=1&t=008411

Um abraço
Wellington Marinheiro