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

    [Resolvido]formatar controles com array

    avatar
    fernandesacs
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 03/01/2020

    [Resolvido]formatar controles com array Empty [Resolvido]formatar controles com array

    Mensagem  fernandesacs em 13/10/2020, 22:18

    Olá boa tarde.
    Tenho um formulário em que eu gostaria de formatar alguns controles no evento 'ao abrir' do formulário.
    Tentei algo como tornar as propriedades como array:

    a0 = "borderStyle = 1"
    a1 = "borderColor = 255"
    a2 = "backStyle = 1"
    a3 = "backColor = 16777215"
    a4 = "fontName = arial"

    então eu tentei o seguinte:

    'loop em seis controles
    for i = 0 to 6

    'loop das propriedades
    for f = 0 to 4
    me.controls("botao" & i).& a&f
    next f

    next i

    Contudo não obtive resultado. Gostaria de saber se é possível algo dessa forma para dinamizar minha function
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3631
    Registrado : 04/04/2010

    [Resolvido]formatar controles com array Empty Re: [Resolvido]formatar controles com array

    Mensagem  Avelino Sampaio em 14/10/2020, 17:23

    Olá!

    veja se desta forma atende:

    Dim a(5, 2) As Variant
    Dim i As Byte
    a(0, 0) = "BorderStyle":    a(0, 1) = "1"
    a(1, 0) = "BorderColor":    a(1, 1) = "255"                
    a(2, 0) = "BackStyle":      a(2, 1) = "1"              
    a(3, 0) = "BackColor":      a(3, 1) = "16777215"      
    a(4, 0) = "FontName":       a(4, 1) = "arial"        

    For i = 0 To 4
       Me("botao" & i).Properties(a(i, 0)) = a(i, 1)
    Next i


    Aguardamos


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.
    avatar
    fernandesacs
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 03/01/2020

    [Resolvido]formatar controles com array Empty formatar controles com array

    Mensagem  fernandesacs em 14/10/2020, 21:42

    Caro Professor,
    funcionou perfeitamente, do jeito que eu precisava, uma Honra ser atendido por Vossa Senhoria.

    Obrigado,

    Edson Fernandes.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7747
    Registrado : 05/11/2009

    [Resolvido]formatar controles com array Empty Re: [Resolvido]formatar controles com array

    Mensagem  Alexandre Neves em 14/10/2020, 21:59

    Boa noite,
    Faltou marcar o botão "Resolvido"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    fernandesacs
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 03/01/2020

    [Resolvido]formatar controles com array Empty Re: [Resolvido]formatar controles com array

    Mensagem  fernandesacs em 14/10/2020, 22:08

    Verifica se agora tá certo.

      Data/hora atual: 31/10/2020, 00:54