Gesamter Quellcode

Public Class Form1

    Private Sub NeuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeuToolStripMenuItem.Click
        RichTextBox1.Clear()
    End Sub

    Private Sub LadenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LadenToolStripMenuItem.Click
        RichTextBox1.Text = ""
        OpenFileDialog1.ShowDialog()
        Dim textline As String
        FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
        textline = LineInput(1)
        RichTextBox1.Text = RichTextBox1.Text + textline + Chr(13) + Chr(18)
    End Sub

    Private Sub SpeichernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpeichernToolStripMenuItem.Click
        SaveFileDialog1.ShowDialog()
        My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName + ".txt", RichTextBox1.Text, False)
    End Sub

    Private Sub ArtUndGrößeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ArtUndGrößeToolStripMenuItem.Click
        FontDialog1.ShowDialog()
        RichTextBox1.Font = FontDialog1.Font
    End Sub

    Private Sub FarbeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FarbeToolStripMenuItem.Click
        ColorDialog1.ShowDialog()
        RichTextBox1.ForeColor = ColorDialog1.Color
    End Sub

    Private Sub SeiteEinrichtenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SeiteEinrichtenToolStripMenuItem.Click
        PageSetupDialog1.ShowDialog()
    End Sub

    Private Sub DruckenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DruckenToolStripMenuItem.Click
        PrintDocument1.Print()
    End Sub

    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        RichTextBox1.SelectAll()
        e.Graphics.DrawString( _
            RichTextBox1.SelectedText, _
            RichTextBox1.SelectionFont, _
            Brushes.Black, _
            New System.Drawing.RectangleF( _
                e.MarginBounds.Top, _
                e.MarginBounds.Left, _
                e.PageBounds.Width, _
                e.PageBounds.Height))
        e.HasMorePages = False
    End Sub

    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub AllesMakierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AllesMakierenToolStripMenuItem.Click
        RichTextBox1.SelectAll()
    End Sub

    Private Sub AllesLöschenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AllesLöschenToolStripMenuItem.Click
        RichTextBox1.Clear()
    End Sub
End Class