duda sobre if...then...

mundofin
11 de Enero del 2005
Hola amigos, que tal?

Supongamos que tengo esta línea:
Image1.Picture = LoadPicture("c:" & Text1.Text & ".jpg")

Como hago para que en el caso de que no encuentre el archivo, que nombre en el text1, salga un msgbox con el texto “no se encuentra la foto”. por ejemplo.

Imagino que será con la condición If ... then ..., pero no consigo hacer que salga el dichoso msgbox.

Gracias.
Saludos cordiales.

en?
11 de Enero del 2005
sencillamente lo verificas con la función Dir

dim pImagen as String

pImagen = "C:" & Text1 & ".jpg"
If Dir(pImagen) <> "" Then
Image1.Picture = LoadPicture("c:" & Text1.Text & ".jpg")
Else
MsgBox "El fichero no existe", vbCritical
End If

__
Un saludo.

en?
11 de Enero del 2005
bueno, supongo que entiendes que para cargar la imagen según lo expuesto es hacer:
Image1.Picture = LoadPicture(pImagen)

Hice "copiar-pegar" y no era necesario. Es sólo cuestión de redundancia.

__
Un saludo.

mundofin
11 de Enero del 2005
O.K.
Gracias.