VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

フォント一覧を取得したい(VB6.0) ( No.0 ) 　[親スレッドへ]

日時： 2009/12/27 11:30
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[フォント][][]                                                      *
* キーワード：スクリーンフォント,縦書きフォント,プリンターフォント,,,             *
***********************************************************************************

元質問：フォント一覧を取得したい - aki 　2005/01/06-16:34No.1443

フォント一覧を取得し、コンボボックスに表示したいのですが、方法が分かりません。
APIを使わないとダメですかね？

----------------------------------------------------------------------------------
Re: フォント一覧を取得したい - 花ちゃん  2005/01/06-17:00 No.1445
----------------------------------------------------------------------------------
先を越されたようですが、せっかくですので、サンプルでは縦書きフォントを取得
しています。

Private Sub Command1_Click()
    Dim strFontName  As String
    Dim lngCount As Long
    For lngCount = 0& To Printer.FontCount - 1
        With List1
            If Mid$(Printer.Fonts(lngCount), 1, 1) = "@" Then
                .AddItem Printer.Fonts(lngCount)
            End If
        End With
    Next lngCount
End Sub

どこかにサンプルを投稿していたはずだと思い探していて見つからなかったので・・・

でも今見たら　http://hanatyan.sakura.ne.jp/vbhlp/pri_text.htm　にあった。

上記では結構時間がかかりますので、API関数の EnumFontFamiliesEx を使用すれば
高速に取得する事が出来ます。