投稿日 | : 2005/01/06(Thu) 17:00 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : 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 を使用すれば
高速に取得する事が出来ます。