サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.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 を使用すれば
高速に取得する事が出来ます。
 |
