בעיה עם InstalledFontCollection

[רחמים]

ראו זה פלא!
אני מריץ את התוכנית לוחץ על לחצן ומקבל הודעה שהמותקנים לי 409 גופנים, אח''כ אני מתקין גופן אחד ושוב לוחץ על הלחצן ושוב מקבל הודעה שמותקנים רק 409 גופנים, ורק אחר שאני סוגר את התוכנית ופותח שוב ולוחץ מופיע בהודעה שמותקנים 410 גופנים, אותה הבעיה ישנה גם בהסרת גופן,
כלומר האוסף לא מתעדכן כאשר במערכת יש שינוי, אלא רק לאחר ריצה מחדש של התוכנית,
מה עושים? איך מעדכנים את רשימת הגופנים בזמן ריצה?

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim fonts As New InstalledFontCollection
        MsgBox(fonts.Families.Length)
    End Sub

פורסם במקור בפורום CODE613 ב11/09/2013 23:14 (+03:00)

[dovid]

בעיה מעניינת.
עליך להשלים איתה מן הסתם.

הנה הדים נוספים:
http://www.pcreview.co.uk/forums/fontfamily-collection-refresh-question-t2469694.html

פורסם במקור בפורום CODE613 ב15/09/2013 11:07 (+03:00)