FoxPro/Visual FoxPro - corriganme image

 
Vista:
Imágen de perfil de juanjo

corriganme image

Publicado por juanjo (110 intervenciones) el 31/03/2007 06:03:17
hola comunidad

me pasaron el siguiente codigo para picture variable
lo almacene en un command. y tengo el cuadro de texto que le llama Campoinuse.
y mis imagenes las tengo en el ruta que me marcar en el codigo son ima genes JPEG
cuando doy clic en el command me marca error en <<<<codigo=STR(thisform.Campoinuse.Value) >>> incompatibilidad del operador o u operando, cuando lo inhabilito con un asterisco se qiuita el error. despues doy clic y nada no hace nada no pasa nada no mmuestra la imagen.

mi imagenes estan con numero p/e 0001,0002,0003,0004 asi solo tengo 20 imagenes.
cual es el error?estos numero los ingreso en el campo de texto.


codigo=STR(thisform.Campoinuse.Value)
xo=ALLTRIM("&codigo")
ruta=ALLTRIM("C:\proyecto\emplefotos\")
tipo=ALLTRIM(".JPG")
todo=ALLTRIM("&ruta"+"&xo"+"&tipo")
rtodo=alltrim(todo)
thisform.image2.Picture="&todo"
thisform.Refresh
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:corriganme image

Publicado por Ernesto Hernandez (4623 intervenciones) el 31/03/2007 06:11:55
codigo=STR(thisform.Campoinuse.Value)
xo=ALLTRIM("&codigo")
ruta=ALLTRIM("C:\proyecto\emplefotos\")
tipo=ALLTRIM(".JPG")
todo=ALLTRIM("&ruta"+"&xo"+"&tipo")
rtodo=alltrim(todo)
thisform.image2.Picture="&todo"
thisform.Refresh


ruta=ALLTRIM("C:\proyecto\emplefotos\")
vFoto=AllTrim(ruta+AllTrim(ThisForm.Campoinuse.Value)+".JPG"
vFoto=ThisForm.Image2.Picture=vFoto
ThisForm.Refresh()

pruebalo asi

Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar