タイトル : Re^9: Windowsのシステムで使用しているフォントの取得。 投稿日 : 2009/11/25(Wed) 17:01 投稿者 : ヨシ
ご丁寧なご対応、恐れ入ります。ありがとうございます。 いただいたアドバイスをもとに中国語OSでシステムフォントを 自動取得して、文字化けせずに表示させることができるようになりました。 使用したのはSystemParametersInfoAです。(WはAPIビューアで検索できませんでした。) 定義はAPIビューアで取得したままです。 Private Declare Function SystemParametersInfo Lib "user32" _ Alias "SystemParametersInfoA" _ (ByVal uAction As Long, _ ByVal uParam As Long, _ ByRef lpvParam As Any, _ ByVal fuWinIni As Long) As Long Fontに対してString型を入れていたのが最大の問題だったようです。 > フォント名を渡すなら、 > Text1.Font.Name = strResult > と書くべきですし、Font プロパティにフォントそのものを渡す意図なら、 > Dim F As Font > Set F = New StdFont > F.Name = … > F.Size = … > F.CharSet = … > : > Set Text1.Font = F > のようになるかと。 このご指摘に従った結果、中国語OSでも正常にフォントが設定され、 文字化けしなくなりました。 大変お手数をおかけいたしました。 ご対応ありがとうございました。 |