tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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


使い方の誤り、もしくは他に良い方法がありましたらご指摘、ご教授お願いいたします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。