Referencia a objetos implicitamente

Question

Olá!

Gostaria de saber como posso fazer para construir uma function que represente qualquer controle Label, cujos nomes estão ocultos na coluna 0 de uma listbox? Vejam a fnc que estou tentando construir:

Public Function fncAreaAtiva() As Label

Dim d As Label
Set d = "Forms!frmTela!" & Forms!frmTela!lisObjetosDoLayOut.Column(0)
fncAreaAtiva = d
Set d = Nothing

End Function

Como tenho 50 controles Label disponíveis para configurar algumas propriedades como: caption, cor e tamanho, fica inviável criar 50 rotinas para estes 50 controles, então gostaria de apenas selecionar o controle desejável nesta lista para então poder realizar estas configurações.

Grato

Ediel Clamoroska

Answer 1

Olá,

O que você quer é usar um procedimento para manipular vários controles num formulário.

Sugiro que leia um exemplo muito parecido com o que quer, em: http://www.ambienteoffice.com.br/officevba/usar_um_procedimento_para_varios_controles_de_um_formulario/.

Se for isso mesmo, tente adaptar o código para labels e volte a postar.

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br