如何获取Windows里所有的字体名称 （不是字体的文件名） up有分

[xxlroad]

比如
“宋体”的 MS-DOS名称 :SIMSUN.TTF

要得到的是 “宋体”
而不是 SIMSUN.TTF

[dbcontrols]

Private Sub Form_Load()
Dim I As Integer
For I = 1 To Screen.FontCount - 1
If Mid(Screen.Fonts(I), 1, 1) <> "@" Then
Combo1.AddItem Screen.Fonts(I)
End If
Next I
End Sub

[40Star]

来晚了

[dbcontrols]

Private Sub Form_Load()
Dim I As Integer
For I = 1 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(I)
Next I
End Sub

[dbcontrols]

不晚.

[lcooky]

agree

[ByTheWay]

是不是这个：

Dim I As Long

For I = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(I)
Next

[dbcontrols]

不晚,还没开饭,不过我饿了点.

[ByTheWay]

原来有人贴上了，还有一个：
取得屏幕字型：
　 Dim I As Long

　 For I = 0 To Screen.FontCount - 1
　　　 Combo1.AddItem Screen.Fonts(I)
　 Next

取得打印机字型：
　 Dim I As Long

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

[wgku]

强。。。。

[lishush]

这么简单的问题。上面都是对的！

[xxlroad]

谢谢啊

[cy_nwau]

太好了，我又学到新东西了

[ffb]

MSDN:
For I = 0 To Printer.FontCount - 1
　　 ? Printer.Fonts(I)
Next