OVH Cloud OVH Cloud

Fermeture d'un prog

2 réponses
Avatar
Pascal
bonsoir,
petit soucis dans mon prog! ben oui!

le programme fonctionne très bien, compile sans erreur, me fait mon .exe que
je peux utiliser
quand j'emploie cette *.exe et que je ferme le programme je remarque qu'il
est toujours présent dans le gestionnaire des tâches donc apparement
toujours utiliser si je veux par exemple supprimer cette *.exe je ne le peux
...erreur car en cours d'utilisation

lorsque j'ouvre le .vbp avec VB6 j'utilise et veux fermer, la form se
décharge mais je suis ensuite obliger de cliquer sur FIN pour arrêter le
prog, ca va vous suivez ?

D'ou ma question toute simple: comment ferme t'on proprement un programme
-les APIS utilisée doivent t'elles être fermée?
-les types?
-les ocx ou dll
ou que sais-je?

merci de m'éclairer

Pascal

2 réponses

Avatar
Drizzit
Salut
Il est fort probable que l'une ou plusieurs de tes fenêtres sont males
déchargées, fermées. Ne sachant pas comment est ton application, tu
peux faire ceci :

Si ton application n'a pas de fenêtre MDI
Public Sub QuitterMonApplication()
Dim objForm as Form
For Each objForm in Forms
Unload objForm
Next objForm
End Sub

Si ton application a une fenêtre MDI
Public Sub QuitterMonApplication()
Dim objForm as Form
For Each objForm in Forms
if objForm.hWnd <> LeNomDeLaFenetreMDI.hWnd then
Unload objForm
end if
Next objForm
Unload LeNomDeLaFenetreMDI
End Sub
Avatar
Pascal
Merci Drizzit,
c'est exactement cela une form qui était en hide n'éatit pas déchargée
merci de ton aide
Pascal

"Drizzit" a écrit dans le message de news:

Salut
Il est fort probable que l'une ou plusieurs de tes fenêtres sont males
déchargées, fermées. Ne sachant pas comment est ton application, tu
peux faire ceci :

Si ton application n'a pas de fenêtre MDI
Public Sub QuitterMonApplication()
Dim objForm as Form
For Each objForm in Forms
Unload objForm
Next objForm
End Sub

Si ton application a une fenêtre MDI
Public Sub QuitterMonApplication()
Dim objForm as Form
For Each objForm in Forms
if objForm.hWnd <> LeNomDeLaFenetreMDI.hWnd then
Unload objForm
end if
Next objForm
Unload LeNomDeLaFenetreMDI
End Sub