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);

}