RicheditText 这个控件用起来有点不爽,这里记录下。
添加文本时,要使新的一行添加到行尾,先统计行数,再计算所文本长度,再添加"~r~n"控制行。
long ll_len
long LineCount
LineCount = rte_1.lineCount() //总行数
ll_len = send(handle(rte_1),14,0,0) //总字数
rte_1.selecttext(LineCount,ll_len,LineCount,ll_len) //选中最后一个字符
rte_1.replacetext("~r~n") //替换成回车新行
清空文本中内容
rte_1.setredraw(false)
rte_1.SelectTextAll( )
rte_1.ReplaceText("")
rte_1.setredraw(true)