Problema en LoadPicture()
Me llamo Jose David y este me parece un gran proyecto y me atrae. Ante todo gracias.
Mi pregunta:
Tengo un formulario, y a través de un filelistbox selecciono una imagen la cual quiero cargar a través de un loadpicture ("ruta"). En mi pc todo funciona correctamente, tengo win xp. Pero cuando he llevado mi aplicación a otro pc con win98 me da el error de que cuando cargo una imagen del primer directorio por ejemplo c: sin entrar en más carpetas no encuentra el archivo ya que me carga la ruta de la siguiente manera C:\\archivo.jpg y no lo encuentra.
El código que utilizo es el siguiente:
Dim c, d As Variant
c = File1.FileName
d = File1.Path
Image1.Picture = LoadPicture(d & "\" & c)
Ese es el problema, en mi pc si lo hace correctamente, pero en otro me da el error de que no encuentra el archivo.
Mi pregunta:
Tengo un formulario, y a través de un filelistbox selecciono una imagen la cual quiero cargar a través de un loadpicture ("ruta"). En mi pc todo funciona correctamente, tengo win xp. Pero cuando he llevado mi aplicación a otro pc con win98 me da el error de que cuando cargo una imagen del primer directorio por ejemplo c: sin entrar en más carpetas no encuentra el archivo ya que me carga la ruta de la siguiente manera C:\\archivo.jpg y no lo encuentra.
El código que utilizo es el siguiente:
Dim c, d As Variant
c = File1.FileName
d = File1.Path
Image1.Picture = LoadPicture(d & "\" & c)
Ese es el problema, en mi pc si lo hace correctamente, pero en otro me da el error de que no encuentra el archivo.
1 Respuesta
Respuesta de preyes
1
Tienes varias maneras de soucionar eso
1.- Puedes verificar si el valor de la variable de es igual a la raíz de las unidades por ejemplo :
if Ucase(d) = "D:\" Or Ucase(d) = "C:\" etc..
2.- Otra más conveniente es comparar el último carácter que te regrese esa variable por ejemplo :
If Right(d,1) = "\" Then
d=mid(d,1,len(d)-1)
End if
image1.picture = loadpicture(d & "\" & c)
ó
If Right(d,1) = "\" Then
image1.picture = loadpicture(d & c)
Else
image1.picture = loadpicture(d & "\" & c)
End if
ó
If Right(d,1) <> "\" Then
Else
d=d & "\"
End If
image1.picture = loadpicture(d & c)
1.- Puedes verificar si el valor de la variable de es igual a la raíz de las unidades por ejemplo :
if Ucase(d) = "D:\" Or Ucase(d) = "C:\" etc..
2.- Otra más conveniente es comparar el último carácter que te regrese esa variable por ejemplo :
If Right(d,1) = "\" Then
d=mid(d,1,len(d)-1)
End if
image1.picture = loadpicture(d & "\" & c)
ó
If Right(d,1) = "\" Then
image1.picture = loadpicture(d & c)
Else
image1.picture = loadpicture(d & "\" & c)
End if
ó
If Right(d,1) <> "\" Then
Else
d=d & "\"
End If
image1.picture = loadpicture(d & c)
