duda sobre if...then...
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.
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.
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.
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.
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.
Image1.Picture = LoadPicture(pImagen)
Hice "copiar-pegar" y no era necesario. Es sólo cuestión de redundancia.
__
Un saludo.