HIRO's.NET

VB.NET, C#, PowerShell Tipsサイト

 VB.NET, C#, PowerShellを使用しているエンジニアのためのサイト。

 基本的な使用方法から開発で役立つTipsまで幅広く取り扱っています。

HIRO's.NET RSSHIRO's.NET RSS

VB.NET 2005の開発でお困りのことはありませんか？
そんな悩みは当サイトで解決！！

HOME > VB.NET 2005 Tips > コントロール > ComboBox Tips メニュー

14.インストール済みフォント一覧を表示する

UPDATE:2006/08/30 

<< 前のTips  次のTips >>

 

　インストール済みフォントをコンボボックスのアイテムにするサンプルを紹介します。
　インストール済みフォントを取得するには、InstalledFontCollectionを使用することで簡単に行えます。
1)InstalledFontCollectionからFontFamilyを取得
2)取得したFontFamilyオブジェクトのNameプロパティにフォント名が格納されているので、For Eachで１つずつ取り出しながらコンボボックスに追加。


　
サンプル
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'InstalledFontCollectionオブジェクトの取得
    Dim InstalledFont As New System.Drawing.Text.InstalledFontCollection

    'インストール済みフォントを取得してコンボボックスに表示する
    Dim FontFamilies As FontFamily() = InstalledFont.Families
    For Each f As FontFamily In FontFamilies
        ComboBox1.Items.Add(f.Name)
    Next f
End Sub