UC知道VB中如何获取系统所装的字体类别？
来源：百度知道 编辑：UC知道 时间：2024/05/10 20:17:05
比如系统装了宋体、黑体、隶书、楷体等，我想把这些字体名称都显示在一个comboBox里面，如何实现呢？请高手多多指教，谢谢！
新建一个窗体，窗体上放两个控件，list1和command1
程序运行，单击命令按钮，将所有系统字体名称添加到列表框。代码如下：
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(i)
Next i
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(i),i
Next i
End Sub