Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
C-Cobra
Newbie
Newbie

Anmeldedatum: 01.08.2009
Beiträge: 3
SaveFileDialog und RichTextBox Frage
Verfasst am: 01.08.2009, 07:23
Guten Morgen VS'ler,
Bin neu hier und auch in der Vb-Branche. Hello World und ein "You got rick rolled!"-Programm hab ich schon hingekriegt. lol
Google wurde jetzt ne Stunde durchsucht, vergebens.

Nun Jetzt möchte ich mich mit ner Art Multi-Texteditor üben und hab folgendes Anliegen:

Ich möchte über einen simplen ToolStripButton einen SaveFileDialog einbauen der den Inhalt der RichTextBox speichert. Es soll auch Bilder mit drin speichern können.

Dateiformate für den Filter wären .txt, .docx und .rtf.

Mein Code der nicht hinhaut:

Code:
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Dim sfd As New SaveFileDialog
        RichTextBox1.SaveFile("DeinFileName")
        sfd.InitialDirectory = "C:\Temp"
        sfd.Filter = "Textdateien (*.txt)|*.txt| " _
           & "Alle Dateien (*.*)|*.*"
        sfd.Title = "Speichern unter..."
        If sfd.ShowDialog() = DialogResult.OK
        End If
    End Sub


Ich kriegs einfach nicht hin, wenn ich daran noch etwas ändere lässt es sich nicht Debuggen. Wenn ich das wüsste würden die restlichen Buttons schneller gehen. Sad

Weiß da wer weiter oder kann es mir richtig umschreiben? Wäre super!

Grüße C-Cobra
_________________
 
C-Cobra
Newbie
Newbie

Anmeldedatum: 01.08.2009
Beiträge: 3

Verfasst am: 03.08.2009, 02:25
Hat sich erledigt! Für die die das selbe Prob haben, hier der Code:


Code:
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Dim saveFile1 As New SaveFileDialog()

        ' Initialize the SaveFileDialog to specify the RTF extention for the file.
        saveFile1.DefaultExt = "*.rtf"
        saveFile1.Filter = "RTF Files|*.rtf"

        ' Determine whether the user selected a file name from the saveFileDialog.
        If (saveFile1.ShowDialog() = System.Windows.Forms.DialogResult.OK) _
            And (saveFile1.FileName.Length > 0) Then

            ' Save the contents of the RichTextBox into the file.
            RichTextBox1.SaveFile(saveFile1.FileName)
        End If
    End Sub

Smile
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: savefiledialog, speichern, richtextbox, txt

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge [suche] Tuturials winsock & daten senden 869 09.06.2011, 12:19
Keine neuen Beiträge [Video] *.dll & *.ocx Installer 2432 06.03.2008, 20:19
Keine neuen Beiträge ListView speichern & laden 1242 05.08.2008, 12:32
Keine neuen Beiträge Registry & Co Fragen 1101 03.05.2007, 09:57
Keine neuen Beiträge Listbox speichern & laden 2047 22.03.2007, 20:25
 




[ Time: 0.1840s ][ Queries: 87 (0.0525s) ][ GZIP on - Debug on ]