外語対応でのフォント設定 (ID:102073)

名前

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

本文

> リストボックスのフォントにMSゴシックを使用しています。
"MSゴシック" ではなく、
"ＭＳ ゴシック" または
"MS Gothic" (英語名) ですよ。

> どのようにしてフォントの設定をすればいいのでしょうか。
コードで設定するのであれば、
    List1.Font.Name = フォント名
    List1.Font.Charset = ANSI_CHARSET
という感じで設定できるかと思います。
その環境にインストール済みのフォントを指定してください。
(指定したフォントが無い場合、別のフォントが代替として利用されます)

ユーザーに選ばせるのであれば、CommonDialog コントロールが使えるかと。
使用可能なフォントを列挙したい場合には、Screen.Fonts/FontCount を
利用してみてください。

なお Font の Charset プロパティには、0 や 128 などの数値が入ります。

Private Const ANSI_CHARSET        As Long = 0
Private Const DEFAULT_CHARSET     As Long = 1
Private Const SYMBOL_CHARSET      As Long = 2
Private Const SHIFTJIS_CHARSET    As Long = 128
Private Const HANGEUL_CHARSET     As Long = 129
Private Const HANGUL_CHARSET      As Long = 129
Private Const GB2312_CHARSET      As Long = 134
Private Const CHINESEBIG5_CHARSET As Long = 136
Private Const OEM_CHARSET         As Long = 255
Private Const JOHAB_CHARSET       As Long = 130
Private Const HEBREW_CHARSET      As Long = 177
Private Const ARABIC_CHARSET      As Long = 178
Private Const GREEK_CHARSET       As Long = 161
Private Const TURKISH_CHARSET     As Long = 162
Private Const VIETNAMESE_CHARSET  As Long = 163
Private Const THAI_CHARSET        As Long = 222
Private Const EASTEUROPE_CHARSET  As Long = 238
Private Const RUSSIAN_CHARSET     As Long = 204
Private Const MAC_CHARSET         As Long = 77
Private Const BALTIC_CHARSET      As Long = 186

←解決時は質問者本人がここをチェックしてください。

戻る