ab.com コミュニティ

Function MainWndProc(hWindow As DWord, Msg As DWord, WParam As DWord,
                     LParam As DWord) As DWord
Select Case Msg
       Case WM_CTLCOLORSTATIC
            If lParam = GetDlgItem(hMainWnd,EB1) Then
               SetBkMode(WParam,OPAQUE)
               SetBkColor(WParam,bc[Hide])
               SetTextColor(WParam,tc[Hide])
               MainWndProc = CreateSolidBrush(bc)
'              ↑ブラシハンドルを返すStockBrushなら開放がいらない。
       End If
.....

 SendMessage(GetDlgItem(HD,UHSP_OID+ID),WM_SETFONT,.hoFnt as DWORD,0)
'                       ↑コントロールID             ↑フォントハンドル

　Googleで「コンボボックスの文字色等の変更」を検索するとコードの切れ端
のレスがヒットしますので参考にしてください。

下記のように記述をCase WM_CTLCOLORSTATICに変更すれば
流用できると思います。
[code]
Function MainWndProc(hWindow As DWord, Msg As DWord, WParam As DWord,
LParam As DWord) As DWord
Select Case Msg
Case WM_CTLCOLORSTATIC
If lParam = GetDlgItem(hMainWnd,EB1) Then
SetBkMode(WParam,OPAQUE)
SetBkColor(WParam,bc[Hide])
SetTextColor(WParam,tc[Hide])
MainWndProc = CreateSolidBrush(bc)
' ↑ブラシハンドルを返すStockBrushなら開放がいらない。
End If
.....
[/code]
コントロールごとのフォントは私の場合、下記で行っています。
[code]
SendMessage(GetDlgItem(HD,UHSP_OID+ID),WM_SETFONT,.hoFnt as DWORD,0)
' ↑コントロールID ↑フォントハンドル
[/code]

staticテキストの文字色を変更するにはどうしたらよいでしょうか？また、一つのウィンドウに複数個のstaticテキストがある場合に、それぞれの文字サイズと文字色を独立に変更することはできますか？