Discussion :

[Anduriel]

Salut,

Lors de la fermeture d'un code ouvert, je demande s'il faut le sauvegarder. J'essai de faire en sorte que lorsque l'utilisateur dit "OUI" puis qu'il annule à l'ouverture de la boite de dialogue, rien ne se passe.
Mais aucun moyen mon code est executé et tout se faire.

Voila ma source:

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
24
25
Function CloseLink()
    If IsSave = False Then
        Erreur = MsgBox("Voulez-vous sauvegarder la connection actuelle?", vbExclamation + vbYesNoCancel, "Sauvegarder?")
            Select Case Erreur
                Case vbYes
                    Call Save
                Case vbNo
                Case vbCancel
                    GoTo Annul
            End Select
        End If
        ' "Tout se ferme" c'est ce qui suit
        IsSave = False
        Label1.Visible = True
        TextCode.Visible = False
        mnu_save.Enabled = False
        mnu_fermer.Enabled = False
        mnu_edit.Enabled = False
        Form1.Toolbar1.Buttons(3).Enabled = False
        Form1.Toolbar1.Buttons(5).Enabled = False
        Form1.Toolbar1.Buttons(6).Enabled = False
        Form1.Toolbar1.Buttons(7).Enabled = False
Annul:
    Exit Function
End Function

Et ma fonction Save:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function Save()
    On Error GoTo Annul
    OpenSave.FileName = Trim(Form2.Text1(0).Text)
    OpenSave.ShowSave
    IsSave = True
    Dim FileSave As String
    FileSave = OpenSave.FileName
    Open FileSave For Output As #1
        Print #1, "blabla"
    Close #1
 
Annul:
    Exit Function
End Function

D'ou vien ce problème?
Merci

[ouskel'n'or]

Tu peux expliquer :

Mais aucun moyen mon code est executé et tout se faire

?
Si l'utilisateur répond Oui, Function Save() doit s'exécuter, si j'ai bien compris...

A+

[SfJ5Rpw8]

pour le case modifie les lignes :

Code :

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

1
2
  Case vbNo
                Case vbCancel

par

Code :

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

  Case vbNo,vbCancel

[Mandalar]

Je crois que son probleme est qu'il souhaite que si l'utilisateur clique sur "annuler" dans le commondialog permettant de choisir le fichier, le code le suivant ne soit pas éxecuté:

[EDIT : Je crois que ca ne résoud pas le probleme, voir plus loin]

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
Function Save()
    On Error GoTo Annul
    OpenSave.FileName = Trim(Form2.Text1(0).Text)
    OpenSave.ShowSave
 
    If OpenSave.FileName = "" Then
    Goto Annul
    End if
 
    IsSave = True
    Dim FileSave As String
    FileSave = OpenSave.FileName
    Open FileSave For Output As #1
        Print #1, "blabla"
    Close #1
 
Annul:
    Exit Function
End Function

[SfJ5Rpw8]

Je crois que son probleme est qu'il souhaite que si l'utilisateur clique sur "annuler" dans le commondialog permettant de choisir le fichier, le code le suivant ne soit pas éxecuté:
[/code]

ben la modif que j'ai proposé sert à ca !

[Mandalar]

En y réfléchissant je crois qu'on est a coté tous les deux!!!

Ce qu'il veut c'est que, lors de l'execution de la fonction save, l'appui sur la touche "annuler" de la boite de dialogue permettant de choisir le fichier ou sauvegarder annule a la fois la sauvegarde ET fasse en sorte que le programme ne quitte pas.

Ta solution ne touche pas a ca, et la mienne n'empechait pas la fermeture de l'application.

Apparemment il me semblerait que quelque chose comme ca soit plus approprié :

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
24
25
26
Function CloseLink()
    If IsSave = False Then
        Erreur = MsgBox("Voulez-vous sauvegarder la connection actuelle?", vbExclamation + vbYesNoCancel, "Sauvegarder?")
            Select Case Erreur
                Case vbYes
                    Erreur = Save
                    If Erreur = 0 Then Goto Annul
                Case vbNo
                Case vbCancel
                    GoTo Annul
            End Select
        End If
        ' "Tout se ferme" c'est ce qui suit
        IsSave = False
        Label1.Visible = True
        TextCode.Visible = False
        mnu_save.Enabled = False
        mnu_fermer.Enabled = False
        mnu_edit.Enabled = False
        Form1.Toolbar1.Buttons(3).Enabled = False
        Form1.Toolbar1.Buttons(5).Enabled = False
        Form1.Toolbar1.Buttons(6).Enabled = False
        Form1.Toolbar1.Buttons(7).Enabled = False
Annul:
    Exit Function
End Function

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
Function Save() As Integer
    On Error GoTo Annul
    OpenSave.FileName = Trim(Form2.Text1(0).Text)
    OpenSave.ShowSave
 
    If OpenSave.FileName = "" Then
    Save = 0
    Goto Annul
    End if
 
    IsSave = True
    Save = 1
    Dim FileSave As String
    FileSave = OpenSave.FileName
    Open FileSave For Output As #1
        Print #1, "blabla"
    Close #1
 
Annul:
    Exit Function
End Function

[Anduriel]

Ce qu'il veut c'est que, lors de l'execution de la fonction save, l'appui sur la touche "annuler" de la boite de dialogue permettant de choisir le fichier ou sauvegarder annule a la fois la sauvegarde ET fasse en sorte que le programme ne quitte pas.

Exactement et je vous remercie beaucoup car les codes donnés fonctionnent parfaitement

Merci