SaveFileDialog

cs_nirmou Messages postés 7 Date d'inscription lundi 13 novembre 2000 Statut Membre Dernière intervention 15 avril 2005 - 15 avril 2005 à 11:42
jeffrey666 Messages postés 1 Date d'inscription samedi 24 novembre 2007 Statut Membre Dernière intervention 11 mars 2008 - 11 mars 2008 à 01:45
Salut à tous,

Voilà, je travaille sous VB.net. Dans mon Main, j'utilise une SaveFileDialog. Le problème est que lorsque je click sur Annuler la fenêtre se ferme mais la suite du pgm continue. Comment faire pour sortir du pgm en ayant au préalable testé sur quel bouton l'utilisateur a cliqué.

Merci.

Nirmou.

4 réponses

econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 25
15 avril 2005 à 12:04
If SaveFileDialog.Filename <> "" Then

faire la sauvegarde

End If




Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
cs_lim Messages postés 329 Date d'inscription jeudi 20 novembre 2003 Statut Membre Dernière intervention 10 mai 2014 7
15 avril 2005 à 12:07
salut

'Exemple savefiledialog
'Répertoire de départ
SaveFile.InitialDirectory = "C:"
'Filtre
S
aveFile.Filter = ""
'Si le résultat de retour de la fenêtre SaveFile est OK

If SaveFile.ShowDialog = DialogResult.OK Then
'Récupération deu fichier

Dim s As String

s = SaveFile.FileName
else
'Sinon Clic sur annuler
'Ton code
End if

@+
LIM
cs_nirmou Messages postés 7 Date d'inscription lundi 13 novembre 2000 Statut Membre Dernière intervention 15 avril 2005
15 avril 2005 à 18:37
Merci ça marche presque. Une petite précion tout de même svp, lorsque je clique OK et que le nom sous lequel je veux enregistrer est déjà pris, une fenêtre de confirmation s'ouvre avec OUI ou NON. je teste donc le bouton OK et le bouton OUI. Sinon je sors du pgm Main. Mais la sortie ne fonctionne pas. Il quitte bien la SavefileDialog mais continue a parcourir le Main.
Même en testant le dialogResult.cancel ça sort pas?
Je suis a court d'idées. Voici les lignes concernées de mon code

Module Principal

Public Sub enregistrer_click (Byval les arguments nécessaires )

Dim fichierAs New SaveFileDialog



fichier.Filter = "Tous les fichiers (*.*)|*.*|dessin (*.mail)|*.mail"

fichier.FilterIndex = 2


fichier.RestoreDirectory = True


fichier.Title = "enregistrer le fichier .mail sous "


fichier.overwriteprompt = True


If fichier.ShowDialog = DialogResult.OK or DialogResult.YES Then


Dim s As String


s = fic_maillage.FileName 'récupération du fichier


Else 'sinon sortie du pgm Main


End


End If
End Sub

Sub Main()

enregistrer_click(avec les bons arguments bien sûr)

End Sub

End module
jeffrey666 Messages postés 1 Date d'inscription samedi 24 novembre 2007 Statut Membre Dernière intervention 11 mars 2008
11 mars 2008 à 01:45
i love you all
Rejoignez-nous