by 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
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