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