cs_Tioneb
Messages postés193Date d'inscriptiondimanche 16 décembre 2001StatutMembreDernière intervention29 juillet 2015
-
6 mai 2007 à 12:31
cs_Tioneb
Messages postés193Date d'inscriptiondimanche 16 décembre 2001StatutMembreDernière intervention29 juillet 2015
-
6 mai 2007 à 13:13
Bijour,
J'ai un petit problème avec mon appli en cours. Je n'arrive pas à fermer les form automatiquement lorsque ma form principale se ferme.
Je m'explique: Mon appli regarde dans une BDD s'il y a des messages à afficher (en gros); si oui, je génère dynamiquement une nouvelle form à partir d'une existante (appelée EcranPostIt et générée via une variable tableau oForm() as New EcranPostIt). Donc pour ce faire je fais un ReDim sur oForm pour pouvoir afficher une nouvelle fenêtre.
Maintenant, pour la fermer, j'utilise un controle image avec une image dedans (c'est une fenêtre du type ReyXPBasics donc je suis en BorderStyle=0) dont le code est simplement Unload Me. Jusque là tout marche bien.
Si maintenant, je veux quitter mon programme (même si des "post-it" sont encore affichés), je ferme l'écran principal (plutart il sera en systray) appelé EcranPrincipal (c'est original, non?). Dans son QueryUnload j'ai mis le code suivant:
On Error Resume Next
For i = LBound(oForm()) To UBound(oForm()) + 1
'Set oForm(i) = Nothing
Unload oForm(i)
DoEvents
Next i
"i" est une variable integer. J'ai même essayé le 1er code de ce site (la ligne en commentaire) mais çe ne fonctionne toujours pas. Parce qu'avec cette fonction, il ne ferme que la dernière affiché, les autres reste telle quelle et le programme reste en mémoire.
J'espère que j'ai été bien clair et que quelqu'un aura une solution. S'il faut que je mette du code en plus, dites le.
Merci d'avance
--------------------------------------------------------------------------
Visitez mon site sur http://bp-software.ifrance.com/
cs_Tioneb
Messages postés193Date d'inscriptiondimanche 16 décembre 2001StatutMembreDernière intervention29 juillet 2015 6 mai 2007 à 12:46
Pour le +1 c'est quand je cherchais une solution à mon problème, c'était pour pour être sur qu'il passe en revue toutes les form.
Je viens d'essayer et ça fait toujours pareil; de plus c'est toujours la même form qui se ferme.
Pour faire apparaitre et disparaitre les form, j'utilise une animation (trouvé sur ce site) qui fait un fondu en opacité. Et ça prend un peu de temps. Peut-être que c'est à cause de ce temps que ça ne marche pas bien?
S'il le faut, je peux mettre un zip de mon projet sur la toile, comme ça c'est plus explicite
--------------------------------------------------------------------------
Visitez mon site sur http://bp-software.ifrance.com/
Vous n’avez pas trouvé la réponse que vous recherchez ?
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 6 mai 2007 à 12:55
Je vais faire 2 3 tests avec une autre façon.
Sinon, oui, vire temporairement l'effet de fondu, j'ai déjà eu des soucis avec ces APIs. Au moins on saura si c'est cela qui provoque le problème.
@++
--Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 201615 6 mai 2007 à 13:12
Salut à tous,
Il me semble que Jmfmarques avait répondu aussi à un topic il n'y a pas très longtemps sur une même question...D'ailleurs ce même topic était devenu un "exercice"...
cs_Tioneb
Messages postés193Date d'inscriptiondimanche 16 décembre 2001StatutMembreDernière intervention29 juillet 2015 6 mai 2007 à 13:13
Excellent, ton dernier code fonctionne! J'avais essayé un "For Each" mais ça n'avais pas fonctionné. Merci beaucoup
Sinon bon courage pour ton boulot, ça doit pas être marrant de bosser le dimanche!
Enfin, je laisse quelque temps le zip en ligne (avec le problème) pour ceux qui voudrait.... ben je sais pas moi, pour voir ce qu'il y a dedans!
Encore merci
--------------------------------------------------------------------------
Visitez mon site sur http://bp-software.ifrance.com/