Centralizar Menu imagem e botões no form independente de resolução

Bom dia companheiros,

Venho outra vez solicitar ajuda dos senhores, desta feita, para algo novo que comecei a aprender...

É o seguinte, procurei no fórum e na internet formas de centralizar o form em todas as resoluções. Encontrei algumas funções que alteram a resolução. Mais não encontrei uma que se encaixe no projeto que estou desenvolvendo. Como base de teste, ainda sem ônus.

Criei um Menu com imagem de fundo e botões no form Menu, Nele conforme imagem anexa para exemplo, é um form Menu do Sistema.

O que estou precisando de ajuda é para que ao entrar no Sistema, o Menu principal fique centralizado (A imagem de fundo e botões). Em qualquer resolução. É possível isso?

Usei o DoCmd.Maximized, centralizei o form, Também procurei no fórum, vi alguns, mais não deu certo. A imagem e os botões (elementos que compoem o Menu) gostaria que ficassem todos centralizados cada um em seu estado de criação. Ou seja, botões na linha de cima, ou ao lado. Em fim, se algun dos senhores tiver uma ideia de como fazer, por favor me ajude...

Abraço a todos e que Deus os abençoe ricamente. Mais e Mais!

olá

clique com o botão direito um a um nos objetos e selecione a opção Ancoragem marque
a opção que melhor se encaixa no seu projeto

Boa tarde, Nois...

Estou usando esse módulo:

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" Or getScreenResolution = "1280x1024" Or getScreenResolution = "1280x960" Or getScreenResolution = "1280x768" Or getScreenResolution = "1280x720" Or getScreenResolution = "1152x864" Or getScreenResolution = "1024x768" Or getScreenResolution = "1360x768" Or getScreenResolution = "1366x768" Then
RestoreAccess
Dim lngSize As Long
lngSize = SizeAccess
Else
MaximizeAccess
End If

End Function

e chamo no ao abrir:

Call getScreenResolution

Na resolução 1366x768 centraliza o form... Se manipular a imagem no form...

As propriedades do form está assim:
Pop-up = SIM
Restrito = Não
AuCentralizar = SIM
AutoRedmensionar = SIM
Ajustar Tela = SIM
Bordas = NÃO

Desde já agradeço a ajuda...

ja tentou usar este exemplo

https://www.maximoaccess.com/t26605-redimensionar-form-para-a-resolucao-atual-da-tela

Esse módulo, está rodando bem... Algumas resoluções é que a imagem ão fica centralizada...

Exemplo nessa função:

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 'Alterei para 800 x 600
'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" Or getScreenResolution = "1280x1024" Or getScreenResolution = "1280x960" Or getScreenResolution = "1280x768" Or getScreenResolution = "1280x720" Or getScreenResolution = "1152x864" Or getScreenResolution = "1024x768" Or getScreenResolution = "1360x768" Or getScreenResolution = "1366x768" Then
RestoreAccess
Dim lngSize As Long
lngSize = SizeAccess
Else
MaximizeAccess
End If

End Function

Essas resoluções: 1024x768 - 1360x768 - 1366x768 abrem normal. Principalmente nos monitores de 18''

Estou procurando uma forma que abra o form em qualquer resolução... (Centralize tudo).


Estou disponibilizando uma base .accdb para melhor entendimento...

Talvez eu precise de orientação de como fazer o form para resolução correta. Não sei!

Desde já agradeço pela ajuda...

Boa noite, companheiros, consegui resolver aqui de outra forma... Colocado um form de fundo. Assim ao maximizar, o form principal fica sobre. aí não tem problema... Deixei movível...

Essa parte deu certo...

Desde já obrigado a todos...

Resolvido

Agradecemos o retorno cjsilva2013,
nao se esqueça de fechar o topico como resolvido no botão logo abaixo.

sds

Nois, por gentileza, será que você não poderia me dar uma dica sobre essa função não?

Há um problema aqui nessa função:
Quando minimiza, que passo o mouse sobre o pop-up não está ficando visível a descrição dos botões da Pop-up.

'Create Popup Menu
hMenu = CreatePopupMenu()
AppendMenu hMenu, MF_STRING, ByVal 1&, "Restaurar"
AppendMenu hMenu, MF_STRING, ByVal 2&, "Exit"
AppendMenu hMenu, MF_SEPARATOR, ByVal 0&, ByVal 0&
'AppendMenu hMenu, MF_CHECKED, ByVal 3&, "About..."

A descrição "Restaurar e Exit" não estão visíveis no Pop-up...

Ultilizando a rotina da pra entender... Agora, é a primeira vez que estou utilizando essa função por isso a dificuldade.

Desde já agradeço e ao final já concluo...