>>186 の後に色々書いたらば、拒否されたので、用語だけ。 パーツの文字色と背景色の変更方法 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 と、マーこんなところかな。
