Visual Basic - abrir imagen

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de Francisco

abrir imagen

Publicado por Francisco (52 intervenciones) el 16/07/2009 11:50:28
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:abrir imagen

Publicado por Rolando (115 intervenciones) el 16/07/2009 16:31:36
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Francisco

si pero no

Publicado por Francisco (52 intervenciones) el 16/07/2009 18:39:37
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:si pero no

Publicado por JaImE GuErReRo (361 intervenciones) el 16/07/2009 21:26:38
estas completamente seguro que los archivos que quieres cargan estan en las rutas que guardas en el txt???
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Francisco

RE:si pero no

Publicado por Francisco (52 intervenciones) el 16/07/2009 22:50:08
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:si pero no

Publicado por JaImE GuErReRo (361 intervenciones) el 17/07/2009 16:42:48
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:abrir imagen

Publicado por juan carlos (14 intervenciones) el 17/07/2009 08:37:59
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar