Sous menu - Enregistrer sous

Question

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

quiaimeflash · Answer

heu...
Tu veut koi ?

cs_RedDog · Answer

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

quiaimeflash · Answer

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

cs_x0x · Answer

merciii

Sous menu -> Enregistrer sous

4 réponses

Discussions similaires