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.