英語表記のフォント名を取得するには？ (ID:80636)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 「英語(≒アルファベット?)を表示できるフォント」を得たい、という事ですか? それならば、殆んどのフォントが表示可能だと思いますよ。 表示できないのは、"Windings"や"Symbol"等の記号系フォントぐらいでしょう。 それとも、「アルファベットのみで構成されたファイル名」が得たいのでしょうか? それならば例えば、 Private Sub Form_Load() Dim I As Long Dim F As String For I = 0 To Screen.FontCount - 1 F = Screen.Fonts(I) If Not F Like "*[!0-~ !-/]*" Then List1.AddItem "○" & vbTab & F Else List1.AddItem "×" & vbTab & F End If Next End Sub のように、Like演算子で判定するという方法が考えられます。 # ………そういう事では無いのかな? > "ＭＳ ゴシック" の場合は、"MS-Gothic" という具合に・・・ "MS UI Gothic"というフォント名は聞いた事がありますが、 "MS-Gothic"というフォント名は聞いた事が無いです。