OCX AICALPHAIMAGE DUPLICAR IMAGEN PNG

SELINGER 19/07/2011 11:28:02
#379531

O seu código é perfeito, porém, eu não quero deixar as imagens disponíveis para todos. para resolver criei um arquivo de imagens, imagens.res e carrego no código da seguinte forma:

Dim varImagem() As Byte

[ô]Criar componente
Load aicAlphaImage1(aicAlphaImage1.Count)
[ô]Colocar dentro do frame
Set aicAlphaImage1(aicAlphaImage1.Count - 1).Container = frameTeste(frameTeste.Count - 1)
With aicAlphaImage1(aicAlphaImage1.Count - 1)
[ô]Resgatar imagem do arquivo
varImagem = LoadResData([Ô]NomeImagemNoArquivo[Ô], [Ô]CUSTOM[Ô])
[ô]Carregar imagem
.LoadImage_FromArray varImagem
.ZOrder vbSendToBack
.Visible = True
End With

MARCELO-TREZE agradeço a força. Até a próxima!