Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Cria labels a partir de array dinâmico

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Adonias
Manda bem
Manda bem
Mensagens: 167
Registrado em: Sáb Jun 02, 2012 12:55 pm

Cria labels a partir de array dinâmico

Mensagem por Adonias »

Pessoal, o codigo localiza na lista quais os alunos com pontuação.
Eu quero que ao clicar no botão do form seja criados labels com os nomes somente daqueles que não tem pontuação.
Eu inseri na planilha, mas na verdade eu quero apenas que esses nomes alimentem um array que preencherá o caption dos labels, quantos forem, um abaixo do outro
Anexos
testezi.zip
(18.91 KiB) Baixado 178 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Cria labels a partir de array dinâmico

Mensagem por srobles »

Adonias,

Veja se a opção adotada, atende sua necessidade.
Anexos
testezi.zip
(26.04 KiB) Baixado 190 vezes


Adonias
Manda bem
Manda bem
Mensagens: 167
Registrado em: Sáb Jun 02, 2012 12:55 pm

Re: Cria labels a partir de array dinâmico

Mensagem por Adonias »

Srobles meu amigo, show, vocÊ resolveu com certeza.
Estou adaptando ao meu código.
Tem um erro, pois eu tenho diversos outros ladbels no formulário da minha planilha e o codigo do seu modulo
For Each lblCtl In .Controls
If TypeName(lblCtl) = "Label" Then .Controls.Remove (lblCtl.Name)
Next
quer excluir todos os labels do form.
Como eu faria para esse comando excluir somente os labels criados pela macro?


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Cria labels a partir de array dinâmico

Mensagem por srobles »

Adonias,

Experimente alterar esta linha para :

Código: Selecionar todos

For Each lblCtl In .Controls
   If TypeName(lblCtl) = "Label" And Left(lblCtl.Name,7)="lblTemp"Then .Controls.Remove (lblCtl.Name)
Next


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder