タイトル : Re^8: Windowsのシステムで使用しているフォントの取得。 投稿日 : 2009/11/24(Tue) 18:05 投稿者 : ヨシ
すみません。 追記です。 lngRet = SystemParametersInfo(31, Len(A), A, 0) strResult2 = StrConv(A.lfFaceName, vbUnicode) strFin2 = Left(strResult, InStr(strResult2, Chr(0)) - 1) を行うと日本語OSでは、"Text1.Font.Charset = 128"の実行有無にかかわらず MS UI Gothicを取得できますが、中国語OSでは、 Text1.Font.Charset = 128を実行済みだと MS P Gothicを取得し、 中国語の表記は文字化けします。 Text1.Font.Charset = 128を実行していないとArialを取得し、 やはり中国語の表記は文字化けします。 たびたび申し訳ありません。 よろしくお願い申し上げます。 |