Advertisement
2002ASP Miscellaneous #347

get Font types on computer

This code takes every font from the computer it is run on, and places it into a combo box. (not using printer.fonts but using screen.fonts)

AI

AI Samenvatting: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Broncode
original-source
''for loop adds all font types in computer to combo box
  fType.Clear  ''clears combo box
  For i = 0 To Screen.FontCount - 1 ''counts # of fonts
    fType.AddItem Screen.Fonts(i) ''adds font to combo box
  Next i
Originele reacties (3)
Hersteld van de Wayback Machine