Diese Klasse ist statisch und stellt mehrere Font-Eigenschaften sowie Methoden zur Verfügung. Zuerst werden die wichtigsten Font-Eigenschaften vorgestellt, die man
| Eigenschaft | Typ | Beschreibung |
|---|---|---|
| .Name | String | Der Font-Name wird gesetzt oder gelesen → Schriftfamilie |
| .Size | Float | Die Font-Größe wird absolut gesetzt oder gelesen → Schriftgröße |
| .Grade | Integer | Die Schriftgröße kann relativ im Bereich -4 ≤ R ≤ +16 zur Default-Größe Size=9, entspricht R=0, gesetzt oder gelesen werden. |
| .Fixed | Boolean | Es kann nur ausgelesen werden, ob die Zeichen die gleiche Weite besitzen. |
Tabelle: 23.2.2.1 Beschreibung ausgewählter Font-Eigenschaften
| Eigenschaft | Typ | Beschreibung |
|---|---|---|
| .Bold | Boolean | Fett-Schrift wird ein- oder ausgeschaltet oder festgestellt, ob Fett-Schrift eingeschaltet ist oder nicht. |
| .Italic | Boolean | Kursiv-Schrift wird ein- oder ausgeschaltet oder festgestellt, ob Kursiv-Schrift eingeschaltet ist oder nicht. |
| .Underline | Boolean | Es wird ein- oder ausgeschaltet, ob Text unterstrichen dargestellt wird oder festgestellt, ob der Schriftstil „underline“ eingeschaltet ist oder nicht. |
| .Strikeout | Boolean | Es wird ein- oder ausgeschaltet, ob Text durchgestrichen dargestellt wird oder festgestellt, ob der Schriftstil „strikeout“ eingeschaltet ist oder nicht. |
Tabelle: 23.2.2.2 Beschreibung der Font-Stile
Die Festlegung von Font-Eigenschaften oder deren Änderung für eine Komponente oder einen Text in einer Zeichnung wird immer vollständig ausgeführt. Festgelegte Font-Eigenschaften überschreiben die Standardwerte. Fehlen Angaben, dann gelten die entsprechenden Standardwerte.
1. Variante:
TextArea1.Font.Name = "Verdana" TextArea1.Font.Size = 22 TextArea1.Font.Bold = TRUE TextArea1.Font.Italic = FALSE ' Kann entfallen, weil Standardwert TextArea1.Font.Underline = FALSE ' Kann entfallen, weil Standardwert
2. Variante:
Die kompakte Zuweisung TextArea1.Font = Font[„-3,Italic“] ist daher gleichbedeutend mit:
TextArea1.Font.Name = "Sans Serif" ' Standard TextArea1.Font.Size = 6 ' gesetzt mit -3, Standardgröße 9 wird überschrieben TextArea1.Font.Bold = FALSE ' Standard TextArea1.Font.Italic = TRUE ' Standardwert FALSE wird überschrieben TextArea1.Font.Underline = FALSE ' Standard TextArea1.Font.StrikeOut = FALSE ' Standard
Achten Sie auf die Reihenfolge der Einträge im Font-String Font[„Name, Size, Bold, Italic, Underline, Strikeout“], wenn Sie bestimmte Font-Eigenschaften festlegen wollen:
3. Variante:
Einsatz der Komponente FontChooser. Im Kapitel 23.2.3 finden Sie Informationen zu dieser Komponente und ein vollständiges Projekt.
Font-Eigenschaften einer Komponente können Sie zum Beispiel kompakt mit der Methode .ToString() oder in einzelnen Eigenschaften auslesen:
Public Sub FontAuslesen() TextBox1.Text = TextArea1.Font.ToString() End
Beachten Sie jeweils den Datentyp der Eigenschaft, dessen Wert zurückgegeben wird:
DIM sFontname As String DIM iFontSize As Float DIM bFontBold As Boolean sFontname = TextArea1.Font.Name iFontSize = TextArea1.Font.Size bFontBold = TextArea1.Font.Bold ...
Schriftstile bewirken eine Änderung der Anzeige in einer Komponente – hier bei einer TextArea – und man kann diese Stile über die Elemente des Styles-Arrays auslesen:
DIM sElement AS Variant FOR EACH sElement IN TextArea1.Font.Styles PRINT sElement NEXT
Obgleich Sie es vermuten würden, ist die Schriftfarbe ist keine Font-Eigenschaft. Für die Komponente TextArea1 zum Beispiel wird die Schriftfarbe rot mit TextArea1.Foreground = Color.Red festgelegt.
Weitere Informationen zu Farben – vor Allem im Zusammenhang mit der Klasse Color – finden Sie im Kapitel 23.1.1.
Diese Klasse ist statisch und besitzt nur eine Eigenschaft, die Auskunft über die Anzahl der installierten Fonts im System gibt.
DIM iFontCount AS Integer iFontCount = Fonts.Count
Die Namen aller Fonts kann man aus der (virtuellen) Zusammenstellung auslesen:
PUBLIC SUB Form_Open() DIM sFontName AS String cmbFonts.Clear() cmbFonts.ReadOnly = True For Each sFontName In Fonts cmbFonts.Add(sFontName) Next ' sFontName END ' Form_Open