Image1 en UserForm no carga fotografía
Tengo un trozo de código muy simple que no me está funcionando y no entiendo por qué. Se trata de mostrar una fotografía en un formulario cuando en un cuadro de texto se mete la dirección de la fotografía.
El userform es esto:
El caso es que si pongo este trozo de código para que se cargue la fotografía al incializar el formulario funciona bien:
Private Sub UserForm_Activate() Image1.Picture = LoadPicture("C:\Users\167630\Desktop\foto1.jpg") End Sub
Como podéis ver, la fotografía se carga (olvidad el zoom, es solo un ejemplo):
En cambio, cuando utilizo este código y meto exactamente la misma ruta en el cuadro de texto, nunca carga la fotografía:
Private Sub TextBox8_Change() On Error GoTo sinfoto Image1.Picture = LoadPicture(TextBox8.Value) sinfoto: Image1.Picture = LoadPicture("") End Sub
En cambio, con este trozo de código sí que funciona, así que entiendo que el error está en el uso del "On Error...":
Private Sub TextBox8_Change() If TextBox8.Value <> "" Then Image1.Picture = LoadPicture("C:\Users\167630\Desktop\foto1.jpg") Else Image1.Picture = LoadPicture("") End If End Sub
¿Alguien puede echarme una mano? Estoy totalmente atascado.
2 Respuestas
Respuesta de Dante Amor
2
Respuesta de Eduardo Pérez Fernández