CRichEditCtrl下划线颜色

环境：Windows7，vs2013，mfc

1.加载需要的动态库msftedit.dll。如在InitInstance函数中

{

.........

m_hinstRE41 = LoadLibrary(_T("msftedit.dll"));

}

在ExitInstance函数中

{

if (m_hinstRE41)
{
FreeLibrary(m_hinstRE41);
}

}

2.打开.rc资源文件，修改为RichEdit50W。如：将

CONTROL         "",IDC_RICHEDIT21,"RichEdit20W",ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP,7,7,191,151修改为

CONTROL         "",IDC_RICHEDIT21,"RichEdit50W",ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP,7,7,191,151

3.设置下划线颜色

{

CHARFORMAT2 format;
format.cbSize = sizeof(format);


format.dwMask = CFM_UNDERLINETYPE | CFM_UNDERLINE;
format.dwEffects = CFE_UNDERLINE;
format.bUnderlineType = CFU_UNDERLINEWAVE;
format.bUnderlineColor = 0x0a;


::SendMessage(m_ctrlRichEdit.m_hWnd, EM_SETCHARFORMAT, SCF_SELECTION, (LPARAM)&format);

}