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:
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
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
D'ou vien ce problème?
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
Merci
Partager