abdourasiz
Messages postés19Date d'inscriptionvendredi 11 avril 2008StatutMembreDernière intervention 2 juillet 2011
-
20 mars 2009 à 12:58
abdourasiz
Messages postés19Date d'inscriptionvendredi 11 avril 2008StatutMembreDernière intervention 2 juillet 2011
-
14 avril 2009 à 12:11
Bonjour chers collègues développeurs,
j'ai développé une application en visual fox pro 8, elle s'exécute correctement dans le Project Manager, l'exécutable généré, fonctionne comme une fenêtre flash qui s'affiche et disparait aussitôt. Pouvez vous m'aider à identifier la cause.
NB: j'ai l'habitude de développer en VFP6.
abdourasiz
Messages postés19Date d'inscriptionvendredi 11 avril 2008StatutMembreDernière intervention 2 juillet 2011 23 mars 2009 à 15:13
Oui Michel, mon programme principal comporte bien un READ EVENTS comme dernière instruction, juste après l'exécution du formulaire principal comme je le fais habituellement. Je ne sais pas s'il y a une autre façon de l'utiliser, mais c'est la première fois que je rencontre ce problème.
Merci de m'aider j'ai un cours délai pour finaliser l'application.
Cordialement !
michelatoutfox
Messages postés828Date d'inscriptionmardi 5 octobre 2004StatutMembreDernière intervention 7 mai 20131 23 mars 2009 à 17:03
Pourrais-tu nous donner ici:
-le code du prg dans lequel figure le READ EVENT
-les propriétés du form que tu appelles en premier (en particulier ShowWindow, AllwaysOnTop, AllwaysOnBottom, Desktop, WindowType)
-le code du load de ce form
-le code de l'init de ce form
abdourasiz
Messages postés19Date d'inscriptionvendredi 11 avril 2008StatutMembreDernière intervention 2 juillet 2011 23 mars 2009 à 19:55
Salut Michel, et merci pour ta disponibilité, voici comme souhaité les renseignements demandés:
programme principale:
SET DEFAULT TO "c:\program files\softdev\tontines"
open database "c:\program files\softdev\tontines\data\db_tontines" shared
use "c:\program files\softdev\tontines\data\dcb0101.dbf"
go top
if statut=.f.
replace statut with .t.
replace echeance with date()+60
else
if date()>=echeance
messagebox("Le délai de test de ce logiciel est passé..."+chr(13)+"S'il vous intéresse, passez la commande.",;
16,"Merci pour avoir testé AS-Manager")
quit
else
close all
clear all
********************** déclaration
Public rep_courant,rep_data,rep_forms,rep_reports,rep_prog,rep_menus,rep_image,modifi, ajout, date1, date2,u_nom
store {}to date1,date2
store .f. to modifi,ajout
STORE "" TO u_nom
*****************************************
rep_courant=CURDIR()
rep_data="&rep_courant"+ "data"
rep_forms="&rep_courant" + "forms"
rep_reports="&rep_courant" + "reports"
rep_prog="&rep_courant"+ "prog"
rep_image="&rep_courant" +"graphics"
rep_menus="&rep_courant" +"menus"
***********************************************************************
set date to french
set century on
set delete off
set talk off
set exact on
set point to ","
set safety off
set exclusive off
OK=""
DO FORM "&rep_forms\login.scx" to OK &&
IF empty(OK) &&
QUIT
ENDIF
***************
DO FORM "&rep_forms\fp.scx"
read events
ENDIF
ENDIF
Propriétés du formulaire principal
:<gras> Valeur
ShowWindow : 2- as a top level form
allwaysOn Top .F.
AllwaysOnBottom .F.
Desktop .F.
windowtype 0 - modeless
Cordialement
Vous n’avez pas trouvé la réponse que vous recherchez ?
michelatoutfox
Messages postés828Date d'inscriptionmardi 5 octobre 2004StatutMembreDernière intervention 7 mai 20131 25 mars 2009 à 16:50
est-ce que tu as suivi ton code au débogueur? que fait ce form de login? comment renvoie-t-il une valeur dans la variable OK?
ce form de login, où s'exécute-t-il? dans un form de premier niveau? si oui, alors il faut que l'appel de ce form de login soit fait depuis une méthode de ce form de premier niveau. si non, alors c'est dans le _screeen de VFP, et il faut que le form de login se termine par un clear events pour que ton prg appelant reprenne la suite.
il te faut donc d'abord choisir: tu exécutes ton appli dans le _screen de VFP ou bien dans un form de premier niveau?
si tu veux avancer, il faut que tu donnes le code de ce form de login, mais SURTOUT que tu débogues toi-même our comprendre ce qui se passe...
abdourasiz
Messages postés19Date d'inscriptionvendredi 11 avril 2008StatutMembreDernière intervention 2 juillet 2011 14 avril 2009 à 12:11
Bonjour Michel,
juste pour te rendre compte de l'issue de mon problème; en effet, après avoir tout essayé en vain, j'ai décidé de désinstaller kaspersky antivirus que je venais d'installer et mon VFP8. J'ai ensuite remit mon VFP8 et tout fonctionne à merveille, mais je n'ai plus remit Kaspersky, plutôt Avast.
Une fois encore merci pour tout