[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re^8: Windowsのシステムで使用しているフォントの取得。 投稿日 ： 2009/11/25(Wed) 02:15 投稿者 ： 魔界の仮面弁士
| > 下記のようなコードで動作確認をしています。 私は、 >>> コピー & ペーストで検証可能なコードが提示されれば、 と書きましたが、提示されたコードは Declare 等がありませんので、 残念ながら、第三者が検証することはできる物にはなっていないようです。 元のコードをある程度想像することはできますが、ByVal/ByRef の宣言の違いや、 As Any/As Long/As ユーザー定義型 の違いなどで、動作が異なってしまう事も 珍しくないので、API 宣言部まで含めて提示していただいた方が指摘しやすいです。 > Private Const LF_FACESIZE = &H20 > Private Type LOGFONT 中略 > lfFaceName(LF_FACESIZE) As Byte > End Type Option Base は 0 なのですよね? だとしたら、宣言が間違っていると思います。 元となる WinGDI.h においては、この宣言は 》 CHAR lfFaceName[LF_FACESIZE]; と定義されています。つまり、32文字分の領域を持つメンバということです。しかし、 ヨシさんが書かれた宣言では、0 To 32 の範囲すなわち 33 バイトの領域になっています。 また、上記の宣言を使おうとしているとことは、現在の Declare 宣言では、 SystemParametersInfoA を用いているのかと想像します。 文字列を扱う API に対して、ANSI 版の実装を利用しようとする場合、VB6 では Unicode と既定の文字コードとの間で、暗黙の変換作業が入ることになります。 多言語対応にする場合、この時点での破損を防ぐ意味でも、文字コード変換の伴わない SystemParametersInfoW などの Wide 版 API を用いた方が良いかと思いますよ。 > dim strResult as string > dim lngRet as long > dim A as LOGFONT > dim i as integer 実際のコードからコピーしてきたものではありませんね? > strResult = strResult & Chr(A.lfFaceName(I)) 多言語対応するのであれば、Chr 関数は避けた方が良いかと。 StrConv を第3引数付きで呼び出すか、もしくは、そもそも ANSI 処理は避け、 すべて Unicode 版 API で制御するようにしてみてください。 > Text1.Font.Charset = 128 ここで、128 という固定値をセットしているようですが、それは この段階で、A.lfCharSet の内容も 128 になっていたという事でしょうか。 > Text1.Font = strResult 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 のようになるかと。 > A.lfFaceName に格納される値は、バイト型で下記になります。 > 183 > 76 > 63 > 182 > 174 > 182 > 192 合計7バイト、という事ですね。 お使いの中国語の文字コードは何ですか? (Big5 とか GB2312 とか) また、本来取得されるべき文字列は、何という文字列ですか? >（おそらく「微軟正黑體」） 漢字5文字だとしたら、7バイトしか無いのは間違っていますよね。 微軟正黑體だとしたら、 繁体字中国語(Big-5) :B7,4C,B3,6E,A5,BF,B6,C2,C5,E9 簡体字中国語(GB2312):CE,A2,DC,9B,D5,FD,BA,DA,F3,77 Unicode (UTF-16):AE,5F,DF,8E,63,6B,D1,9E,D4,9A 日本語 (Shift_JIS):94,F7,93,EE,90,B3,FC,4B,E9,93 と 10 バイトにエンコードされる事でしょう。しかし、提示の7バイトは、 B7,4C,3F,B6,AE,B6,C0 という事で、上記どれとも一致していませんので、API の扱いに そもそも問題があるように思えます。宣言にしても、Chr 関数を使っている点にしても。 そもそも ～A系 API ではなく、～W系の実装を使えば、そうした変換自体が不要ですが、 もしも ～A系を使うなら、Byte 配列を String に戻す際には、Chr 関数ではなく、 ADODB.Stream 等を用いるか、StrConv の第3引数指定を利用してみてください。 たとえば下記はいずれも、「微軟正黑體」を表すバイナリを文字列に復元しています。 (ToBinary という部分は、Byte 配列を表していると思ってください) Dim buf() As Byte '日本語(Shift_JIS) buf = ToBinary("94,F7,93,EE,90,B3,FC,4B,E9,93") Debug.Print StrConv(buf, vbUnicode, 1041) '繁体字中国語(Big-5) buf = ToBinary("B7,4C,B3,6E,A5,BF,B6,C2,C5,E9") Debug.Print StrConv(buf, vbUnicode, 1028) '簡体字中国語(GB2312) buf = ToBinary("CE,A2,DC,9B,D5,FD,BA,DA,F3,77") Debug.Print StrConv(buf, vbUnicode, 2052) 'Unicode(UTF-16) buf = ToBinary("AE,5F,DF,8E,63,6B,D1,9E,D4,9A") Debug.Print StrConv(buf, 0, 0) ' Vista Business (x64) SP2/ XP Professional (x86) SP3 で動作確認。 なお、StrConv の第3引数に指定した LocaleID が実行環境でサポートされていない場合、 実行時エラーとなります。 |
をクリックするとツリー全体を一括表示します） - Windowsのシステムで使用しているフォントの取得。 - ヨシ 09/11/19-14:16No.14274