Annulation pas prise en compte

Version imprimable

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:

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:

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

15/10/2005, 12h16
ouskel'n'or

Tu peux expliquer :

Citation:

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+
15/10/2005, 12h28
SfJ5Rpw8
pour le case modifie les lignes :
Code:

1 2 Case vbNo Case vbCancel
par

Code:

Case vbNo,vbCancel

:wink:

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:

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

15/10/2005, 14h25
SfJ5Rpw8

Citation:

Envoyé par 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é:
[/code]

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

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:

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:

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

16/10/2005, 12h56
Anduriel

Citation:

Envoyé par Mandalar

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