パーツの文字色と背景色の変更方法
Case WM_SIZE の並びに以下のように挿入する。
case WM_CTLCOLOREDIT
''エディット コントロールが描画されようとしています。
case WM_CTLCOLORLISTBOX
''リスト ボックスが描画されようとしています。
case WM_CTLCOLORBTN
'ボタンが描画されようとしています。
case WM_CTLCOLORDLG
'ダイアログ ボックスが描画されようとしています。
case WM_CTLCOLORSCROLLBAR
'スクロール バーが描画されようとしていることを示します。
case WM_CTLCOLORSTATIC
'スタティック コントロールが描画されようとしています。
Dim As HDC hdc = Cast(HDC, wParam)
Dim As HWND PatsHWND = Cast(HWND, lParam)
if( GetDlgItem(hWin, IDC_STC2) = PatsHWND) Then
SetTextColor(hdc, BGR( 128, 128, 255))
SetBkColor(hdc, BGR( 0, 0, 128))
Dim PatsHBRUSH As HBRUSH = Cast(HBRUSH, GetStockObject(NULL_BRUSH))
return Cast(BOOL, PatsHBRUSH)
End If
Case WM_SIZE
と、マーこんなところかな。
