Feedback

VB - Fonts

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

Visual Studio Team Foundation Server 2017/2015 (TFS) für Administratoren - Kompakt

Nach dieser Schulung beherrschen Sie die Grundlagen des TFS. Sie erledigen administrative Aufgaben schnell und sicher.

ASP.NET Core - Der Einstieg

In nur 3 Tagen lernen Sie, wie man mit ASP.NET Core und den Technologien MVC, Entity Framework, WebAPI und Razor professionelle Web-Anwendungs-Architekturen aufbaut. Diese Schulung ist der perfekte Einstieg, um datengetriebene und präsentations-orientierte Applikationen auf Basis der ASP.NET Core Plattform zu erstellen.

  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!