1. ホーム
  2. スクリプト・コラム
  3. vbs

VCで縦書き文字を実現する簡単な方法(推奨)

2022-02-08 10:07:02

VCで縦書き文字を実装するのは難しいと思われがちですが、"lying"フォントを使えば簡単に実装することができます。

Windowsには、@Fixedsys、@System、@Song、@Boldなど、"lie"するフォントが存在します。その数は多く、@のないフォントとの違いは、それで表示される文字が"lieing"であることだけです。 "lieingです。以下のようになります。

これらのquot;lying"フォントを270度回転させると、次のようにテキストを縦に並べることができます。


次のコードは、縦書きのSongフォントを生成します。

CFont font; 
 CFont *pOldFont; 
 
 font.CreateFont(18, 0, 2700, 2700, FW_NORMAL,
 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS,
 CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,
 DEFAULT_PITCH,"@SONG"); 
 pOldFont=dc.SelectObject(&font)

 dc.TextOut(50,50,"text vertical");
 dc.SelectObject(&pOldFont)
/* He asked from hovertree.com */

誰でも試せる。

以上、VCで縦書きテキストを実現する簡単な方法(推奨)をお伝えしましたが、ご参考になれば幸いです、そして、スクリプトハウスを応援していただければと思います。