Question

用VB6制作控件时，如何编写属性，能列出当前系统的所有字体

如图所示
肯定不是枚举类型出来的，请问代码怎么实现？
看清楚再回答，我说的是做“控件”。
是做好的控件的属性栏出现这种效果

Answer 1

Dim fntGet As Printer
Set fntGet = Printer
For I = 0 To fntGet.FontCount - 1
List1.AddItem fntGet.Fonts(I)
Next

Answer 2

我上次做了个有文字和图片的按钮，也是遇到这样的问题，感觉好难实现，后来还是放弃了，颜色和字体大小都好弄，就是这个系统字体，不容易，要么你把它写死为“宋体”吧，反正系统能通用的字体也不多。祝你好运。

Answer 3

得到字体列表

For I = 0 To Printer.FontCount -1
List1.AddItem Printer.Fonts (I)
Next