Advertisement
1_2002 Miscellaneous #104309

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: 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.

ซอร์สโค้ด
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
ความคิดเห็นดั้งเดิม (3)
กู้คืนจาก Wayback Machine