Sous menu -> Enregistrer sous

Salut,
sa fait 2heures que jme casse la tete avec le code de ma rubrique Enregistrer sous.. bref, jy arrive pas..
SVp si vous avez du code facile la decu veuillez me le communiquez le plutot possible , URGENT


Merci davance

heu...
Tu veut koi ?

Il te faut une boite de dialogue CommonDialogBox en VB 6 commande ShowSave) ou SaveFileDialog en VB.Net.


Et après un code du genre:
Code en VB.Net
Ici sfd1 est une SaveFileDialog

Dim d As DialogResult sfd1.Filter = "Texte (*.txt)|*.txt|Texte (*.doc)|*.doc|Texte (*.rtf)|*.rtf" sfd1.FilterIndex = 0 d = sfd1.ShowDialog If d = DialogResult.OK Then Select Case sfd1.FilterIndex Case 0 RichTextBox1.SaveFile(sfd1.FileName) ' exemple| >> ton code Case 1 RichTextBox1.SaveFile(sfd1.FileName) ' exemple| >> ton code Case 2 RichTextBox1.SaveFile(sfd1.FileName) ' exemple| >> ton code End Select End If

Ok, j'avais pas compris...
Ben si tu veut je te propose le code pour vb6.

Fau juste sur ta form :
- 1 RichTextBox (RichTextBox1)
- 1 commondialog (CommonDialog1)

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

merciii