Enregistrer sous, command bar

titesuze Messages postés 6 Date d'inscription samedi 26 juin 2004 Statut Membre Dernière intervention 26 juillet 2004 - 26 juil. 2004 à 20:18
quiaimeflash Messages postés 270 Date d'inscription samedi 29 novembre 2003 Statut Membre Dernière intervention 11 juillet 2007 - 26 juil. 2004 à 23:28
Je voudrai faire apparaitre la fenêtre "enregistrer sous" à la fin d'une procédure. Comment puis-je m'y prendre?
Merci d'avance!!!

2 réponses

cs_frop01 Messages postés 1352 Date d'inscription lundi 27 octobre 2003 Statut Membre Dernière intervention 19 novembre 2008 2
26 juil. 2004 à 20:43
utilise le control Common dialog

pour lancer :

commondialog1.Action = 2

le resultat se trouve dans :

commondialog1.FileName

cyberscorp2004@msn.com
Qui s'y frotte, s'y pique .
0
quiaimeflash Messages postés 270 Date d'inscription samedi 29 novembre 2003 Statut Membre Dernière intervention 11 juillet 2007
26 juil. 2004 à 23:28
Oui exactement, tu place un Common dialog (CommonDialog1) et ce code :

CommonDialog1.Filter = "All Files (*.*)"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
    Open CommonDialog1.FileName For Output As #1
    Print #1, RichTextBox1.Text
    Close #1
End If


Dans le code ci-dessous on enregistre dans le fichier le contenu d'un RichTextBox (RichTextBox1) mais tu peut remplacer par ce que tu veut...
0
Rejoignez-nous