| Pregunta: | 50531 - GUARDAR IMAGENES COMO "EMF" |
| Autor: | Juan Sider |
| Hola, estoy haciendo un programa en Visual Basic 6 y lo que no puedo hacer es que abra un archivo de imagen "JPG", con el Paint (o algun editor), y la guarde con formato "EMF"...Alguien tiene idea de como hacerlo? Muchas Gracias. | |
| Respuesta: | Maguibel De Jesus Duran |
| Para eso Utilizas un Command Dialog lo puedes obtener de los complementos de VB6
Crea 2 Command 1. Abrir 2.Guardar Escribes en el boton de Abrir: With CommonDialog1 .DialogTitle = " Seleccionar imagen ára cargar en el image " 'Filtro para los archivos de imagen .Filter = "BMP|*.bmp|JPG|*.JPG|GIF|*.GIF|Todos los archivos|*.*" 'Muestra el cuadro de diálogo Arir archivo .ShowOpen 'si no se seleccionó un archivo salimos If .FileName = "" Then Exit Sub Else ' Si no , cargamos la imagen seleccionada en el control Image1 = LoadPicture(.FileName) End If End With Luego En el boton de Guardar 'si el control Image no tiene una imagen sale de la rutina If Image1.Picture = 0 Then MsgBox "No se puede guardar. El image debe tener una imagen", vbCritical End If With CommonDialog1 'Filtro para guardar con la extención BMP .Filter = "EMF|*.emf" ' Muestra el cuadro de diálogo Guardar como .ShowSave 'Si el archivo es una cadena vacía salimos If .FileName = "" Then Exit Sub Else 'Si no, la guardamos SavePicture Image1, .FileName MsgBox " archivo guardado correctamente ", vbInformation Timer1.Interval = 0 End If End With | |