a função roda normalmente, inclusive ao adicionar essa imagem para image1 no mesmo commandbutton ainda com o userform aberto a imagem aparece normalmente em image1. Exemplo:
Ocorre que, ao fechar o Userform a imagem não fica salva, não aparece na consulta do campo "personalizado" e ao executar uma nova função já não localiza mais a "IMAGEM_TESTE", ou seja, enquanto o Userform está aberto a imagem está no Imagelist, ao fechar o Userform ela some.
Pergunta
kleber.bertolini
Olá bom dia,
Estou adicionando uma imagem para o imagelist a partir da seguinte função:
caminhoarquivo = Application.GetOpenFilename(FileFilter:="Image Files(*.bmp), *.bmp")
UserForm2.ImageList1.ListImages.Add , "IMAGEM_TESTE", LoadPicture(caminhoarquivo)
a função roda normalmente, inclusive ao adicionar essa imagem para image1 no mesmo commandbutton ainda com o userform aberto a imagem aparece normalmente em image1. Exemplo:
Image1.Picture = ImageList1.ListImages("IMAGEM_TESTE").Picture
Ocorre que, ao fechar o Userform a imagem não fica salva, não aparece na consulta do campo "personalizado" e ao executar uma nova função já não localiza mais a "IMAGEM_TESTE", ou seja, enquanto o Userform está aberto a imagem está no Imagelist, ao fechar o Userform ela some.
se alguém puder me auxiliar com este problema.
Obrigado!
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.