Carlos
Por favor proporciona un ejemplo que no te funcione para hacer pruebas
gracias
//-------------------------------------------------------------------------------------------------------------------
//Tengo una una funcion en donde esta el dialogo en donde se piden unos datos de nomina de empleados, y entre ellos esta la fotografia, por lo que hago la llamada a la funcion __BucaFoto()
//Por lo que para el ejemplo que me pedis, hice esta funcion que llama a la otra funcion, y me da el mismo error con Windos 7
FUNCTION PruebaFoto()
local cFoto
If MsgNoYes( "Desea buscar una fotografia...","Confirme por favor..." )
cFoto := __BuscaFoto( )
? cFoto
End
Return .t.
//-------------------------------------------------------------------------------------------------------------------
FUNCTION __BuscaFoto( )
local cFile
cFile := cGetFile( "BITMAP (*.bmp)| *.bmp|" + ;
"JPG (*.jpg)| *.jpg|" ;
,"Por Favor Seleccione un Archivo de Imágen" )
if ! Empty( cFile ) .and. File( cFile )
Return cFile
End
return ""
#include "fivewin.ch"
function main
local oWnd
define window oWnd
activate window oWnd;
ON CLICK PruebaFoto()
return nil
//-------------------------------------------------------------------------------------------------------------------
//Tengo una una funcion en donde esta el dialogo en donde se piden unos datos de nomina de empleados, y entre ellos esta la fotografia, por lo que hago la llamada a la funcion __BucaFoto()
//Por lo que para el ejemplo que me pedis, hice esta funcion que llama a la otra funcion, y me da el mismo error con Windos 7
FUNCTION PruebaFoto()
local cFoto
If MsgNoYes( "Desea buscar una fotografia...","Confirme por favor..." )
cFoto := __BuscaFoto( )
? cFoto
End
Return .t.
//-------------------------------------------------------------------------------------------------------------------
FUNCTION __BuscaFoto( )
local cFile
cFile := cGetFile( "BITMAP (*.bmp)| *.bmp|" + ;
"JPG (*.jpg)| *.jpg|" ;
,"Por Favor Seleccione un Archivo de Imágen" )
if ! Empty( cFile ) .and. File( cFile )
Return cFile
End
return ""
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: groiss and 38 guests