ab.com コミュニティ

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

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")

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

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

で、フォントの変更の仕方が分かった所でフォントを作るにはCreateFont()関数を使います。
[code]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")[/code]
フォントが不要になった場合、DeleteObject()関数で破棄する必要があります。

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