１．フォントの一覧を取得

１．画面表示用のフォント一覧を取得する ２．プリンター用のフォント一覧を取得する ３．縦書き用のフォント一覧を取得する ４．　 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：追加なし 使用 API：なし その他　： 　　　　：

１．画面表示用のフォント一覧を取得する

Private Sub Command1_Click() 　　List1.Clear 　　Dim intCount As Integer 　　For intCount = 0 To Screen.FontCount - 1 　　　　'Screen フォントの一覧を取得します 　　　　List1.AddItem Screen.Fonts(intCount) 　　Next intCount End Sub

２．プリンター用のフォント一覧を取得する

Private Sub Command2_Click() 　　List1.Clear 　　Dim intCount As Integer 　　For intCount = 0 To Printer.FontCount - 1 　　　　'プリンターフォントの一覧を取得します 　　　　List1.AddItem Printer.Fonts(intCount) 　　Next intCount End Sub

３．縦書き用のフォント一覧を取得する

Private Sub Command3_Click() 　　List1.Clear 　　Dim intCount As Integer 　　For intCount = 0 To Printer.FontCount - 1 　　　　'プリンターフォントの一覧を取得します 　　　　With List1 　　　　　　'縦書き用フォントを選択 　　　　　　If Mid$(Printer.Fonts(intCount), 1, 1) = "@" Then 　　　　　　　　.AddItem Printer.Fonts(intCount) 　　　　　　End If 　　　　End With 　　Next intCount End Sub

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)