close


利用InstalledFontCollection來取得電腦內部所有字型

 

Dim Obj_FontColl As New System.Drawing.Text.InstalledFontCollection
'這邊是把取得的字型名稱加到comboBox

For Each Obj_FontFamily As System.Drawing.FontFamily In Obj_FontColl.Families
     cbForn.Items.Add(Obj_FontFamily.Name)
Next

 
arrow
arrow
    全站熱搜

    PingPing 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄