Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        sendmail()
        Label5.Visible = True
        Label5.Text = "sende mail"  ' Text vergeben
    End Sub

Visual Basic Quellcode

Private Sub SpeichernToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpeichernToolStripMenuItem1.Click
        SaveFileDialog1.Filter = "Textdatei (*.txt)|*.txt|Rich Text Format (*.rtf)|*.rtf|Alle Datein (*.*)|*.*"
        If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            'Speichern
        End If
    End Sub

Visual Basic Quellcode

 Private Sub ÖffnenToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÖffnenToolStripMenuItem1.Click
        OpenFileDialog1.Filter = "Textdatei (*.txt)|*.txt|Rich Text Format (*.rtf)|*.rtf|Alle Datein (*.*)|*.*"
        OpenFileDialog1.InitialDirectory = FileIO.SpecialDirectories.MyDocuments
        OpenFileDialog1.Title = "Datei öffnen"

        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim OpenFile As String = IO.File.ReadAllText(OpenFileDialog1.FileName)
            RichTextBox1.Text = OpenFile
        End If
    End Sub

Visual Basic Quellcode

SaveFileDialog1.Filter = "Textdatei (*.txt)|*.txt|Rich Text Format (*.rtf)|*.rtf|Alle Datein (*.*)|*.*"
        If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            'Speichern
        End If

Visual Basic Quellcode

Private Sub SpeichernToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpeichernToolStripMenuItem1.Click
        SaveFileDialog1.Filter = "Textdatei (*.txt)|*.txt|Rich Text Format (*.rtf)|*.rtf|Alle Datein (*.*)|*.*"
        If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim SaveFile As String = IO.File.ReadAllText(SaveFileDialog1.FileName)
            RichTextBox1.Text = SaveFile
        End If
    End Sub

Visual Basic Quellcode

Private Sub ToolStripButton1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        SaveFileDialog1.Filter = "Textdatei (*.txt)|*.txt|Rich Text Format (*.rtf)|*.rtf|Alle Datein (*.*)|*.*"
        If SaveFileDialog1.ShowDialog() = OK Then
            RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.RichText)
        End If

Visual Basic Quellcode

Windows.Forms.DialogResult.OK Then

Visual Basic Quellcode

{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fnil\fcharset0 Microsoft Sans Serif;}}
\viewkind4\uc1\pard\f0\fs17 afasdf\par
\par
\par
asdf\par
as\par
df\par
as\par
df\par
a\par
sd\par
f\par
}
 

Visual Basic Quellcode

Dim fs As New System.IO.FileStream(SaveFileDialog1.FileName, FileMode.Create)
        Dim sw As New System.IO.StreamWriter(fs)
        For Each Line In RichTextBox1.Lines
            sw.WriteLine(Line)
        Next
        sw.WriteLine(RichTextBox1.Text)
        sw.Close()
        fs.Close()