外語対応でのフォント設定 (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