Discussion :

[xanatos]

Bonjour,

Voici mon code :

Code :

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

1
2
3
4
5
6
7
 
dim file_number as integer
SaveFileDialog1.ShowDialog()
file_number = FreeFile()
FileOpen(file_number, SaveFileDialog1.FileName, OpenMode.Output)
Print(file_number, RichTextBox1.Text)
Print(file_number, Chr(10))

Bon en fait ça marche très bien ... j'ai ma boite de dialogue qui apparait, je peux enregistrer mon fichier à l'endroit où je veux et avec le nom que je veux lui donner.

Par contre je ne peux pas choisir l'extension de fichier dans lequel je veux enregistrer le contenu de ma RichTextBox1, et c'est un peu embêtant.

DOnc si quelqu'un sait ce qu'il faut faire, ben ça serait ultra-sympa de me répondre...

Thanks!

[boubounne]

essaye ca :

Code :

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

1
2
 
saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"

c'est pour sauvegarder au format txt

[xanatos]

C'est sympa, mais c'est pas vraiment ca que je demande;

En fait quand je fais enregistrer sous dans mon programme, il ya ma boite de dialogue qui apparait avec au centre les fichiers que l'on selectionne pour faire l'enregistrement et en dessous il y a deux liste deroulante; une où l'on met le nom du fichier et l'autre où l'on met le type (rtf, doc, txt...).

... et c'est dans cette deuxième liste déroulante qu'il n'apparait rien; normalement je devrait pouvoir choisir le type, et la je ne peux rien choisir.

Donc je me demandais s'il je n'ai pas oublié un peu de code quelque part pour pouvoir bénéficier de cette fonctionnalité....

[kwest]

Bonsoir,

A mon avis, il faut combiner :

http://www.java2s.com/Tutorial/VB/02...edfilename.htm

avec la fonction savefile du richtexbox :

http://plasserre.developpez.com/v3-4.htm
http://msdn.microsoft.com/library/fr...eFileTopic.asp

Un peu comme dans l'exemple sauf que ce sont des formats d'images :

http://msdn2.microsoft.com/fr-fr/library/sfezx97z.aspx

Ou si tu veux gérer juste l'extension par défaut, voir propriété AddExtension :

http://msdn2.microsoft.com/fr-fr/lib...g_members.aspx

[SaumonAgile]

... et c'est dans cette deuxième liste déroulante qu'il n'apparait rien; normalement je devrait pouvoir choisir le type, et la je ne peux rien choisir.

C'est exactement ce que t'a donné boubounne...

[kazylax]

Tu cherche le code suivant ?
si c'est le cas le voici

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
 
        Try
            Dim MonTexte As String = "Texte à enregistrer"
            Dim dlg As New SaveFileDialog()
            dlg.Title = "Enregistrer le fichier"
            dlg.DefaultExt = "txt"
            dlg.Filter = "Fichier .Txt|*.txt|Fichier .Doc|*.doc|Fichier .Php|*.php|Fichier .Php3|*.php3|Fichier .Rtf|*.rtf"
            ' Ouverture de la boîte
            dlg.ShowDialog()
            ' Enregistrement du fichier
            Dim sw As New StreamWriter(dlg.FileName, False, System.Text.Encoding.Default)
            sw.WriteLine(TextBox10.Text)
            sw.Close()
        Catch ex As Exception
            'MsgBox("Erreur !")
        End Try