# Re: 字型档(.ttf)的资讯

Posted by Honey on September 08, 1998 at 21:58:25:

In Reply to: 字型档(.ttf)的资讯 posted by Mulder on September 08, 1998 at 19:08:19:

: 请问VB要如何取得字型档的资讯
可用screen 物件中的
FontCount() Fonts()属性去载入
以下程式供你参考
Dim i As Long, k() As String, l As Long
ReDim k(Screen.FontCount)
For i = 0 To Screen.FontCount - 1
k(i) = Screen.Fonts(i)
Next
'其中k阵列就储存了自行名称

Follow Ups:

- Re: 字型档(.ttf)的资讯 Mulder 12:59:19 9/09/98 (0)