设置字体的颜色?

[周晓荣]

LRESULT CMy2312Dlg::product(WPARAM wParam,LPARAM lParam)
{
CListBox *p=(CListBox *)GetDlgItem(IDC_LIST1);
CString str;
str.Format("生产者 %d 生产了一件产品",lParam);
p->InsertString(-1,str);
GetDlgItem(IDC_LIST1)->PostMessage(WM_VSCROLL,SB_BOTTOM,0);//使内容自动滚屏
return 1;
}

我想在列表框中改变输出字体的颜色,请问如何做好?~就是要将"生产者 %d 生产了一件产品"的字体颜色变换一下.

[周晓荣]

....

[这不是鸭头]

列表框是ListCtrl还是Listbox或者是其他什么?

BOOL SetTextColor(
COLORREF cr
);

[mmilmf]

重载onCtrlColor()函数
HBRUSH CXXXDlg::OnCtlColor(CDC* pDC, CWnd* pWnd, UINT nCtlColor)
{
HBRUSH hbr = CDialog::OnCtlColor(pDC, pWnd, nCtlColor);

// TODO: Change any attributes of the DC here
if(pWnd->GetDlgCtrlID() == IDC_LIST1)
{
pDC->SetTextColor(RGB(255,0,0)); //字体为红色
}
// TODO: Return a different brush if the default is not desired
return hbr;
}

[周晓荣]

[Quote=引用 2 楼 arpnet99 的回复:]
列表框是ListCtrl还是Listbox或者是其他什么?

BOOL SetTextColor(
  COLORREF cr
);

[/Quote]
是ListBox....我加了下面两句,但没有效果喔
HDC hdc=::GetDC(hwnd1);
SetTextColor(hdc,RGB(255,0,0));

[周晓荣]

[Quote=引用 3 楼 mmilmf 的回复:]
重载onCtrlColor()函数
HBRUSH CXXXDlg::OnCtlColor(CDC* pDC, CWnd* pWnd, UINT nCtlColor)
{
HBRUSH hbr = CDialog::OnCtlColor(pDC, pWnd, nCtlColor);

// TODO: Change any attributes of the DC here
if(pWnd->GetDlgCtrlID() == IDC_LIST1)
{
pDC->SetTextColor(RGB(255,0,0)); //字体为红色
}
// TODO: Return a different brush if the default is not desired
return hbr;
}

[/Quote]
有没有别的办法呢?~

[mmilmf]

这还麻烦啊？只添加两行代码而已，其他的都是自动生成的
那就用，SendMessage()或者PostMessage()吧

[周晓荣]

[Quote=引用 6 楼 mmilmf 的回复:]
这还麻烦啊？只添加两行代码而已，其他的都是自动生成的
那就用，SendMessage()或者PostMessage()吧
[/Quote]
用你的方法直接重载函数,搞定了,谢谢了。