22/08/2009, 11:28
|
| | | Fecha de Ingreso: mayo-2009
Mensajes: 238
Antigüedad: 15 años Puntos: 7 | |
| Respuesta: Ayuda con error 53
Podrias solucionar asi
Dim Ruta As String
Ruta = ("C:\imagenes\" & (Text1.Text) & ".jpg")
on error goto Error_nombre
Image1.Picture = LoadPicture(Ruta)
Exit sub
Error_nombre:
Msgbox "Se produjo un error"
Image1.Picture = LoadPicture("Imagen_predefenida")
o podrias hacer una comprobacion verificando si el archivo existe en la ruta que especificas, por el foro ahy varios ejemplo de "saber si archivo existe" |