Fonts, FontFamily & FontStyle / Warum bekomm ich eine exeption?!?

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Fonts, FontFamily & FontStyle / Warum bekomm ich eine exeption?!?

    Hi!
    Ich hab auf meiner Form eine ListView mit Detail-Ansicht und eine RichTextBox mit irgend nem Text.
    In der ListView lasse ich mir alle installierten Schriften auflisten und möchte dann beim klicken auf einen anderen LV-Eintrag die Schriftart bzw. Schrift in der RTB verändern!

    Nur bei einigen Schrifen, z.B. bei Aharoni, bekomm ich eine exeption das der FontStyle "Regular" nicht für diese Schrift zur verfügung steht..
    ..nun hab ich aber eine Abfrage, welche prüft ob die Schriftart mit dem FontStyle vorhanden ist!?!

    Also ich weiß das die Schrift Aharoni als Standart "Bold" ist, aber das sollte mir die Funktion eig. zurück geben!!

    Wo ist der Fehler? ;(

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing.Text
    3. Public Class Form1
    5. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    6. For Each _font As Font In getAllFonts()
    7. Dim lvItem As New ListViewItem
    8. lvItem.Text = _font.Name
    9. lvItem.Font = _font
    10. lvFonts.Items.Add(lvItem)
    12. rtb.SelectAll()
    13. Next
    14. End Sub
    16. Private Function getAllFonts() As List(Of Font)
    17. Dim _lOfFonts As New List(Of Font)
    18. Dim fonts As InstalledFontCollection = New InstalledFontCollection()
    19. For Each _font As FontFamily In fonts.Families
    20. _lOfFonts.Add(_checkFont(_font.Name.ToString))
    21. Next
    22. Return _lOfFonts
    23. End Function
    25. Private Function _checkFont(ByVal _font As String) As Font
    26. Dim __font As Font = Nothing
    27. If DoesFontExist(_font, FontStyle.Regular) = True Then
    28. __font = New Font(_font, 14, FontStyle.Regular)
    29. Else
    30. If DoesFontExist(_font, FontStyle.Bold) = True Then
    31. __font = New Font(_font, 14, FontStyle.Bold)
    32. Else
    33. If DoesFontExist(_font, FontStyle.Italic) = True Then
    34. __font = New Font(_font, 14, FontStyle.Italic)
    35. End If
    36. End If
    37. End If
    38. Return __font
    39. End Function
    41. Private Function DoesFontExist(fontFamilyName As String, fontStyle As FontStyle) As Boolean
    42. Dim result As Boolean
    43. Try
    44. Using family As New FontFamily(fontFamilyName)
    45. result = family.IsStyleAvailable(fontStyle)
    46. End Using
    47. Catch generatedExceptionName As ArgumentException
    48. result = False
    49. End Try
    50. Return result
    51. End Function
    53. Private Sub lvFonts_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lvFonts.SelectedIndexChanged
    54. If lvFonts.SelectedItems.Count > 0 Then
    56. Dim fs As FontStyle = rtb.Font.Style
    57. Dim _nFont As Font = New Font(_checkFont(lvFonts.Items(lvFonts.FocusedItem.Index).SubItems(0).Text).FontFamily.Name.ToString, 14, fs)
    59. rtb.SelectAll()
    60. rtb.SelectionFont = _nFont
    62. End If
    63. End Sub
    65. End Class

    Käy, hab da iwie den FontStyle falsch gesetzt! :whistling:

    Aber brauch ne zusätzliche Function zur FontStyle abfrage..habs nu so gelöst:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Function _getFS(ByVal _font As Font) As Integer
    2. Dim result As Integer = 0
    3. Dim isRegular = _font.Style And FontStyle.Regular ' isBold is 0 if not, 0 if it is
    4. Dim isBold = _font.Style And FontStyle.Bold ' isBold is 0 if not, 1 if it is
    5. Dim isItalic = _font.Style And FontStyle.Italic ' isItalic is 0 if not, 2 if it is
    6. Dim isUnderline = _font.Style And FontStyle.Underline ' isItalic is 0 if not, 4 if it is
    7. Dim isStrikeout = _font.Style And FontStyle.Strikeout ' isItalic is 0 if not, 8 if it is
    8. result = isRegular + isBold + isItalic + isUnderline + isStrikeout
    9. Return result
    10. End Function
    13. Private Sub lvFonts_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lvFonts.SelectedIndexChanged
    14. If lvFonts.SelectedItems.Count > 0 Then
    15. Dim _fs As FontStyle = rtb.Font.Style
    16. Dim cap As Integer = _getFS(_checkFont(lvFonts.Items(lvFonts.FocusedItem.Index).SubItems(0).Text))
    17. If cap <> 0 Then
    18. If cap = 1 Then
    19. _fs = FontStyle.Bold
    20. End If
    21. If cap = 2 Then
    22. _fs = FontStyle.Italic
    23. End If
    24. End If
    25. Dim _nFont As Font = New Font(_checkStyle(lvFonts.Items(lvFonts.FocusedItem.Index).SubItems(0).Text, _fs).FontFamily.Name.ToString, 14, _fs)
    26. rtb.SelectAll()
    27. rtb.SelectionFont = _nFont
    28. End If
    29. End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Morrison“ ()

Facebook
Telefonspende