ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月29日(金) 04:54

全ての表示時間は UTC+09:00 です




新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 
作成者 メッセージ
投稿記事Posted: 2011年7月09日(土) 14:27 
ImageBoxに位置を指定してDrawText関数でテキスト文を表示できますが、このFont書体や大きさはどうやって変更するのでしょうか?
CreateFont関数でFontを作成し、SendMessage関数でWM_SETFONTを使ってStaticやCommandButtonやRadioButton、GroupBoxなどにFontを送ると指定通りにセットできますが、ImageBoxは送ってもセットできません。
ちなみにImageBoxにStaticを何個も置いて、それぞれのFontを変更すれば可能ですが、DrawText関数で置いたテキストのFont変更方法が判りません。
(Ver 4.24.00を使用)


通報する
ページトップ
   
 記事の件名:
投稿記事Posted: 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


通報する
ページトップ
   
 記事の件名:
投稿記事Posted: 2011年7月23日(土) 13:27 
HSABPさん、うまく指定できました。
ありがとうございます。


通報する
ページトップ
   
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 

全ての表示時間は UTC+09:00 です


オンラインデータ

このフォーラムを閲覧中のユーザー: Ahrefs [Bot] & ゲスト[20人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean