cs_nirmou
Messages postés7Date d'inscriptionlundi 13 novembre 2000StatutMembreDernière intervention15 avril 2005
-
15 avril 2005 à 11:42
jeffrey666
Messages postés1Date d'inscriptionsamedi 24 novembre 2007StatutMembreDernière intervention11 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é.
cs_lim
Messages postés329Date d'inscriptionjeudi 20 novembre 2003StatutMembreDernière intervention10 mai 20147 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
cs_nirmou
Messages postés7Date d'inscriptionlundi 13 novembre 2000StatutMembreDernière intervention15 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)