Feedback

VB - Fonts

Veröffentlicht von am 17.03.2015
(0 Bewertungen)
Auflistung der installierten bzw. privaten Fonts
GFU-Schulungen  [Anzeige]

VB.NET Einführung

Die Schulung zeigt Ihnen, wie Sie einfache, benutzerorientierte Programme, die auf Datenbanken zugreifen, in VB.NET eigenständig entwickeln. 

VB.NET Komplett

Sie stehen vo der Aufgabe, individuelle Anwendungen für Windows zu schreiben. Hier ist VB.NET die optimale Sprache. Sie erlernt sich recht leicht und passt sich komplett in die .NET Umgebung von Microsoft ein. Nach der Schulung entwickeln Sie anwenderfreundliche Programme in VB.NET . Mit den objektorientierten Modellen in VB.NET erzeugen Sie außerdem wiederverwendbare Komponenten.

  Function FontFams(ByVal Ix As Integer) As Array
    ' Get the array of FontFamily objects.
    Dim fontFamilies() As FontFamily
    Select Case Ix
      Case 1
        Dim FontCollection As New InstalledFontCollection()
        fontFamilies = FontCollection.Families
        Return fontFamilies
      Case 2
        Dim FontCollection As New PrivateFontCollection()
        fontFamilies = FontCollection.Families
        Return fontFamilies
      Case Else
        Return Nothing
    End Select
  End Function


'Aufruf in ListBox

    ListBox1.Items.Clear()
    For Each FN As FontFamily In FontFams(1)
      ListBox1.Items.Add(FN.Name)
    Next

1 Kommentare zum Snippet

horstfh schrieb am 17.03.2015:
Sorry! Es fehlt noch:

[code]Imports System.Drawing.Text[\code]
 

Logge dich ein, um hier zu kommentieren!