Discussion :

[ANOVA]

Bonjour,

je dois faire un programme Vb et je cherche comment je peux acceder à la procédure qui se lance lorsque je clique sur le bouton enregsitrer d'une commondialog.showSave.

Merci

[leroissejp]

Bonsoir,
Voici un exemple, place sur ta Form, un CommandButton, un TextBox, un CommonDialog.

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
 
Private Sub Command1_Click()
'Définition des propriétés de la boîte de dialogue
With CommonDialog1
    .DialogTitle = "Enregistrer le fichier sous..."
    .CancelError = True
    .Filter = "Texte(*.txt)|*.txt|Perso(*.Per)|*.Per|Tous(*.*)|*.*"
    .FilterIndex = 1
    .InitDir = "C:\"
    .FileName = "Agenda.txt"
'Définition de la routine de traitement d'erreur _
de la boîte de dialogue
On Error GoTo Annuler
    .ShowSave
'Enregistre le contenu du TxetBox dans le fichier _
Agenda.txt
 Open .FileName For Output As #1
    Print #1, Text1.Text
    Close #1
    End With
MsgBox "La sauvegarde sera réalisée dans le fichier " & CommonDialog1.FileName + "."
GoTo Suite:
Annuler:
    MsgBox "Vous n'avez sélectionné aucun fichier de sauvegarde"
Suite:
End Sub

jpleroisse

[Mehdi_ab]

bonjour
je veux te dire qu'il n y a pas une procédure associé a l'evenement clique sur le botton enregistrer que tu peux la programmez directement , c simplement le code qui se poursuit apres le dechargement de la boite de dialogue (en cliquant sur annuler ou Enregistrer Sous dans le cas d'une boite de dialogue Showsave ), aprés tu peux recupérer les variables "Filename" (ou bien color dans le cas d'une boite de dialogue de type showcolor )

j'espére que j'ai compris la question

[SfJ5Rpw8]

utilise plutôt

Code :

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

 Application.GetSaveAsFilename

...