VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/01/06(Thu) 17:00
投稿者： 花ちゃん
Ｅメール：
ＵＲＬ：
タイトル： Re: フォント一覧を取得したい

先を越されたようですが、せっかくですので、サンプルでは縦書きフォントを取得
しています。

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

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

でも今見たら　hhttp://www.bcap.co.jp/hanafusa/VBHLP/pri_text.htm　にあった。

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

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -