フォントの変更

[KZT]

Static1のみのフォントを変更したいのですが、
どのようにすればよろしいでしょうか。

[7]

> Static1のみのフォントを変更したいのですが、
> どのようにすればよろしいでしょうか。
コントロールが文字列を描写する時に使うフォントを設定するには WM_SETFONT をコントロールに送信します。
これでフォントを変更できますね。

コード: 全て選択

' hWnd : コントロールのウィンドウハンドル
' hFont : フォントのハンドル
' bRedraw : フォント変更直後に再描写するか。(TRUE=する)
SendMessage(hWnd,WM_SETFONT,hFont,bRedraw)

で、フォントの変更の仕方が分かった所でフォントを作るにはCreateFont()関数を使います。

コード: 全て選択

Dim hFont As HFONT	' グローバル変数

	hFont=CreateFont(
		-14,
		0,0,0,0,0,0,0,
		SHIFTJIS_CHARSET,
		OUT_STROKE_PRECIS,
		CLIP_STROKE_PRECIS,
		DRAFT_QUALITY,
		DEFAULT_PITCH,
		"FixedSys")

フォントが不要になった場合、DeleteObject()関数で破棄する必要があります。