在VS资源视图中将edit控件的属性更改为:
Auto VScroll : True
Vertical Scroll : True
Auto HScroll : True
Horizontal Scroll : True
Multiline : True
尝试使用ModifyStyle和ModifyStyleEx来动态改变控件风格,均以失败告终!!!
最终改为重新创建控件,得以实现动态换行效果,代码如下:
// 构造函数创建字体
LOGFONT lf;
memset(&lf, 0, sizeof(lf));
lf.lfHeight = 90;
_tcscpy_s(lf.lfFaceName, _T("宋体"));
m_font.CreatePointFontIndirect(&lf));
// OnInitDialog中设置字体
m_richedit.SetFont(&m_font);
// 点击自动换行时执行
BOOL bWordWrap = m_checkbox.GetCheck();
CRect rcWin;
m_richedit.GetWindowRect(&rcWin);
ScreenToClient(&rcWin);
DWORD Style=GetWindowLong(m_richedit.m_hWnd,GWL_STYLE);
long id=m_richedit.GetDlgCtrlID();
CString txt;
m_richedit.GetWindowText(txt);
if(bWordWrap)
Style |=(ES_AUTOHSCROLL|WS_HSCROLL);
else
Style &=~(ES_AUTOHSCROLL|WS_HSCROLL);
Style |= (ES_AUTOVSCROLL|WS_VSCROLL);
CRichEditCtrl edit;
edit.Create(Style,rcWin,this,id);
edit.SetFont(&m_font);
edit.SetWindowText(txt);
m_richedit.DestroyWindow();
m_richedit.Attach(edit.Detach());
m_richedit.MoveWindow(rcWin);
// 滚动到底部
m_richedit.PostMessage(WM_VSCROLL, SB_BOTTOM, 0);
这样实现后,在新RichEdit里按键盘输入时出现了程序崩溃问题,崩溃停在PreTranslateMessage中,目前尚未能查出具体原因,暂时考虑换种方式采用两个RichEdit切换显示的方式实现!!!