ピクチャーボックス内の文字のサイズ変更について

解決

xac 2007-04-17 18:06:46 No: 136087

おはようございます。

質問があるのですが、テキストボックスで入力した文字をピクチャーボックスにPrintで表示した時、ピクチャーボックスで表示している文字を縦長に表示したいのですが、いい方法はありますか？
プロパティでフォントサイズを変更すると、全体的に大きくなってしまうので困っています。

ご教授よろしくお願いいたします。

K.J.K. 2007-04-17 21:03:16 No: 136088

GDIのAPI関数を幾つか使うとか。

現在のhFontをGetCurrentObjectで取得し、そこから(API関数の)GetObject
を用いてLOGFONTを取得し、
LOGFONT.lfHeight = LOGFONT.lfHeight * 2&
LOGFONT.lfWidth = Abs(LOGFONT.lfHeight \ 5&)
' ここでは2.5で割っていますが、実際はフォントによって適切な値は異なります。
とした上で、CreateFontIndirectで新たなhFontを作成し、
SelectObject->文字列描画->SelectObject->DeleteObject
としてみるとか。

xac 2007-04-17 23:38:49 No: 136089

K.J.K.さん

ご教授ありがとうございます。
ちょっと難しそうな感じがしますけど、チャレンジしてみます。