Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel
seb-seb a écrit :
bonjour pour terminer mes applis j'utilise "end" j'ai cru entendre que c'etait pas top est-ce vrai et au cas ou comment je termine ? merci
Effectivement c'est pas du tout top. End ne libere pas les ressources..
Au mini fit un Unload Me pour fermer ta form et si c'est la derniere ton application se fermera, apres on peut sophistiquer, dans le genre si tu as plusieurs Form tu appelles cette Sub dans Query_Unload
Sub Unload_All_Forms()
'Unload all project Form Dim frm As Form
For Each frm In Forms Unload frm Next frm
End Sub
A+
seb-seb a écrit :
bonjour
pour terminer mes applis j'utilise "end"
j'ai cru entendre que c'etait pas top
est-ce vrai et au cas ou comment je termine ?
merci
Effectivement c'est pas du tout top.
End ne libere pas les ressources..
Au mini fit un Unload Me pour fermer ta form et si c'est la derniere
ton application se fermera, apres on peut sophistiquer, dans le genre
si tu as plusieurs Form
tu appelles cette Sub dans Query_Unload
bonjour pour terminer mes applis j'utilise "end" j'ai cru entendre que c'etait pas top est-ce vrai et au cas ou comment je termine ? merci
Effectivement c'est pas du tout top. End ne libere pas les ressources..
Au mini fit un Unload Me pour fermer ta form et si c'est la derniere ton application se fermera, apres on peut sophistiquer, dans le genre si tu as plusieurs Form tu appelles cette Sub dans Query_Unload
Sub Unload_All_Forms()
'Unload all project Form Dim frm As Form
For Each frm In Forms Unload frm Next frm
End Sub
A+
seb-seb
"Michel" a écrit dans le message de news: k9Qve.6044$
seb-seb a écrit :
bonjour pour terminer mes applis j'utilise "end" j'ai cru entendre que c'etait pas top est-ce vrai et au cas ou comment je termine ? merci
Effectivement c'est pas du tout top. End ne libere pas les ressources..
Au mini fit un Unload Me pour fermer ta form et si c'est la derniere ton application se fermera, apres on peut sophistiquer, dans le genre si tu as plusieurs Form tu appelles cette Sub dans Query_Unload
Sub Unload_All_Forms()
'Unload all project Form Dim frm As Form
For Each frm In Forms Unload frm Next frm
End Sub
ok merci bien
"Michel" <mrodenas@iFrance.com> a écrit dans le message de news:
k9Qve.6044$hV3.2050@nntpserver.swip.net...
seb-seb a écrit :
bonjour
pour terminer mes applis j'utilise "end"
j'ai cru entendre que c'etait pas top
est-ce vrai et au cas ou comment je termine ?
merci
Effectivement c'est pas du tout top.
End ne libere pas les ressources..
Au mini fit un Unload Me pour fermer ta form et si c'est la derniere
ton application se fermera, apres on peut sophistiquer, dans le genre
si tu as plusieurs Form
tu appelles cette Sub dans Query_Unload
"Michel" a écrit dans le message de news: k9Qve.6044$
seb-seb a écrit :
bonjour pour terminer mes applis j'utilise "end" j'ai cru entendre que c'etait pas top est-ce vrai et au cas ou comment je termine ? merci
Effectivement c'est pas du tout top. End ne libere pas les ressources..
Au mini fit un Unload Me pour fermer ta form et si c'est la derniere ton application se fermera, apres on peut sophistiquer, dans le genre si tu as plusieurs Form tu appelles cette Sub dans Query_Unload
Sub Unload_All_Forms()
'Unload all project Form Dim frm As Form
For Each frm In Forms Unload frm Next frm
End Sub
ok merci bien
seb-seb
"seb-seb" a écrit dans le message de news:
"Michel" a écrit dans le message de news: k9Qve.6044$
seb-seb a écrit :
bonjour pour terminer mes applis j'utilise "end" j'ai cru entendre que c'etait pas top est-ce vrai et au cas ou comment je termine ? merci
Effectivement c'est pas du tout top. End ne libere pas les ressources..
Au mini fit un Unload Me pour fermer ta form et si c'est la derniere ton application se fermera, apres on peut sophistiquer, dans le genre si tu as plusieurs Form tu appelles cette Sub dans Query_Unload
Sub Unload_All_Forms()
'Unload all project Form Dim frm As Form
For Each frm In Forms Unload frm Next frm
End Sub
ok merci bien
dans certaines fenetre j'ai utilisé query_unload pour annuler le unload (cancel =1) pour rendre invisible à la place je fais comment pour les fermer quand meme ???
"seb-seb" <sperot51@msn.com> a écrit dans le message de news:
uqI1msweFHA.3836@tk2msftngp13.phx.gbl...
"Michel" <mrodenas@iFrance.com> a écrit dans le message de news:
k9Qve.6044$hV3.2050@nntpserver.swip.net...
seb-seb a écrit :
bonjour
pour terminer mes applis j'utilise "end"
j'ai cru entendre que c'etait pas top
est-ce vrai et au cas ou comment je termine ?
merci
Effectivement c'est pas du tout top.
End ne libere pas les ressources..
Au mini fit un Unload Me pour fermer ta form et si c'est la derniere
ton application se fermera, apres on peut sophistiquer, dans le genre
si tu as plusieurs Form
tu appelles cette Sub dans Query_Unload
Sub Unload_All_Forms()
'Unload all project Form
Dim frm As Form
For Each frm In Forms
Unload frm
Next frm
End Sub
ok merci bien
dans certaines fenetre j'ai utilisé query_unload pour annuler le unload
(cancel =1) pour rendre invisible à la place
je fais comment pour les fermer quand meme ???
"Michel" a écrit dans le message de news: k9Qve.6044$
seb-seb a écrit :
bonjour pour terminer mes applis j'utilise "end" j'ai cru entendre que c'etait pas top est-ce vrai et au cas ou comment je termine ? merci
Effectivement c'est pas du tout top. End ne libere pas les ressources..
Au mini fit un Unload Me pour fermer ta form et si c'est la derniere ton application se fermera, apres on peut sophistiquer, dans le genre si tu as plusieurs Form tu appelles cette Sub dans Query_Unload
Sub Unload_All_Forms()
'Unload all project Form Dim frm As Form
For Each frm In Forms Unload frm Next frm
End Sub
ok merci bien
dans certaines fenetre j'ai utilisé query_unload pour annuler le unload (cancel =1) pour rendre invisible à la place je fais comment pour les fermer quand meme ???
Jean-Marc
"seb-seb" a écrit dans le message de news:
"seb-seb" a écrit dans le message de news:
> "Michel" a écrit dans le message de news: > k9Qve.6044$ >> seb-seb a écrit :
dans certaines fenetre j'ai utilisé query_unload pour annuler le unload (cancel =1) pour rendre invisible à la place je fais comment pour les fermer quand meme ???
Hello,
comme ceci par exemple:
Dim G_MUST_QUIT As Boolean
Private Sub Command1_Click() G_MUST_QUIT = True Unload Me End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If G_MUST_QUIT Then ' ne rien faire ' la fenêtre va se fermer quand même MsgBox "Je me ferme quand même car je suis appelé de puis COmmand1" Else MsgBox "Non non, pas avec la croix!!" Cancel = True End If End Sub
-- Jean-marc "There are only 10 kind of people those who understand binary and those who don't." mailto: remove '_no_spam_' ;
"seb-seb" <sperot51@msn.com> a écrit dans le message de
news:um5y9LzeFHA.1136@TK2MSFTNGP12.phx.gbl...
"seb-seb" <sperot51@msn.com> a écrit dans le message de news:
uqI1msweFHA.3836@tk2msftngp13.phx.gbl...
> "Michel" <mrodenas@iFrance.com> a écrit dans le message de news:
> k9Qve.6044$hV3.2050@nntpserver.swip.net...
>> seb-seb a écrit :
dans certaines fenetre j'ai utilisé query_unload pour annuler le unload
(cancel =1) pour rendre invisible à la place
je fais comment pour les fermer quand meme ???
Hello,
comme ceci par exemple:
Dim G_MUST_QUIT As Boolean
Private Sub Command1_Click()
G_MUST_QUIT = True
Unload Me
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If G_MUST_QUIT Then
' ne rien faire
' la fenêtre va se fermer quand même
MsgBox "Je me ferme quand même car je suis appelé de puis COmmand1"
Else
MsgBox "Non non, pas avec la croix!!"
Cancel = True
End If
End Sub
--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
> "Michel" a écrit dans le message de news: > k9Qve.6044$ >> seb-seb a écrit :
dans certaines fenetre j'ai utilisé query_unload pour annuler le unload (cancel =1) pour rendre invisible à la place je fais comment pour les fermer quand meme ???
Hello,
comme ceci par exemple:
Dim G_MUST_QUIT As Boolean
Private Sub Command1_Click() G_MUST_QUIT = True Unload Me End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If G_MUST_QUIT Then ' ne rien faire ' la fenêtre va se fermer quand même MsgBox "Je me ferme quand même car je suis appelé de puis COmmand1" Else MsgBox "Non non, pas avec la croix!!" Cancel = True End If End Sub
-- Jean-marc "There are only 10 kind of people those who understand binary and those who don't." mailto: remove '_no_spam_' ;
Jacques93
Bonsoir Jean-Marc, Jean-Marc a écrit :
"seb-seb" a écrit dans le message de news:
"seb-seb" a écrit dans le message de news:
"Michel" a écrit dans le message de news: k9Qve.6044$
seb-seb a écrit :
dans certaines fenetre j'ai utilisé query_unload pour annuler le unload (cancel =1) pour rendre invisible à la place je fais comment pour les fermer quand meme ???
Hello,
comme ceci par exemple:
Dim G_MUST_QUIT As Boolean
Private Sub Command1_Click() G_MUST_QUIT = True Unload Me End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If G_MUST_QUIT Then ' ne rien faire ' la fenêtre va se fermer quand même MsgBox "Je me ferme quand même car je suis appelé de puis COmmand1" Else MsgBox "Non non, pas avec la croix!!" Cancel = True End If End Sub
Version 'Lite' ;-)
Private Sub Command1_Click() Unload Me End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = vbFormCode Then ' ne rien faire ' la fenêtre va se fermer quand même MsgBox "Je me ferme quand même car je suis appelé par du code" Else MsgBox "Non non, pas avec la croix!!" Cancel = True End If End Sub
-- Cordialement,
Jacques.
Bonsoir Jean-Marc,
Jean-Marc a écrit :
"seb-seb" <sperot51@msn.com> a écrit dans le message de
news:um5y9LzeFHA.1136@TK2MSFTNGP12.phx.gbl...
"seb-seb" <sperot51@msn.com> a écrit dans le message de news:
uqI1msweFHA.3836@tk2msftngp13.phx.gbl...
"Michel" <mrodenas@iFrance.com> a écrit dans le message de news:
k9Qve.6044$hV3.2050@nntpserver.swip.net...
seb-seb a écrit :
dans certaines fenetre j'ai utilisé query_unload pour annuler le unload
(cancel =1) pour rendre invisible à la place
je fais comment pour les fermer quand meme ???
Hello,
comme ceci par exemple:
Dim G_MUST_QUIT As Boolean
Private Sub Command1_Click()
G_MUST_QUIT = True
Unload Me
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If G_MUST_QUIT Then
' ne rien faire
' la fenêtre va se fermer quand même
MsgBox "Je me ferme quand même car je suis appelé de puis COmmand1"
Else
MsgBox "Non non, pas avec la croix!!"
Cancel = True
End If
End Sub
Version 'Lite' ;-)
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbFormCode Then
' ne rien faire
' la fenêtre va se fermer quand même
MsgBox "Je me ferme quand même car je suis appelé par du code"
Else
MsgBox "Non non, pas avec la croix!!"
Cancel = True
End If
End Sub
"Michel" a écrit dans le message de news: k9Qve.6044$
seb-seb a écrit :
dans certaines fenetre j'ai utilisé query_unload pour annuler le unload (cancel =1) pour rendre invisible à la place je fais comment pour les fermer quand meme ???
Hello,
comme ceci par exemple:
Dim G_MUST_QUIT As Boolean
Private Sub Command1_Click() G_MUST_QUIT = True Unload Me End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If G_MUST_QUIT Then ' ne rien faire ' la fenêtre va se fermer quand même MsgBox "Je me ferme quand même car je suis appelé de puis COmmand1" Else MsgBox "Non non, pas avec la croix!!" Cancel = True End If End Sub
Version 'Lite' ;-)
Private Sub Command1_Click() Unload Me End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = vbFormCode Then ' ne rien faire ' la fenêtre va se fermer quand même MsgBox "Je me ferme quand même car je suis appelé par du code" Else MsgBox "Non non, pas avec la croix!!" Cancel = True End If End Sub
-- Cordialement,
Jacques.
seb-seb
"Jacques93" a écrit dans le message de news:
Bonsoir Jean-Marc, Jean-Marc a écrit :
"seb-seb" a écrit dans le message de news:
"seb-seb" a écrit dans le message de news:
"Michel" a écrit dans le message de news: k9Qve.6044$
seb-seb a écrit :
dans certaines fenetre j'ai utilisé query_unload pour annuler le unload (cancel =1) pour rendre invisible à la place je fais comment pour les fermer quand meme ???
Hello,
comme ceci par exemple:
Dim G_MUST_QUIT As Boolean
Private Sub Command1_Click() G_MUST_QUIT = True Unload Me End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If G_MUST_QUIT Then ' ne rien faire ' la fenêtre va se fermer quand même MsgBox "Je me ferme quand même car je suis appelé de puis COmmand1" Else MsgBox "Non non, pas avec la croix!!" Cancel = True End If End Sub
Version 'Lite' ;-)
Private Sub Command1_Click() Unload Me End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = vbFormCode Then ' ne rien faire ' la fenêtre va se fermer quand même MsgBox "Je me ferme quand même car je suis appelé par du code" Else MsgBox "Non non, pas avec la croix!!" Cancel = True End If End Sub
-- Cordialement,
Jacques.
bien le merci dans mon cas la version de jean-marc est plus adapté
"Jacques93" <jacques.le-gocNO@PUBwouanadoo.fr> a écrit dans le message de
news: eU2Z9C1eFHA.2420@TK2MSFTNGP12.phx.gbl...
Bonsoir Jean-Marc,
Jean-Marc a écrit :
"seb-seb" <sperot51@msn.com> a écrit dans le message de
news:um5y9LzeFHA.1136@TK2MSFTNGP12.phx.gbl...
"seb-seb" <sperot51@msn.com> a écrit dans le message de news:
uqI1msweFHA.3836@tk2msftngp13.phx.gbl...
"Michel" <mrodenas@iFrance.com> a écrit dans le message de news:
k9Qve.6044$hV3.2050@nntpserver.swip.net...
seb-seb a écrit :
dans certaines fenetre j'ai utilisé query_unload pour annuler le unload
(cancel =1) pour rendre invisible à la place
je fais comment pour les fermer quand meme ???
Hello,
comme ceci par exemple:
Dim G_MUST_QUIT As Boolean
Private Sub Command1_Click()
G_MUST_QUIT = True
Unload Me
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If G_MUST_QUIT Then
' ne rien faire
' la fenêtre va se fermer quand même
MsgBox "Je me ferme quand même car je suis appelé de puis
COmmand1"
Else
MsgBox "Non non, pas avec la croix!!"
Cancel = True
End If
End Sub
Version 'Lite' ;-)
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbFormCode Then
' ne rien faire
' la fenêtre va se fermer quand même
MsgBox "Je me ferme quand même car je suis appelé par du code"
Else
MsgBox "Non non, pas avec la croix!!"
Cancel = True
End If
End Sub
--
Cordialement,
Jacques.
bien le merci
dans mon cas la version de jean-marc est plus adapté
"Michel" a écrit dans le message de news: k9Qve.6044$
seb-seb a écrit :
dans certaines fenetre j'ai utilisé query_unload pour annuler le unload (cancel =1) pour rendre invisible à la place je fais comment pour les fermer quand meme ???
Hello,
comme ceci par exemple:
Dim G_MUST_QUIT As Boolean
Private Sub Command1_Click() G_MUST_QUIT = True Unload Me End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If G_MUST_QUIT Then ' ne rien faire ' la fenêtre va se fermer quand même MsgBox "Je me ferme quand même car je suis appelé de puis COmmand1" Else MsgBox "Non non, pas avec la croix!!" Cancel = True End If End Sub
Version 'Lite' ;-)
Private Sub Command1_Click() Unload Me End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = vbFormCode Then ' ne rien faire ' la fenêtre va se fermer quand même MsgBox "Je me ferme quand même car je suis appelé par du code" Else MsgBox "Non non, pas avec la croix!!" Cancel = True End If End Sub
-- Cordialement,
Jacques.
bien le merci dans mon cas la version de jean-marc est plus adapté
