[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re^9: Windowsのシステムで使用しているフォントの取得。 投稿日 ： 2009/11/25(Wed) 17:01 投稿者 ： ヨシ
| ご丁寧なご対応、恐れ入ります。ありがとうございます。 いただいたアドバイスをもとに中国語ＯＳでシステムフォントを 自動取得して、文字化けせずに表示させることができるようになりました。 使用したのは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 > のようになるかと。 このご指摘に従った結果、中国語ＯＳでも正常にフォントが設定され、 文字化けしなくなりました。 大変お手数をおかけいたしました。 ご対応ありがとうございました。 |
をクリックするとツリー全体を一括表示します） - Windowsのシステムで使用しているフォントの取得。 - ヨシ 09/11/19-14:16No.14274