Miguel
06 de Agosto del 2004

Como guardar imagenes desde un picture

CommonDialog1.Filter = "Archivos de imagen|*.JPG"
CommonDialog1.FilterIndex = 1
CommonDialog1.Action = 2
Open CommonDialog1.FileName For Output As 1
Print #1, Picture1.Image
Close 1
CurrentFileName = CommonDialog1.FileName

Me hace el archivo pero es solo d 1 k. como puedo pasar la imagen??????

francisco
06 de Agosto del 2004

Teclea esto mejor, en vez de abrir fichero, a mi me funciona, pero tambien he leido que para imágenes es preferible utilizar el control Image.

sFileName = CommonDialog1.FileName
SavePicture Picture1, sFileName

A ver si te funciona. Un saludo.