MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    Função para centralizar controles

    Leandro
    Leandro
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    Função para centralizar controles Empty Função para centralizar controles

    Mensagem  Leandro em 24/4/2014, 12:35

    Com a valorosa colaboração do Sr. Alexandre Neves montei essa pequena função para centralizar controles, a princípio está para formulários, mas pode ser editada para relatórios também.

    Em um novo módulo insira:

    Dim Ctl As Control
    Public Function CentralizaControles(frm As Form, ParamArray Ctls()) As Variant
    For Each Ctl In Ctls
    Ctl.Left = (frm.Width / 2) - (Ctl.Width / 2)
    Next Ctl
    End Function

    No evento ao Carregar do formulário:

    Call CentralizaControles(Me, Texto0, lista3, Comando2)

    Me faz referência ao formulário.

    Fernando Bueno
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2097
    Registrado : 13/04/2012

    Função para centralizar controles Empty Re: Função para centralizar controles

    Mensagem  Fernando Bueno em 23/5/2014, 15:19

    Muito bom meu amigo, parabéns!


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    Função para centralizar controles 16rzeq

      Data/hora atual: 4/12/2020, 14:14