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.
Font
- 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.
DrawString()
- 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.