Fenêtre bloquéeRésolu

Question

Salut,

Comme je le disais dans un précédent post j'ai une fenêtre que je n'arrive pas à fermer. En fait il semble que ce soit la procédure unload qui ne marche pas. Y a t-il un moyen de savoir ce qui empêche sa fermeture ?

Vince

Renfield · Accepted Answer

ah oui, pour identifier cette fenetre, une fois le bug répliqué, j'ai pressé le bouton pause.
ensuite, j'ai lancé la fenêtre d'execution (Ctrl+G)
ensuite, j'ai tapé :

? forms.count
1
? forms(0).name
FPort

la fenetre FPort était donc chargée quelque part....

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Dolphin Boy · Answer

Salut,
As-tu du code dans les évènements QueryUnload, Unload et Terminate ?
Qu'y a-t-il comme objets sur cette Form ?

cs_VinceVG · Answer

Non je n'ai pas de code la dedans. J'avais mis un queryunload pour voir l'état de cancel qui était à 0. J'ai tout ce qu'on peut avoir comme objet : sstab, txtbox, label, Commandbuton, richtextbox, image, frame + des boutons perso (plutôt non MS mais ils ne posent pas de pb dans d'autre fenêtre).

J'ai temporairement résolu mon problème avec un terminatprocess mais ce n'est pas trés élégant et en plus mon bug en cache sans doute un autre.

En tout cas merci de passer du temps à m'aider

Vince

PCPT · Answer

salut,
tu n'as ce problème qu'avec ce projet?
tu n'as pas un timer à intervalle court qui gêne?
ou une boucle en sortie?
ou juste un me.enabled = false?

Dolphin Boy · Answer

Comme tu dis, ton bug en cache sans doute un autre. 
Pour ça, il faudrait voir ton code.
Je ne pense pas que ça vienne de VB, sinon il se produirait pour les autres forms.
Comme le suggère , tu n'aurais pas une boucle interminable ou longue, sans DoEvents qui s'exécute quand ta form est affichée ?
Et puis, tu fermes ta form comment ? par code, par la croix,... ?

cs_VinceVG · Answer

Salut,
Pour ça, il faudrait voir ton code.
Il est ici. Mais il faut aussi aller sur mon site en page AVR et télécharger configAVR pour tester.
tu fermes ta form comment ? par code, par la croix,... ? 
Les deux.
Je ne pense pas que ça vienne de VB
Moi non plus. Quoi que depuis que j'ai changé de PC VB plante systématiquement à la fermeture. Mais sans autres inconvénients.
tu n'as ce problème qu'avec ce projet?
tu n'as pas un timer à intervalle court qui gêne?
Non. J'ai effectivement un problème de timer sur un bouton que je n'ai pas créé (BTL). Il marche alléatoirement. 
ou une boucle en sortie?
Ca je ne sais  pas, je ne trouve pas.
ou juste un me.enabled = false?
Non.

Je suis électronicien et j'ai appris la proframmation tout seul (sauf l'assembleur et les démarche de base). Il n'y a pas une démarche de debuggage qui me premettrait de m'en sortir ?

cs_VinceVG · Answer

A et j'ai oublié : Merci à vous deux de tenter de m'aider.

cs_VinceVG · Answer

Ici en fait.http://www.vbfrance.com/code.aspx?ID=31828

Vince

PCPT · Answer

pas d'installeur stp, met juste les fichiers manquant et indique quelle form plante

cs_VinceVG · Answer

T'as mal lu je n'ais mis que l'appli mais elle utilise des fichiers et vérifie leur présence. Donc il sont nécessaire mais trop gros pour ce qui est permis ici je suggère donc d'aller les chercher avec mon install sur mon site perso : http://anyedit.free.fr/.

Par contre je met le script NSIS pour exemple et aider les autres (c'est bien la philosophie ;-)  ). 

La form qui plante est FeuilleAssistante. Je m'explique : Si on ouvre l'apli et qu'on ferme fenConfiguration ça marche. par contre si on ouvre l'appli FenConfiguration et qu'on ouvre ensuite FeuilleAssistante (en cliquant sur le bouton assistante (vertical) FeuilleAssistante refuse de se fermer. Et donc empèche l'appli de se fermer proprement. Si je met un end sa plante (c'est ça le bug que je pense indépendant de mon appli et qui doit être le même que celui de VB).

PCPT · Answer

ces fichiers "nécessaires", c'est un pack zip?

bref si tu pense que l'erreur est là, essai ceci :

Dim Frm As Form
For Each Frm In Forms
    Unload Frm
Next Frm

à mettre bien sur dans le Form_Unload ~foireux~

++
PCPT   [AFCK]

PCPT · Answer

penses, essaie (pas en forme moi ^^)

cs_VinceVG · Answer

ces fichiers "nécessaires", c'est un pack zip?

Non c'est un install.

cs_VinceVG · Answer

Dim Frm As Form
For Each Frm In Forms
    Unload Frm
Next Frm

Bon j'ai essayé ça et ça ne marche pas mieux mais c'est logique puisque le unload FeuilleAssistant échoue déjà tout seul. Non je pense que tu étais plus proche de la vérité avec tes histoires de Timer et autre. Mais je n'ai aucun indice ni méthode pour trouver ce bug.

PCPT · Answer

désolé de cette relance mais je n'INSTALLE aucun package de membres, même de confiances où qui ont fait leurs preuves (sauf rares exceptions)

fait un zip complet et pratique pour que je regarde, j'y passerai du temps s'il le faut.
pas d'exe ni d'auto-extractible.

ps : sans rancune, pas de prob si tu ne veux pas....

++
PCPT  [AFCK]

cs_VinceVG · Answer

Salut,



   Je n'ai aucun problème avec tes mesures de sécurité. Et je te remercie de bien vouloir passer du temps à mon problème. Tu trouvera mon source à cette AVR - Pour PCPT.zip adresse.



Vince

PCPT · Answer

zip téléchargé, je te tiens au courant dans la journée

cs_VinceVG · Answer

Salut,



   Ca c'est du service rapide. Merci.


Vince

Renfield · Answer

manque des modules ...

BoitesUsuelsAPI.bas
modUSER32.bas
DOSClass.cls
Infobulle.ctl
Btl.ctl
GestionXML.cls
Son.Pag

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_VinceVG · Answer

Salut,



   Je ne me rappelais plus que j'avais un tel bordel dans mon appli. Je refais un zip avec tout dedans et je le remet.


Vince

PCPT · Answer

tu m'ôtes les mots de la bouche :p
sauf que DOSClass y est.
pour plus de détail, édite ton fichier vbp, voir contenu de 'Divers Visual'
manque aussi apparemment AVRC_GCC.BTL

cs_VinceVG · Answer

Salut,



   Bon je pense que j'ai tout mis dans le même répertoire ce coup ci et j'ai refais le projet.
pour plus de détail, édite ton fichier vbp, voir contenu de 'Divers Visual'
Là je ne vois rien dedans mais j'utilise MZ-tools
manque aussi apparemment AVRC_GCC.BTL
Je n'en ai pas trace et je ne me souviens pas l'avoir créé.
Le nouveau est AVR-pour pcpt -2.rar ici.


Vince

Renfield · Answer

ton soucis, c'est la fenetre FPort, qui se charge, mais n'est pas déchargée...

elle est chargée a cause de :
    FPort.TPorts.Caption = "Port " & Port(0)

en changeant ta procédure FermerLAppli, tu n'aura plus de soucis :

Public Sub FermeLAppli(ClassName As String, Titre As String)
' par le nom de la fenêtre
'exemple :     FermeLAppli vbNullString, "Configuration des outils"

    Dim ProcessHandle As Long
    Dim ProcessId As Long
    Dim Appli As Long
    Dim F As Form
    Const PROCESS_TERMINATE = 1
    
    'Arrêt systématique en mode debuggage
    If CBool(App.LogMode) Then
        Appli = FindWindow(ClassName, Titre)
        GetWindowThreadProcessId Appli, ProcessId
        ProcessHandle = OpenProcess(PROCESS_TERMINATE, False, ProcessId)

        'A revoir ça ne marche pas Peutêtre par un passage de valeur à l'autre qui fermerait celle ci ???
        FenConfiguration.Show
        If FenetreExistante <> 0 Then
            Call FenêtreDevant(FenetreExistante)
        End If
        TerminateProcess ProcessHandle, 4
    End If
    For Each F In Forms
        Unload F
    Next F
End Sub

Renfield
Admin CodeS-SourceS- MVP Visual Basic

PCPT · Answer

c'est la course? ....

chez moi il manque encore qqc ....

feuille assistante :
Ligne 430: Impossible de charger le contrôle ListeModèle.
Ligne 450: Impossible de charger le contrôle CBHeure.
Ligne 470: Impossible de charger le contrôle CBDate.
Ligne 952: Impossible de charger le contrôle CBBaud.

cs_VinceVG · Answer

Salut,



   Là vous êtes géniaux. Merci à tous les deux. Le bug et la démarche pour le trouver et en bonus la correction. C'est le bug et l'argent du bug.

Ligne 430: Impossible de charger le contrôle ListeModèle.
Ligne 450: Impossible de charger le contrôle CBHeure.
Ligne 470: Impossible de charger le contrôle CBDate.
Ligne 952: Impossible de charger le contrôle CBBaud.
Ce sont des contrôles ownerDraw. Si tu veux je te met l'ocx (vbalODCL6.ocx).

J'essaye ça et je coche en résolu.



Vince

PCPT · Answer

vbalODCL6.ocx est bien présent (je ne l'avais pas enregistré)
bizarre pas de message d'erreur à l'ouverture du projet....

cs_VinceVG · Answer

Salut,



   Bon ça marche. Pcpt m'avait donné ça dés le début :

Dim Frm As Form
For Each Frm In Forms
    Unload Frm
Next Frm

Et ça ne marchait pas. Mais entre temps j'avais trouvé un autre bug sur un timer et je n'avais pas pensé à réessayer.

Merci encore.


Vince

Fenêtre bloquée

27 réponses

Votre réponse

Discussions similaires