MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


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

    avatar
    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 259
    Registrado : 26/06/2013

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

    Mensagem  cjsilva2013 em 28/10/2016, 12:08

    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!
    Anexos
    Centralizar Menu imagem e botões no form independente de resolução AttachmentTelaExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (20 Kb) Baixado 53 vez(es)
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 782
    Registrado : 09/11/2012

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

    Mensagem  =>Nois em 28/10/2016, 12:53

    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


    .................................................................................
    Arrow Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 259
    Registrado : 26/06/2013

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

    Mensagem  cjsilva2013 em 28/10/2016, 17:34

    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...

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 782
    Registrado : 09/11/2012

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

    Mensagem  =>Nois em 29/10/2016, 00:11



    .................................................................................
    Arrow Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 259
    Registrado : 26/06/2013

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

    Mensagem  cjsilva2013 em 29/10/2016, 00:42

    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...
    Anexos
    Centralizar Menu imagem e botões no form independente de resolução AttachmentAplicação_Teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (450 Kb) Baixado 36 vez(es)
    avatar
    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 259
    Registrado : 26/06/2013

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

    Mensagem  cjsilva2013 em 29/10/2016, 22:05

    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


    Última edição por cjsilva2013 em 2/11/2016, 00:45, editado 1 vez(es)
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 782
    Registrado : 09/11/2012

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

    Mensagem  =>Nois em 1/11/2016, 22:09

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

    sds


    .................................................................................
    Arrow Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 259
    Registrado : 26/06/2013

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

    Mensagem  cjsilva2013 em 2/11/2016, 01:17

    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...

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/7/2019, 00:04