Erreur : "L'objet a été déchargé"

Question

Bonjour!
http://pcmanprogrammeur.neuf.fr/archives/probleme.rar
Regard&#233; l'erreur et pouvez-vous me dire comment faire pour la r&#233;soudre?

cs_CanisLupus · Answer

D&#233;j&#224;, 1&#232;re erreur, ton archive ne contient que projet1.vbw.

Loup Gris

Gobillot · Answer

en Vert ce qui est inutile. en Rouge ce qui fait erreur. le Message en Bleu ne se fait jamais, quand le Load de la Form2 est terminé, le Form2 est déjà déchargée, d'où l'erreur sur Load Form2 parce que la Fom2 n'est toujours pas chargée. remplace Unload Form2 par Form2.Hide et l'erreur n'apparaît plus. comme particularité c'est intéressant, ce qui prouve que le Load attend la fin du chargement. mais comme code c'est totalement inutile, le Unload Form2 dans Form_Click aurait fait la même chose sans mettre de boucle d'attente. dans Form1 Private Sub Command1_Click() Load Form2 Msgbox "Fin du Click" End Sub dans Form2 ~~Public~~ Private fin As Boolean Private Sub Form_Click() fin = True End Sub Private Sub Form_Load() ' Dim x As Single ' Form1.Enabled = False ' Form2.Visible = True Form2.Show ' fin = False Do DoEvents Label1.Caption = "C'est moi" Loop Until fin = True ' Form1.Enabled = True Unload Form2 End Sub Daniel

cs_CanisLupus · Answer

Oups, Daniel, comment tu as pu voir l'archive au complet ?

Loup Gris

Gobillot · Answer

j'ai t&#233;l&#233;charg&#233; &#224; l'adresse indiqu&#233;e: 1589 octets
peut &#234;tre il l'a chang&#233; depuis ta derni&#232;re tentative ?
ressayes encore 

Daniel

cs_CanisLupus · Answer

Je n'ai rien dit, juste un bug de mon d&#233;zippeur de m..... !

Loup Gris

Gobillot · Answer

t'as pris quoi comme d&#233;zippeur ?
parce que je trouve que Winrar est parfait, 
j'ai encore gard&#233; l'ancienne version 2.80 qui est suffisante dans la plupart des cas, mais ici, il fallait la version sup&#233;rieure.

Daniel

cs_CanisLupus · Answer

moi c'est la derni&#232;re version gratuite de powerarchiver (6.00).

Je crois que je vais me payer un zippeur/d&#233;zippeur multiformat payant. 

Loup Gris

pcmanprogrammeur · Answer

Bonjour!
Merci pour la r&#233;ponse. J'essaierai plus tard et je vous dirai si &#231;a marche.
Je n'ai pas modifi&#233; l'archive mais j'ai utilis&#233; Winrar pour la compression.
Encore merci.
A plus tard.

pcmanprogrammeur · Answer

Voil&#224; j'ai essay&#233; et j'ai plus d'erreur. Merci.
Cenpendant reste un probl&#232;me qui est que je peux avoir ma fen&#234;tre qu'une fois.
T&#233;l&#233;charge &#224; nouveau l'archive et dis-moi ce que tu en penses.
Merci d'avance.

Gobillot · Answer

j'ai pas r&#233;ussi &#224; t&#233;l&#233;charger &#231;a me donne z&#233;ro comme longueur !!!
comme je sais pas ce que t'as fais, je vais faire des suppositions.

- contrairement &#224; ce que je pensais, la variable fin ne se r&#233;initialise pas au chargement suivant, elle reste &#224; True ce qui fait qu'on a pas pas le temps de voir la fen&#234;tre se charger. il faut donc laisser l'instruction fin = False au d&#233;but du Load.
- si la fen&#234;tre est cach&#233;e avec Form2.Hide pour la remettre visible, il faut faire Form2.Show

Daniel

pcmanprogrammeur · Answer

Bonjour!
J'ai remis le fichier corectement. Excuse-moi pour ce probl&#232;me.
Tu vas pouvoir voir que quand tu cliques une deuxi&#232;me fois sur le bouton, la Form2 ne s'ouvre pas.
Merci de ta r&#233;ponse.
A bient&#244;t

Gobillot · Answer

dans Form1

'on d&#233;charge la feuille sinon le Load ne se fera plus
Private Sub Command1_Click()
    Load Form2
    Unload Form2
End Sub


'pour &#234;tre sur qu'elle est bien d&#233;charg&#233;e
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Unload Form2
End Sub

Daniel

Erreur : "L'objet a été déchargé"

12 réponses

Discussions similaires