如何列出所有字型?
請先準備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
上一頁