Function configurar componente  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Function configurar componente

Mensagempor kiko » Ter Set 10, 2019 7:00 am

Bom dia à todos, alguém conhece uma Function ou Sub que configure todos os componentes de um formulário de uma vez só??
Exemplo:
Componente com Name “TextBox”
Fundo cor tal
Fonte Arial 12
......etc
Componente com Name “ComboBox”
Fundo cor tal
Fonte Arial 12
......etc

Eu sei que poderia configurar os componentes em um form qualquer e depois copia-los para os Form desejado, mas se tivesse que dar manutenção em um projeto que tem por exemplo 40 FORM’s ficaria mais difícil, não é?
Desde já agradeço e fico no aguardo.
kiko
Membro
Membro
 
Mensagens: 43
Registrado em: Sáb Set 14, 2013 9:28 am
Has thanked: 11 times
Have thanks: 3 times

{ SO_SELECT }

Re: Function configurar componente

Mensagempor Coutinho » Ter Set 10, 2019 9:25 am

kiko, não sei se entendi corretamente, acredito ser possivel com a criação de Modulos de Classe, de uma pesquisada sobre o asunto no Google, e aqui no Forum já cheguei a anexar alguns exemplos sobre a Criação dos Formulários e componentes em tempo de execução, acho que seria o ideal para voce, de uma olhada :

inserir controle em tempo de execução [Resolvido]
viewtopic.php?f=10&t=2858

Adicionando Controle a Formulário Em Tempo de Execução
viewtopic.php?f=21&t=1931&p=7776#p7776

Não tive como ver se os anexos ainda estão disponiveis, mas se não estiverem, veja o link abaixo, foi desse que fiz o exemplo.
Create User Form Using VBA
https://www.tek-tips.com/faqs.cfm?fid=5757

[]s
Mauro Coutinho
Mauro Coutinho
com novo usuário devido a manutenção do grupo

For this post the author Coutinho thanked:
kiko (Ter Set 10, 2019 4:40 pm)
Coutinho
Ninja do Excel
Ninja do Excel
 
Mensagens: 60
Registrado em: Qua Jun 12, 2019 6:18 pm
Has thanked: 2 times
Have thanks: 22 times

Re: Function configurar componente  [Resolvido]

Mensagempor srobles » Ter Set 10, 2019 2:19 pm

kiko,

Não sei se poderia ajudar, mas não custa experimentar.

Adicione um módulo comum ao seu projeto, copie e cole o que segue:
Código: Selecionar todos
Sub formataControles()
    Dim ctlControle As Object
   
    For Each ctlControle In UserForm1.Controls
        If TypeName(ctlControle) = "TextBox" Then
            ctlControle.BackColor = vbRed
        End If
        If TypeName(ctlControle) = "ComboBox" Then
            ctlControle.BackColor = vbGreen
        End If
        If TypeName(ctlControle) = "ListBox" Then
            ctlControle.BackColor = vbYellow
        End If
        If TypeName(ctlControle) = "Label" Then
            ctlControle.BackColor = vbBlack
        End If
    Next
End Sub

Estude as propriedades de cada controle e adicione elas á rotina, e então no evento Initialize do Formulário, chame a rotina:
Código: Selecionar todos
   Call formataControles
Espero ter ajudado.

Abs.

Saulo Robles

Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond

For this post the author srobles thanked:
kiko (Ter Set 10, 2019 4:42 pm)
srobles
Membro
Membro
 
Mensagens: 339
Registrado em: Sáb Mai 09, 2015 10:35 pm
Has thanked: 112 times
Have thanks: 138 times

Re: Function configurar componente

Mensagempor rlm » Ter Set 10, 2019 2:58 pm

Cross Post no forum Guro (dado como resolvido) https://gurudoexcel.com/forum/viewtopic.php?f=12&t=10421
Reinaldo - RLM - Rmarco
Gostou da resposta? Clique no ícone "Positivo" da mensagem!(ao lado de citar)
Avatar do usuário
rlm
Ninja do Excel
Ninja do Excel
 
Mensagens: 325
Registrado em: Qui Out 16, 2014 12:30 pm
Has thanked: 24 times
Have thanks: 151 times

Re: Function configurar componente

Mensagempor kiko » Ter Set 10, 2019 4:42 pm

Coutinho Saulo Robles muito OBRIGADO pela atenção dispensada, mas como o próprio rlm ressaltou acima, eu já dei como resolvido, mesmo assim O B R I G A D O O O !!!
kiko
Membro
Membro
 
Mensagens: 43
Registrado em: Sáb Set 14, 2013 9:28 am
Has thanked: 11 times
Have thanks: 3 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 14 visitantes