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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  joga imagens com ImageList1 em outro form
Edson479
SÃO PAULO
SP - BRASIL
Postada em 07/02/2008 14:38 hs            

Boa tarde....

Eu tenho o form com nome de frmError é um ImageList1 com vários ícones e um Image1 pra carrega as imagens do ImageList1 como faço pra carrega as imagem mais em outro formulário

 

Exep.

              

 frmError.F.Cls

 frmError.F.Print "O produto, " & rs.Fields("mat_pro")

 frmError.F.Print "O não tem mais no estoque"

 Set frmError.Image1.Picture=loadpicture ???????

 frmError.Show vbModal

     
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 07/02/2008 15:37 hs            
Não entendi sua pergunta direito você ta querendo carregar as imagens deste imagelist em outro form seria isto
 
   
Edson479
SÃO PAULO
SP - BRASIL
Postada em 07/02/2008 15:59 hs            
isto
este form e um tipo do mgsbox mais sem "sim, não e ok bla, bla..."
cada mensagem eu cologa o icone deferente no frmError.Image1
eu fez assim mais da erro
     Set frmError.Image1.Picture = ImageList1.ListImages.Item.Picture(1)
     
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
Postada em 07/02/2008 16:23 hs            
Eu fiz desta forma e funcionou.
 
primeiro criei um novo projeto e inclui dois forms, form1 e form 2
 
no form1 coloquei o Imagelist e acrecentei os icones no mesmo
 
no form2 inclui um Image e coloquei este codigo no evento load do mesmo
 
Private Sub Form_Load()
Image1.Picture = Form1.ImageList1.ListImages(1).ExtractIcon
End Sub

 
ele chamou o icone do imagelist no form1 sem problemas veja se você consegue fazer o mesmo
 
TÓPICO EDITADO
   
Edson479
SÃO PAULO
SP - BRASIL
Postada em 07/02/2008 16:34 hs            
ela isto mesmo deu certinho.
obrigado, mais uma fez Treze
     
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
Postada em 07/02/2008 16:39 hs            
Falou garoto
 
até
     
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