Discussion :

[batmat86]

Bonjour à vous, je viens vous demander conseil, dans mon application et mon menu, j'ai fais une partie quitter, qui permet de quitter le programme en demandant avant si l'on souhaite ou non enregistrer les données.

Pour cela je proccéde de cette façon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub m_fichier_quitter_Click()
    Dim r As Integer
    r = MsgBox("Voulez-vous enregistrez les préférences et les lignes ?", vbQuestion Or vbYesNoCancel, "Folding Online Signature")
    If r = vbYes Then
        Call m_fichier_enregistrersous_Click
                If Me.chkSysTray.value = 1 Then
                        Unload m_frmSysTray
                        Set m_frmSysTray = Nothing
                End If
                End
        End If
End Sub

Mon problème, c'est que je ne sais pas comment faire pour lorsque l'utilisateur clique sur NON que cela quitte le programme

merci d'avance de votre aide.

[Leray]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub m_fichier_quitter_Click()
    Dim r As Integer
    r = MsgBox("Voulez-vous enregistrez les préférences et les lignes ?", vbQuestion Or vbYesNoCancel, "Folding Online Signature")
    Select Case r
        Case vbYes
            Call m_fichier_enregistrersous_Click
        Case vbCancel
            Exit Sub
    End Select                
    If Me.chkSysTray.value = 1 Then
        Unload m_frmSysTray
        Set m_frmSysTray = Nothing
    End If
    End
End Sub

C'est ça que tu veux faire ?

[batmat86]

Bonjour et merci, oui c'était bien cela, là ça fonctionne correctement à proprement parlé.

Mais là maintenant me reste un problème, là si l'utilisateur clique sur oui pour enregistrer les paramètre, cela ouvre bien ma boite de dialogue, mais là si l'utilisateur fait annuler sur cette boite, cela ferme aussi le programme, chose qui ne devrait pas se faire.

Ce qui est bizarre c'est si l'on fait enregistrer sous avant de quitter, et là on clique sur annuler sur la boite de dialogue là cela fonctionne bien, il n'y a que lorsque l'on vient de quitter que ce annuler ne fonctionne pas

Voilà le code que j'ai en partie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub m_fichier_enregistrersous_Click()
    On Error GoTo Erreur
    SaveUser.Filter = "Fichiers Config (*.ini)|*.ini"
    SaveUser.ShowSave
    'Test de l'existance du fichier
    If Dir(SaveUser.Filename, vbHidden) <> "" Then
    'le fichier existe (vbHidden permet de le retrouver même s'il est caché)
    'Si le fichier existe alors le supprimer
    Kill SaveUser.Filename
    End If
    EcritDansFichierIni "Options générales", "Numéro extremeoverclocking", txt_nom.Text, SaveUser.Filename
  ... 
Exit Sub
Erreur:
    Select Case Err
    Case 32755 '-- l'action a été annulée
        Exit Sub
    Case Else '-- autres  erreurs
        Call MsgBox("Erreur " & str(Err.Number) & " : " & Err.Description, 0 + 16)
    End Select
    Err.Clear
 
End Sub

[Leray]

Il te suffit d'utiliser une variable booléenne que tu mets à True ou False selon le résultat de l'appel à m_fichier_enregistrersous_Click().

Supposons que tu déclares une variable du nom de OK. Dans ta procédure m_fichier_enregistrersous_Click(), tu la mets à True si l'enregistrement s'est bien passé, et à False dans le cas contraire.

Le code de ta procédure pour quitter devient donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
..........
    Select Case r
        Case vbYes
            Call m_fichier_enregistrersous_Click
            If not OK then Exit Sub
        Case vbCancel
            Exit Sub
............

[batmat86]

Merci cela fonctionne très bien, maintenant me reste plus qu'à faire de même si l'utilisateur clique sur la croix en haut à droite pour fermer le logiciel.

Le hic c'est que vu que je reprends l'application, je ne sais pas quelle fonction cela appel

[Leray]

Et avec ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Call m_fichier_enregistrersous_Click
    If Not OK then Cancel=True
End Sub

[batmat86]

En mettant que le code donné cela fonctionne.

Mais si je met cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim r As Integer
    Dim Ok As Boolean
    r = MsgBox("Voulez-vous enregistrez les préférences et les lignes ?", vbQuestion Or vbYesNoCancel, "Folding Online Signature")
    Select Case r
        Case vbYes
            Call m_fichier_enregistrersous_Click
            If Not Ok Then Cancel = True
        Case vbCancel
            Exit Sub
    End Select
    If Me.chkSysTray.value = 1 Then
        Unload m_frmSysTray
        Set m_frmSysTray = Nothing
    End If
    End
End Sub

Là cela ne fonctionne plus

[Leray]

Il faut que la variable OK soit déclarée dans la partie Déclarations de la feuille pour que la procédure m_fichier_enregistrersous_Click puisse l'utiliser.

[batmat86]

Il faut que la variable OK soit déclarée dans la partie Déclarations de la feuille pour que la procédure m_fichier_enregistrersous_Click puisse l'utiliser.

C'est à dire déclarer OK en public au début de la forme ?? C'est ce que je viens de faire en supprimant biensur les déclartions local, mais le problème reste identique

Mai sje pense que c'est moi qui est du mal comprendre

[Leray]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Dim r As Integer
    r = MsgBox("Voulez-vous enregistrez les préférences et les lignes ?", vbQuestion Or vbYesNoCancel, "Folding Online Signature")
    Select Case r
        Case vbYes
            Call m_fichier_enregistrersous_Click
            If Not Ok Then
                Cancel = True
                Exit Sub
             End If
        Case vbCancel
            Cancel = True
            Exit Sub
    End Select
    If Me.chkSysTray.value = 1 Then
        Unload m_frmSysTray
        Set m_frmSysTray = Nothing
    End If
    End
End Sub

[batmat86]

Et bien merci beaucoup pour les explications, l'aide et la patience

tout fonctionne très bien, je vais pouvoir donc enfin sortir la nouvelle version du logiciel après plus de deux mois de compréhension du code de l'ancien développeur, du vb que je ne connaissais pas et de plus de 300 lignes de code faites.

je suis trop content. Merci beaucoup et je met mon tag résolu