ab.com コミュニティ
https://www.activebasic.com/forum/

ImageBoxのFontを変更するには?
https://www.activebasic.com/forum/viewtopic.php?t=2683
ページ 11

作成者:  ゲスト [ 2011年7月09日(土) 14:27 ]
記事の件名:  ImageBoxのFontを変更するには?

ImageBoxに位置を指定してDrawText関数でテキスト文を表示できますが、このFont書体や大きさはどうやって変更するのでしょうか?
CreateFont関数でFontを作成し、SendMessage関数でWM_SETFONTを使ってStaticやCommandButtonやRadioButton、GroupBoxなどにFontを送ると指定通りにセットできますが、ImageBoxは送ってもセットできません。
ちなみにImageBoxにStaticを何個も置いて、それぞれのFontを変更すれば可能ですが、DrawText関数で置いたテキストのFont変更方法が判りません。
(Ver 4.24.00を使用)

作成者:  HSABP [ 2011年7月10日(日) 18:06 ]
記事の件名: 

hDCに対しSelectObjectでフォントを設定してやる。


Sub MainWnd_CommandButton1_Click()
Dim hDC As HDC
Dim hFont As HFONT
Dim rc As RECT
rc.top=0:rc.left=0:rc.bottom=20:rc.right=100
hDC=GetDC(GetDlgItem(hMainWnd, ImageBox1))
hFont = CreateFont(0,0,0,0,0, 0,0,0,0,0,0, 0,0, "メイリオ")
SelectObject(hDC, hFont)
DrawText(hDC, "ABC123", 6, rc, 0)
End Sub

作成者:  ゲスト [ 2011年7月23日(土) 13:27 ]
記事の件名: 

HSABPさん、うまく指定できました。
ありがとうございます。

ページ 11 全ての表示時間は UTC+09:00 です
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/