Visual Basic - abrir imagen

COJO LA DIRECCION DE LA RUTA DE COMMONDIALOG.FILENAME Y LA GUARDO EN UN
ARCHIVO.TXT
DESPUES LEO LA DIRECCION CON COMMONDIALOG.FILENAME
ABRO EL ARCHIVO.TXT PARA LEER LA DIRECCION
LUEGO QUIERO CARGAR LA IMAGEN Y ME DICE QUE NO ENCUENTRA LA RUTA
NO SE SI DEBERE PONER COMILLAS ,SUPRIMIRLE LOS PARENTESIS EL CASO QUE NO HAY
FORMA DE QUE SE CARQUE ME PODRIAIS ECHAR UNA MANO
GRACIAS

esto es lo que se me guarda en el archivo.txt

Private Sub NAMECARGAR_Click()
CommonDialog1.ShowOpen
carga = CommonDialog1.FileName
' carga=C:Documents and SettingsFRANCISCOEscritorioATRILpage 1.bmp
numerofile = FreeFile
Open carga For Input As numerofile

longitud = LOF(numerofile)
texto = Input$(longitud, numerofile)
Close numerofile

picture1.picture = LoadPicture(texto)
End Sub

CommonDialog1.ShowOpen
CommonDialog1.Filter = "*.jpg"
txtArchivo = CommonDialog1.Filename
Me.Image1.Picture = LoadPicture(txtArchivo.text)

esto hace que en el monenque que haces click en aceptar en el dialog se cargara automaticamente la imagen en el image1

Es preferible usar el image que el picture ya que el image tiene la propiedad strech que hace que la imagen sea AUTOAJUSTABLE al tamño del control.

Espero te sirva saludos

Rolando Lau

SI ESO FUNCIONA PERO LO QUE YO QUIERO HACER ES DESDE UN ARCHIVO COMO
BLOC DE NOTAS ARCHIVO.TXT ALMACENAR CUATRODIRECCIONES DE CUATRO FOTOS.BMP

ABRIR CON COMMONDIALOG LA CARPETA DONDE ESTAN LAS CUATRO DIRECCIONES DE LAS IMAGENES Y CARGARLAS EN CUATRO IMAGENES QUE
ESTAN EN EL FORM

CommonDialog1.ShowOpen
cargacancion = CommonDialog1.FileName

numerofile = FreeFile

Open cargacancion For Input As numerofile

For GRABA = 1 To PAG ' pag = cuatro
Input #numerofile, TABLATURA(GRABA)
Next
Close numerofile

' aqui es donde falla -----------------------

For GRABA = 1 To PAG
PARTITURA(GRABA) = LoadPicture(TABLATURA(GRABA)) ' error no encuentra el archivo
Next

estas completamente seguro que los archivos que quieres cargan estan en las rutas que guardas en el txt???

he logrado cargar una imagen le he puesto delante y al final de la ruta chr$(34) que equivale a " unas comillas y si que se carga pero no puedo cargar las cuatro que yo quiero
ya casi lo tengo pero me va a costar
gracias por tu ayuda

como puedo grabar en un archivo de texto un valor string y otro integer
y poder leerlos independientemente

tu puedes grabar cualquier valor en un txt, el tema es que al momento de leer siempre verifiques si el valor es numerico.

lo que harias es obtener tu valor de tu txt y preguntar

if isnumeric(valor)=true then
msgbox "el valor es numerico"
end if

prueba esto
necesitas un commondialog

Sub abrirarchivodeimagen()
On Local Error Resume Next
commondialog1.FLAGS = 2
'Especificar las extensiones a usar
commondialog1.DefaultExt = "*.Bmp*"
commondialog1.Filter = "Archivo de paint (*.Bmp)|*.Bmp|Internet (*.Jpg)|*.Jpg"
commondialog1.ShowOpen
If Err Then
'Cancelada la operación de abrir
Else
rem meter el path salido a un caption
archivos = commondialog1.FileName
On Error GoTo fin
rem cargar a un image1 o picture1
image1.Picture = LoadPicture(archivos)
picture1.Picture = LoadPicture(archivos)
Exit Sub
End If
fin:
'mensajes.Caption = "Archivo vacío"
End Sub