Probleme fermeture application si fenetres ouvertes ....

Probleme fermeture application si fenetres ouvertes .... - VB/VBA/VBS - Programmation

Marsh Posté le 02-03-2005 à 13:22:45    

Salut,
 
Quand je ferme mon application, je fais appel à çà :
 
Private Sub MDIForm_Unload(Cancel As Integer)
    'si la connexion est établie sur le F:\
    Dim rep As Integer
     
    rep = MsgBox("Etes-vous sûr de quitter l'application ?", vbQuestion + vbYesNo, "Sortie du programme" )
    If rep = vbYes Then
        Cancel = 0
        If fileExists_2 = True Then
            'on ferme la connexion pour ensuite envoyer la db sur le F
            connexion_locale.Close
            If code_langue = 0 Then
                MsgBox "Veuillez patienter pendant l'envoi de votre db sur le disque F:\352\", vbInformation + vbOKOnly, "Backup"
            Else: MsgBox "Gelieve gedurende de zending van uw db op de schijf F:\352\ geduld te oefenen", vbInformation + vbOKOnly, "Backup"
            End If
            backupSurDisqueF
        Else
            If code_langue = 0 Then
                MsgBox "Pas de connexion au F:\ => Votre db ne sera sauvegardée que sur votre PC"
            Else: MsgBox "Geen aansluiten aan de schijf F: \ Uw db zal slechts op uw PC beschermd worden."
            End If
        End If
        Unload Me
    Else: Cancel = 1
    End If
End Sub
 
le probleme c'est que si je ferme l'application quand une fenetre est ouverte dedans, et que je clique sur annuler => cancel = 1 mais les fenetres qui étaient lancées se retrouvent unloadées :(:(
 
Une solution ???  :??:  :wahoo:  :whistle:  
 
+

Reply

Marsh Posté le 02-03-2005 à 13:22:45   

Reply

Marsh Posté le 02-03-2005 à 13:42:24    

en fait, je voudrais dire dans le unload de cette fenetre que si on a cliqué sur la (x) ou "quitter l'application" => cancel = 1

Reply

Marsh Posté le 02-03-2005 à 13:45:00    

resolu thks ;)

Reply

Marsh Posté le 02-03-2005 à 20:45:15    

y a t-il moyen de désactiver la croix pour fermer le programme ?
 
MErci d'avance

Reply

Sujets relatifs:

Leave a Replay

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