富文本编辑器是一个很好用的多媒体文件编辑器，笔者用来做了个简单的代码编辑器，实现了代码上色和错误定位功能

其中碰到了一些问题，现在总结一下经验：

• 为什么要用RichTextBox

先看如下代码(vb6)：

            tt = "{\rtf1\fbidis\ansi\ansicpg936\deff0{\fonttbl{\f0\fmodern\fprq1\fcharset0 Consolas;}{\f1\froman\fprq2\fcharset0 Times New Roman;}{\f2\fnil\fprq2\fcharset134 \'cb\'ce\'cc\'e5;}{\f3\fnil\fcharset134 \'cb\'ce\'cc\'e5;}}"tt = tt + "{\colortbl ;\red128\green128\blue128;\red86\green156\blue214;\red212\green212\blue212;\red156\green220\blue254;\red206\green145\blue120;\red96\green139\blue78;\red215\green186\blue125;\red181\green206\blue168;}"tt = tt + "\viewkind4\uc1\pard\ltrpar\sl285\slmult0\cf1\lang1033\f0\fs21"tt = tt + "<\cf2 import\cf3  \cf4 name\cf3 =\cf5 ""account""\cf3  \cf4 src\cf3 =\cf5 ""./component/c_account.ux""\cf1 ></\cf2 import\cf1 >\cf3\f1"tt = tt + "\par     \cf6\f0 <!-- \f2\'c7\'eb\'b8\'f8\'d5\'cb\'bb\'a7\'b9\'dc\'c0\'ed\'d2\'b3\'c3\'e6\'b4\'ab\'c8\'eb\'d3\'c3\'bb\'a7\'b5\'c7\'c2\'bc\'c3\'fb\'ba\'cd\'b0\'f3\'b6\'a8\'ca\'d6\'bb\'fa\'ba\'c5\'d0\'c5\'cf\'a2\f0  -->\cf3\f1"tt = tt + "\par   \cf7\f0 "")}"";"tt = tt + "\par     \cf4 width\cf3 : \cf8 750px"tt = tt + "}"RichTextBox1.BackColor = RGB(50, 50, 50)RichTextBox1.TextRTF = tt

显示效果如下：

是不是有点VSCode的感觉？ 实际上这个东西就是从华为快应用编辑器中拷贝出来经过word转换成富文本格式的。

代码的前三行定义了语言字体，颜色定义等，后面就是要显示的文本，最后加上“}”结束，一个富文本就搞定了，简单吧？

至于他有什么用？这么说吧，如果你打开代码文件经过语法分析，如果是装入代码文件再在RichTextBox控件里面用SelStart,SelLength,SelColor上色会非常慢，正确的办法是语法分析后直接生成Rtf表示的String，然后用RichTextBox1.TextRTF

直接装入，速度快了不是一点半点，几乎秒开。

• TextRTF格式生成的时候要注意：

回车换行 Chr(13)+Chr(10) 要转换成 \par

文件里面的"{" "}" 要转换成 “\{" ”\}"

• RichTextBox控件使用技巧

1.RichTextBox控件在VB6下没有自动换行选项，如何不让控件自动换行能？

Public Const WM_USER = &H400
Public Const EM_SETTARGETDEVICE = (WM_USER + 72)
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongCall SendMessage(Me.RichTextBox1.hWnd, EM_SETTARGETDEVICE, 0, 1)  

以上代码就可以实现

2.RichTextBox控件编辑文本时，按下Ins键可以进入改写模式，但如何通过按钮事件进入改写模式呢？

                 call SendMessage(ActiveForm.RichTextBox1.hWnd, &H100, 45, 1)

以上代码可以完成你想要的效果。

最后附上笔者RichTextBox使用效果图：