ab.com コミュニティ

MainWndProc = GetSysColorBrush(COLOR_3DFACE)

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

[code]MainWndProc = GetSysColorBrush(COLOR_3DFACE)[/code]

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

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

　誤
Case WM_CTLCOLOREDIT
　正
Case WM_CTLCOLORSTATIC

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

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

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

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

[hide][code]
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
[/code][/hide]