Fonts

  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

  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

Alte URL: /snippet/fonts/5947