Notifications
Clear all

Adicionar Controle Adicional por código

9 Posts
2 Usuários
0 Reactions
1,454 Visualizações
(@pfarias)
Posts: 0
New Member
Topic starter
 

Olá Pessoal,

é o seguinte, quando desenvolvo alguma ferramenta e preciso de alguma referência adicional no PC, caso não esteja habilitada eu utilizo a linha abaixo:

Application.VBE.ActiveVBProject.References.AddFromFile Application.Path & "NOME DA DLL"

Isso, se estiver disponível no PC.

Agora quero fazer o mesmo com um controle adicional, no meu caso é o contro Treeview.
Não conseguir saber como adiciona um controle adicional dessa forma.
Alguém poderia me ajudar?

 
Postado : 23/03/2015 8:15 am
(@benzadeus)
Posts: 78
Trusted Member
 

Não testei, mas tente:

ThisWorkbook.VBProject.References.AddFromGuid GUID:="{0D452EE1-E08F-101A-852E-02608C4D0BB4}", Major:=1, Minor:=0
 
Postado : 24/03/2015 1:28 pm
(@pfarias)
Posts: 0
New Member
Topic starter
 

Ok. Deu conflito com biblioteca já existe.
parece que de certa forma deu certo.

Mas não entendi. Que biblioteca é essa e como posso adaptar esse registro?

 
Postado : 24/03/2015 2:10 pm
(@pfarias)
Posts: 0
New Member
Topic starter
 

Ok. Deu conflito com biblioteca já existe.
parece que de certa forma deu certo.

Mas não entendi. Que biblioteca é essa e como posso adaptar esse registro?

Entendi, dei um conferida. Mas como posso achar essa expressão numérica do registro de uma biblioteca especifica que preciso adicionar?

 
Postado : 24/03/2015 2:16 pm
(@pfarias)
Posts: 0
New Member
Topic starter
 

Não testei, mas tente:

ThisWorkbook.VBProject.References.AddFromGuid GUID:="{0D452EE1-E08F-101A-852E-02608C4D0BB4}", Major:=1, Minor:=0

Valeu benzadeus. Isso meu deu noção de como funciona. Continuei procurando, e descobrir como achar a chave da minha biblioteca especifica no qual preciso. Porém, não estou conseguindo adicionar o Controle. Ele está adicionando diretamente na referência e não no controle adicional
Se eu abro o arquivo com esse controle faltando e apenas listado na referência ainda sim não funciona a ferramenta

HELPPPPPP

P.S. O Controle que quero adicionar é o TreeView

 
Postado : 24/03/2015 3:05 pm
(@benzadeus)
Posts: 78
Trusted Member
 

Não sei se é possível adicionar um controle diretamente.
Por que precisa disso? Desenvolvedores sabem adicionar o controle TreeView.

 
Postado : 24/03/2015 4:22 pm
(@pfarias)
Posts: 0
New Member
Topic starter
 

Acontece que comecei a utilizar o treeview.
Mas ele não funciona em alguma maquinas, apenas se eu adiciona-lo manualmente esse controle na maquina

 
Postado : 24/03/2015 4:30 pm
(@benzadeus)
Posts: 78
Trusted Member
 

"Mas ele não funciona em alguma maquinas, apenas se eu adiciona-lo manualmente esse controle na maquina."
Verdade, agora me lembrei por que parei de usar o TreeView. Não sei como resolver seu problema sem pesquisar.
Você sabe também que ele não funciona em sistemas com Office 64 bits, né?

Atualmente, uso apenas um TreeView artificial, que funciona até em Mac: http://www.jkp-ads.com/articles/treeview.asp

 
Postado : 24/03/2015 4:34 pm
(@pfarias)
Posts: 0
New Member
Topic starter
 

Entendi...
Realmente é dureza.
Mas adorei a alternativa do TreeView artificial para 64bits.

Valeu

 
Postado : 24/03/2015 4:57 pm