10.3 Text schreiben

Texte werden mithilfe eines Pinsels und eines Font-Objekts auf die Zeichenfläche geschrieben. Das Beispielprogramm (Projekt ZeichnenText) beinhaltet folgende Möglichkeiten (siehe auch Abbildung 10.2):

• Schreiben eines eingegebenen Texts
• Ändern der Schriftart
• Ändern der Schriftgröße
• Ändern der Schriftfarbe
• Löschen der gesamten Zeichnung

Abbildung 10.2 Text in Zeichnung

Das gesamte Programm:

Public Class Form1
    Dim z As Graphics = CreateGraphics()
    Dim f As New Font("Arial", 16)
    Dim pinsel As New SolidBrush(Color.Red)

    Private Sub Form1_Load(...) Handles MyBase.Load
        lstSchriftart.Items.Add("Arial")
        lstSchriftart.Items.Add("Courier New")
        lstSchriftart.Items.Add("Symbol")
        lstSchriftart.SelectedIndex = 0

        lstFarbe.Items.Add("Rot")
        lstFarbe.Items.Add("Grün")
        lstFarbe.Items.Add("Blau")
        lstFarbe.SelectedIndex = 0
    End Sub
    Private Sub cmdAnzeigen_Click(...) Handles ...
        z.DrawString(txtE.Text, f, pinsel, 20, 20)
    End Sub

    Private Sub lstSchriftart_SelectedIndexChanged(...
            ) Handles lstSchriftart.
            SelectedIndexChanged
        f = New Font(lstSchriftart.Text, f.Size)
    End Sub

    Private Sub numSchriftgröße_ValueChanged(...
            ) Handles numSchriftgröße.ValueChanged
        f = New Font(f.FontFamily,
                     numSchriftgröße.Value)
    End Sub

    Private Sub lstFarbe_SelectedIndexChanged(...
            ) Handles lstFarbe.SelectedIndexChanged
        Dim color_feld() As Color =
            {Color.Red, Color.Green, Color.Blue}
        pinsel.Color =
            color_feld(lstFarbe.SelectedIndex)
    End Sub

    Private Sub cmdClear_Click(...) Handles ...
        z.Clear(BackColor)
    End Sub
End Class

Listing 10.7 Projekt »ZeichnenText«

Zur Erläuterung:

• Die Zeichenfläche und ein Pinsel zum Schreiben von Text auf die Zeichenfläche werden klassenweit gültig bereitgestellt.
• Das Schriftformat für den Text wird im Objekt f der Klasse Font zur Verfügung gestellt.
• Zu Beginn des Programms werden die beiden Listen für Schriftart und Farbe gefüllt.
• Die Methode DrawString() dient zum Schreiben des Texts. Sie benötigt den Text, ein Schriftformat, einen Pinsel und einen Ort zum Schreiben.
• Bei einem Wechsel der Auswahl im ersten Listenfeld wird eine neue Schriftart eingestellt.
• Bei einem Wechsel der Zahl im Zahlenauswahlfeld wird eine neue Schriftgröße eingestellt.
• Ein Wechsel der Farbe im zweiten Listenfeld führt zu einer Änderung der Schriftfarbe.

Ihre Meinung

Wie hat Ihnen das Openbook gefallen? Wir freuen uns immer über Ihre Rückmeldung. Schreiben Sie uns gerne Ihr Feedback als E-Mail an kommunikation@rheinwerk-verlag.de.