ab.com コミュニティ

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

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

下記のように記述をCase WM_CTLCOLORSTATICに変更すれば
流用できると思います。


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             ↑フォントハンドル

ab.com コミュニティ

staticテキストの文字色変更

staticテキストの文字色変更