VB初心者友の会 - Q&A掲示板過去ログ

> 初めて投稿します。
> よろしくお願いいたします。
> 
> さて、さっそくしつもんなのですが、
> 
> 「Windowsの付属のフォントエディタのようなソフトを
> VBのみで製作可能か？」
> 
> 例えば、「井」という文字を呼び出して、手を加えて
> 「丼」という外字にする・・・
> といったことを行いたいのです。

　大昔は、こう言うの良くやりました。FM-7 の ROM-Basicなんかで・・・

　（１）画面に文字表示する。
　（２）当該ピクセルをゲットして、ビットON、OFFを
　　　　確認する。
　
　（３）この結果、ビット情報が得られるので、例えばそれを文字で表示して花文字
　　　　にするなど・・・

　これを、VBに当てはめると、

　さしずめ、
　（１）ピクチャーコントロールに、printメソッドで、当該文字 "井"を書く
　（２）pointメソッドで、当該ピクセルのドット有無を確認する
　
　で実現できると思います。
　でも、ここら辺は最近行っていません。フリーのドットフォントが手に入る
　ようになって来たので、それを使っています。　それをお勧めします。
　
　 Windowsの "井"　の文字フォントを使った場合の　著作権侵害　が極めて不明瞭
　（いわゆるグレーゾーンと言うやつ）なので・・・・

　ＷＯＲＤ上で、井　と　、を重ねて、丼　にしても著作権侵害には当たらないが、
　ＶＢ上で行うと、侵害行為と言われ兼ねないんでしょうね、きっと。


　

> で、この変換の部分と、外字を作成する部分はできたのですが、
> 「通常のWindowsの文字を呼び出す機能」
> がどうしてもできないのです。

Platform DDKをインストールしていないので、EUDC APIの使い方を知らないのですが、
アウトラインの取得だけでよいのであれば、GetGlyphOutline APIが使えると思います。

外字の差し替え自体は、おそらく
  RegSetValueEx → EnableEUDC → *.EUF/*.TTE のコピー  → EnableEUDC → RegSetValueEx 
でいけると思います。

外字ではなく、フォントの切り出しだけで良ければ、
  hDCからフォントデータを取得し、TTF化するGetFontData API。
  TTFをフォントリソース(FOT)に変換する、CreateScalableFontResource API。
  FOTファイルをシステムに読み込ませる、AddFontResource API。
などを使うこともできると思います。