表紙へ

７．使用可能なフォント一覧を取得する

以下のサンプルを実行するためにはフォームにリストボックス(List1)を１つ貼り付ける。

Dim K As Long

For K = 0 To Screen.FontCount - 1
    List1.AddItem Screen.Fonts(K)
Next K

メモ：Screen.FontCountで使用可能なフォントの数が取得できる。フォントの名前は配列であるScreen.Fonts()で取得できる。