[TuT] Die installierten Schriftarten ermitteln

====================================================

In diesem Tutorial zeige ich euch, wie wir unsere installierten Schriftarten anzeigen.

===================================
===================================
•Was wir brauchen
- 1x ListBox
- 1x PictureBox
===================================
===================================

===================================
===================================

Zunächst ist dieser Text wichtig damit wir arbeiten können.
Dieser kommt über die Public Class Form1:

Zitat

Imports System.Drawing.Text

Danach Definieren wir die Installierten Schriften:

Zitat

Private ifc As New System.Drawing.Text.InstalledFontCollection

Beim laden der Anwendung sollen die Schriften in die ListBox eingetragen werden:

Zitat

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each ff As FontFamily In ifc.Families
ListBox1.Items.Add(ff.Name)
Next
End Sub

Den selektrierten Font darstellen in der PictureBox:

Zitat

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Dim f As New Font(ListBox1.SelectedItem.ToString(), 30, FontStyle.Bold)
Dim g As Graphics = PictureBox1.CreateGraphics()
g.Clear(Color.White)
g.DrawString(ListBox1.SelectedItem.ToString(), f, Brushes.Black, New PointF(10, 5))
End Sub

===================================
===================================

Hier nochmal der Gesamte SourceCode:

Zitat

Imports System.Drawing.Text

Public Class Form1
Private ifc As New System.Drawing.Text.InstalledFontCollection

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each ff As FontFamily In ifc.Families
ListBox1.Items.Add(ff.Name)
Next
End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Dim f As New Font(ListBox1.SelectedItem.ToString(), 30, FontStyle.Bold)
Dim g As Graphics = PictureBox1.CreateGraphics()
g.Clear(Color.White)
g.DrawString(ListBox1.SelectedItem.ToString(), f, Brushes.Black, New PointF(10, 5))
End Sub
End Class

Alles anzeigen

===================================
===================================
Credits: Sedrika

Schon aber man soll ja lernen wie man es noch machen könnte. Und die Picturebox zeigt uns die scchrift sogaar in der schreibweise.