CAREGANDO IMAGEM COMPLICADA
Em um ImageList tenho duas imagens index 1 e 2, no Form tenho um objeto Image, a pergunta é:
Tem alguma maneira de garregar neste objeto image as duas imagems do ImageList, ou seja, uma por cima da outra?
Tem alguma maneira de garregar neste objeto image as duas imagems do ImageList, ou seja, uma por cima da outra?
Image1.Item(0).Picture = LoadPicture([Ô]C:\img.jpg[Ô])
Image1.Item(1).Picture = LoadPicture([Ô]C:\img.jpg[Ô])
Image1.Item(1).Picture = LoadPicture([Ô]C:\img.jpg[Ô])
Jander, é o seguinte:
primeiro carrego o objeto image com o index 1 do ImageList
Image.Picture = ImgList.ListImages(1).Picture
agora como manter o primeiro index no objeto image e carregar o index 2 do ImageList por cima do index 1? Esse é o problema.
primeiro carrego o objeto image com o index 1 do ImageList
Image.Picture = ImgList.ListImages(1).Picture
agora como manter o primeiro index no objeto image e carregar o index 2 do ImageList por cima do index 1? Esse é o problema.
Image1.Item(1).Picture = ImgList.ListImages(1).Picture
isso vc não vai conseguir fazer, vc precisa que as duas imagens se sobreponham é isso.
é isso mesmo Marcelo! Realmente não sei se é possivel.
Tente o seguinte
carregue a primeira imagem em um imagebox, com a propriedade index = 0 (ex: imgteste(0))
depois carregue a segunda imagem em outro imagembox dinamico ex:
NÃO SEI SE VAI CRIAR O EFEITO QUE DESEJA MAS TESTE
carregue a primeira imagem em um imagebox, com a propriedade index = 0 (ex: imgteste(0))
depois carregue a segunda imagem em outro imagembox dinamico ex:
Private Sub Form_Load()
Image1(0).Picture = ImageList1.ListImages(1).ExtractIcon
Load Image1(1)
Image1(1).Visible = True
Image1(1).Top = Image1(0).Top
Image1(1).Left = Image1(0).Left
Image1(1).Width = Image1(0).Width
Image1(1).Height = Image1(0).Height
Image1(1).Picture = ImageList1.ListImages(2).ExtractIcon
Image1(1).ZOrder 0
End SubNÃO SEI SE VAI CRIAR O EFEITO QUE DESEJA MAS TESTE
Tópico encerrado , respostas não são mais permitidas