Question

[vb6]如何获取系统字体所对应的文件名？

用Screen.Fonts的方法可以获取系统字库等字体，
请问如何获取该字体所对应的文件名，请给代码，谢谢！
Screen.Fonts(i)列出的只是字体的名字，怎样才能再列出该字体的文件名？
如，字体名：“方正隶书简体”，该字体所对应的文件“FangZhenglsj”

Answer 1

Private Sub Command1_Click()
Dim i
For i = 0 To Screen.FontCount - 1
Print Screen.Fonts(i)
Next
End Sub