'Beispiel: VB .Net - Pruefen ob eine bestimmte Schriftart vorhanden ist ' Option Explicit On Option Strict On Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load Dim fnt As String() = {"Arial", "gibtesnicht"} With Me .Text = "Pruefen ob eine bestimmte Schriftart vorhanden ist" .CenterToScreen() .ComboBox1.Items.AddRange(fnt) End With End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles ComboBox1.SelectedIndexChanged Dim IsAvailable As Boolean = _ FontFamilyFamilies.IsFontAvailable(Me.ComboBox1.Items(Me.ComboBox1.SelectedIndex()).ToString()) Select Case IsAvailable Case True MessageBox.Show("Die uebergebene Schriftart ist vorhanden.", "Info") Case Else MessageBox.Show("Die uebergebene Schriftart ist nicht vorhanden.", "Info") End Select End Sub Public Class FontFamilyFamilies Public Shared Function IsFontAvailable(ByVal FontName As String) As Boolean Dim IsAvailable As Boolean = False For Each fnt As FontFamily In FontFamily.Families If fnt.Name = FontName Then IsAvailable = True End If Next Return IsAvailable End Function End Class End Class