# Re: 请问如何取得系统中有安装的字型呢？

Posted by South Wind on August 13, 1999 at 11:56:47:

In Reply to: 请问如何取得系统中有安装的字型呢？ posted by 黄牛 on August 13, 1999 at 11:44:19:

: 我想要取得系统中有安装的字型
: 然后将它存入ComboBox中
: 作成类似Word中那样可以直接下拉选择字型
: 可是我不知道该怎么取得有安装的字型
: 谢谢！

For i% = 0 To Screen.FontCount - 1
cmbFontName.AddItem Screen.Fonts(i%)
Next i%
这样就可以啰!

要排序的话,最简单的方法就是直接将comboBox的sorted设为True就好了!

Follow Ups:

- 那有没有办法帮客户安装字型呢？(如果字型来源合法)(无内文) 小Sam 13:29:27 8/13/99 (1)
  - Re: 那有没有办法帮客户安装字型呢？(如果字型来源合法)(无内文) South Wind 17:15:45 8/13/99 (0)