如何列出所有字型?

請先準備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


上一頁