USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Trocar nome de ImageList s/ perder refererência ?
Vilmar Brazão
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 28/02/2007 20:23 hs         
Alguém sabe se existe algum macete p/ trocar nome de controle ImageList sem perder referência a NomeForm.frx ?
No meu caso eu tinha um controle chamado vbalIml6.ocx (de vbAccelerator.com) e precisei trocar o nome p/ BTSIml6.ocx, por que temos outros projetos que usam este mesmo nome de controle.
E quando eu troco a referência, o form onde tem o ImageList nem sequer abre e o VB 6 trava !!!
Fato que me obriga a tirar o controle antigo do form, adicionar um novo e colocar novamente as imagens dentro do mesmo. Sendo
que no meu caso atual eu tenho muitas imagens, e algumas nem sei se tenho o .ico, me obrigando a solicitar ao Designer que façam novos
ícones.
 
Muito obrigado.

http://www.vilmarbro.com.br
     
PH1959
Pontos: 2843
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
Postada em 01/03/2007 14:42 hs            
eu tentaria fazer alguma coisa do tipo...:
carregaria este image list q está funcionando, criaria um comandozinho para q ele salvasse as imagens em alguma pasta....
depois renomearia o controle e alteraria a referencia...
depois recarregaria a lista de imagens na pasta q eu criei...
 
     
Vilmar Brazão
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 01/03/2007 17:58 hs         
PH1959,

Boa idéia, mas no ImageList do vbAccelerator não deu certo Emoções!
 
Tks,

http://www.vilmarbro.com.br
     
PH1959
Pontos: 2843
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
Postada em 01/03/2007 18:55 hs            
não deu certo porque vc não conseguiu salvar as imagens ...ou pq vc não conseguiu carregá-las depois?
 
     
Vilmar Brazão
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 02/03/2007 13:18 hs         
Agora deu certo, assim:

'Aqui gera um arquivo c/ nome de um nº aleatório no HD, por exemplo, 70119440
vbalImageList1.SaveToFile (vbalImageList1) 
 
'Aqui carrega o arquivo 70119440
vbalImageList2.LoadFromFile (App.Path & "70119440")

'Aqui seta uma figura do vbalImageList2 p/ o Form1
Form1.Icon = vbalImageList2.ItemPicture(1)
 
Vlw Emoções

http://www.vilmarbro.com.br
TÓPICO EDITADO
   
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página