ab.com コミュニティ

コード: 全て選択

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