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

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

Marsh Posté le 20-02-2002 à 14:17:13    

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:


---------------
Ca marche pas sauf des fois ........
Reply

Marsh Posté le 20-02-2002 à 14:17:13   

Reply

Marsh Posté le 20-02-2002 à 15:27:02    

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 !


---------------
I drive at 88mph ! Just in case...
Reply

Marsh Posté le 20-02-2002 à 16:01:26    

super c ca !!!
 
par contre c'est l'inverse entre le oui et le non  :)  
 
 
merci bcp  :jap:


---------------
Ca marche pas sauf des fois ........
Reply

Marsh Posté le 20-02-2002 à 16:02:32    

Ah oui... au temps pour moi ;)


---------------
I drive at 88mph ! Just in case...
Reply

Marsh Posté le 21-02-2002 à 18:02:30    

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 !!


---------------
Ca marche pas sauf des fois ........
Reply

Marsh Posté le 22-02-2002 à 10:28:18    

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 ;-)


---------------
I drive at 88mph ! Just in case...
Reply

Marsh Posté le 22-02-2002 à 14:49:11    

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...  ;)

Reply

Marsh Posté le 22-02-2002 à 16:25:44    

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  ;) )


---------------
Ca marche pas sauf des fois ........
Reply

Marsh Posté le 22-02-2002 à 16:27:00    

Ben voui ;)


---------------
I drive at 88mph ! Just in case...
Reply

Marsh Posté le 22-02-2002 à 16:42:16    

oky !!
 
merci beaucoup !!


---------------
Ca marche pas sauf des fois ........
Reply

Marsh Posté le 22-02-2002 à 16:42:16   

Reply

Marsh Posté le 22-02-2002 à 19:18:29    

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).


---------------
Au royaume des sourds, les borgnes sont sourds.
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed