[VB6] gestion de la croix sur une MDIForm ??

Recherche :

Dernière réponse
Sujet : [VB6] gestion de la croix sur une MDIForm ??
R3g	Juste pour dire qu'en utilisant l'evenement QueryUnload (qui se produit juste avant Unload), tu peux controler la cause du dechargement de la feuille ( et n'afficher le message que si l'utilisateur a cliqué sur la croix, et pas si windows veux se fermer).

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

R3g	Juste pour dire qu'en utilisant l'evenement QueryUnload (qui se produit juste avant Unload), tu peux controler la cause du dechargement de la feuille ( et n'afficher le message que si l'utilisateur a cliqué sur la croix, et pas si windows veux se fermer).

camarchepoa

oky !!

merci beaucoup !!

chapi

Ben voui ;)

camarchepoa

Chapi a écrit a écrit :

C'est pareil, il faut que tu ailles dans l'evenement unload de ta feuille et que tu joues avec la valeur booleenne cancel

Admettons que ta feuille s'appelle form :

Private Sub Form_Unload(Cancel As Integer)
Cancel = True 'Empêche la sortie de la feuille

Cancel = false 'autorise la sortie de la feuille

End Sub

Vouala, j'espère avoir été clair ;-)

ok !!
et faut faire ca pour chacune des MDI_Child ( ou g rien compris alors ;) )

Fredaxe

Private Sub MDIForm_Unload(Cancel As Integer)

Dim rep as string

rep = msgbox ("Voulez-vous decharger la feuille ?", vbyesno)
if rep = vbno then Cancel = True

End Sub

Tu gagnes quelques lignes... ;)

chapi

C'est pareil, il faut que tu ailles dans l'evenement unload de ta feuille et que tu joues avec la valeur booleenne cancel

Admettons que ta feuille s'appelle form :

Private Sub Form_Unload(Cancel As Integer)
Cancel = True 'Empêche la sortie de la feuille

Cancel = false 'autorise la sortie de la feuille

End Sub

Vouala, j'espère avoir été clair ;-)

camarchepoa

par contre tu sait pas comment faire pour pas que ca ferme les MDI_Child ?

parceque la ca me le fait et donc ca pert tout ce qui n'a pas ete sauvagarde ...

Merci !!

chapi

Ah oui... au temps pour moi ;)

camarchepoa

super c ca !!!

par contre c'est l'inverse entre le oui et le non :)

merci bcp :jap:

chapi

Dans l'evenement UNLOAD de ta feuille MDI (par exe MDIForm), tu tapes :

Private Sub MDIForm_Unload(Cancel As Integer)

Dim rep as string

rep = msgbox ("Voulez-vous decharger la feuille ?", vbyesno)
if rep = vbyes then
Cancel = True
else
end
end if

End Sub

Voualaaa !

camarchepoa

bijour !!! :hello:

qq sait comment gerer la croix pour fermer sur une MDIForm ?? :??:

en fait je voudrais pas que ca ferme l'appli mais que ca demande avant confirmation ...

merci d'avance pour vos reponses !! :jap: