Ana.
23 de Mayo del 2005

Hola, me gustaría saber cómo puedo hacer un botón examinar para poder elegir una foto del disco duro y cargarla en un image o picturebox. Sé que había una forma muy sencilla de hacerlo pero ya no la recuerdo.
También me gustaría saber cómo puedo coger la ruta de esa imagen que se carga y meterla en una variable, ya que la necesitaré para meterla en una base de datos.

Por favor, ayudadme!!! :(. Muchísimas gracias!.

. : AlphaSoft : .
23 de Mayo del 2005

O.k.

Hola Ana!

Bueno, como tu dijiste, es muy simple y creo que esa es la razon de que se nos olvidan algunas cosas :-)

Normalmente para cargar un archivo usamos el CommonDialog, ya sabes, ese OCX propiedad de MOCOSOFT...

Sub AbrirImagen()

On error Goto Error

With CommonDialog
.dialogtitle = "Seleccionar imagen..."
.IntDir = "C:"
.Filter = Aqui va el Filtro ( que tipo de archivos mostrar )
.ShowOpen

end with

If Commondialog.filename <> "" then

Asignar la imagen al PictureBoc
PictureBox.picture = Loadpicture(commondialog.filename)

Asignar la ruta de la imagen a una variable...
Variable = commondialog.filename

end if

exit sub

Error:
msgBox "Error #" & Err.number & vbcrlf & vbcrlf & err.description
Resume Next

End sub

O.k.
Como ves, es muy sencillo... Saludos!

. : AlphaSoft : .

Ana.
23 de Mayo del 2005

Muchísimas gracias!!!! :D. Una cosita, en el filtro, ¿metes los tipos de archivos entre comillas?.
Muchas gracias, de verdad!.

Saludos!.

. : AlphaSoft : .
23 de Mayo del 2005

O.k.

Hola de nuevo!

Bueno, El filtro consta de dos partes:

1.- La descripcion del tipo de archivo.
2.- La extencion del tipo de archivo.

Por ejemplo:

Para especificar que solo se muestren los Mapas de Bits tipo BMP: .

Filter = "Mapa de Bits (*.bmp) |*.bmp"

Para especificar cualquier tipo de archivo, solo basta con que reemplases su descripcion y la extencion.

Para ahorrarte el trabajo te escribo Varios...

Imagenes

JPEG: .Filter = "Mapa de Bits (*.jpg) |*.jpg"

Metarchivo mejorado de windows
.Filter = "Metarchivo mejorado (*.wmf) |*.wmf"

Animacion GIF de compuserve
.Filter = "Animacion GIF (*.gif) |*.gif"

Portable NetWork Graphics
.Filter = "Portable NetWork Graphics (*.png) |*.png"

etc, etc.

Lo principal es que aprendas en formato del filtro para que tu sola puedas crear tus especificaciones, ya que ademas, puedes especificar varios filtros a la ves y a la hora de abrir la imagen, puedes intercambiar entre ellos...

Espero que te sirva... Saludos!

. : AlphaSoft : .

Ana.
23 de Mayo del 2005

Muchas gracias de nuevo, te explicas muy bien, de verdad :). Gracias!!!. Saludos!.

. : AlphaSoft : .
23 de Mayo del 2005

O.k.

Estoy para servirte, Bienvenida al foro ! ! !

. : AlphaSoft : .