スタティクテキストの文字色

メッセージ

初心者１３号

スタティクテキストの文字色を変えたいのですが、変え方を教えてください。

過去ログを調べて、試したがNGだったコード


Dim rgb As DWord

'-----------------------------------------------------------------------------
' ウィンドウメッセージを処理するためのコールバック関数

Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord
	' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。
    Select Case dwMsg
        Case WM_CTLCOLOREDIT
            If lParam=GetDlgItem(hMainWnd,Static1) Then
                ' カラー選択ダイアログで取得した色を文字色にする
                SetTextColor(wParam As HDC,rgb)
                Exit Function
            End If
    End Select
	' イベントプロシージャの呼び出しを行います。
	MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Function

Sub MainWnd_CommandButton1_Click()
	rgb = &hFF00FF
    InvalidateRect(GetDlgItem(hMainWnd,Static1),ByVal NULL,TRUE)
    SetWindowText(GetDlgItem(hMainWnd,Static1), "ABCD") 
End Sub

初心者１３号

イベント時のCase文に掲載ミスがありました。

　誤
Case WM_CTLCOLOREDIT
　正
Case WM_CTLCOLORSTATIC

これでも動きません。よろしくお願いします。

ゲスト

Case WM_CTLCOLORSTATIC
のところで戻り値にブラシハンドルを指定しなければならないようです。

コード: 全て選択

MainWndProc = GetSysColorBrush(COLOR_3DFACE)

などとしてみてください。