２１．利用可能なフォントを列挙する方法
＜ 使用用途 ＞
フォントの種類を列挙することが出来る。
今回のサンプルソースをダウンロードする方は下記の「ダウンロード」をＰＵＳＨ！
＝＞ ダウンロード ・・・ 下に書いてあるサンプルソースと同じです
＜ 説明 ＞
使用用途と同様。
< ＳＡＭＰＬＥ ＞
’フォームにリストボックス、コマンドボタンを貼りつけた状態です。
Private Sub Command1_Click()
Dim ｎCount As Long
For ｎCount = 0 To Screen.FontCount - 1
'フォント名をリストボックスに追加
List1.AddItem Screen.Fonts(ｎCount)
Next
End Sub