Abrir txt e imagen al mismo tiempo
De nuevo dandote molestias ,me estoy enfrentando a nuevos problemas,del codigo Private Sub File1_Click()
Image1.Picture = LoadPicture()
Image1.Picture = LoadPicture(Replace(LCase(File1), "txt", "jpg"))
End Sub
Funciona bien en la misma carpeta del ejecutable, pero si meto la imagen en una subcarpeta que se llama Canción, no lo encuentra y me sale error 53 en tiempo de ejecución, y bueno te pido de favor algún código para lograr ver las imágenes a partir del filelistboxy que tiene dirección app.path que es donde esta la carpeta llamada canción, y donde quiero alojar los archivos txty jpg.te dejo el código del file1 y como siempre te agradezco mucho tu apoyo, y pues solo me falta esto para finalizar, mi proyecto, saludos y abrazos.
codigo:File1.Path = App.Path & "\Canción"
Image1.Picture = LoadPicture()
Image1.Picture = LoadPicture(Replace(LCase(File1), "txt", "jpg"))
End Sub
Funciona bien en la misma carpeta del ejecutable, pero si meto la imagen en una subcarpeta que se llama Canción, no lo encuentra y me sale error 53 en tiempo de ejecución, y bueno te pido de favor algún código para lograr ver las imágenes a partir del filelistboxy que tiene dirección app.path que es donde esta la carpeta llamada canción, y donde quiero alojar los archivos txty jpg.te dejo el código del file1 y como siempre te agradezco mucho tu apoyo, y pues solo me falta esto para finalizar, mi proyecto, saludos y abrazos.
codigo:File1.Path = App.Path & "\Canción"
1 Respuesta
Respuesta de Luis_P
1
Entonces así:
Private Sub Command1_Click()
'4c7569735f50
Image1.Picture = LoadPicture()
Image1.Picture = LoadPicture(Replace(LCase(File1.Path & "\" & File1), "txt", "jpg"))
End Sub
Saludos y un abrazo a Mexico lindo!
Private Sub Command1_Click()
'4c7569735f50
Image1.Picture = LoadPicture()
Image1.Picture = LoadPicture(Replace(LCase(File1.Path & "\" & File1), "txt", "jpg"))
End Sub
Saludos y un abrazo a Mexico lindo!
