表紙へ
7.使用可能なフォント一覧を取得する
以下のサンプルを実行するためにはフォームにリストボックス(List1)を1つ貼り付ける。
Dim K As Long For K = 0 To Screen.FontCount - 1 List1.AddItem Screen.Fonts(K) Next K
メモ:Screen.FontCountで使用可能なフォントの数が取得できる。フォントの名前は配列であるScreen.Fonts()で取得できる。