タイトル : Windowsのシステムで使用しているフォントの取得。 投稿日 : 2009/11/19(Thu) 14:16 投稿者 : ヨシ
開発環境 VB6 Windows XP Pro SP2(日本語) Windowsのフォーム、メッセージボックスでの表示に使用されているような システムのフォントを取得する方法があったら教えていただけますでしょうか。 まず、GetStockObjectを使用してフォントを取得します。 そして、テキストボックス等のコントロールにそれを設定して 自動的に文字化けを回避する仕組みをつくろうとしておりました。 しかし、作成したものを中国語OSで実行するとGetStockObject はMS PGothicを取得してしまいます。 したがって、MS PGothicをフォントに設定したテキストに 中国語文字列を貼り付けると文字化けしてしまいます。 (下記のような手順でフォント名を取得しました。 他の引数(DEFAULT_GUI_FONT以外)でもハンドル値は異なるものの、 フォント名は全てMS PGothicでした。) dim lngFont as long lngFont = GetStockObject(DEFAULT_GUI_FONT) Label1.Font = lngFont '=25821221 msgbox Label1.Font '=MS PGothic 使い方の誤り、もしくは他に良い方法がありましたらご指摘、ご教授お願いいたします。 |