Probleme fermeture application si fenetres ouvertes .... - VB/VBA/VBS - Programmation
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
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
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 ???
+