如何在Access表单中实现带语法高亮的HTML代码编辑控件？

下面提供三种可行的实现方案，按需选择：

方案一：用WebBrowser嵌入轻量代码编辑器（推荐，功能接近VSCode） #

这种方式借助成熟的前端代码编辑器实现完整的语法高亮，步骤如下：

1. 准备编辑器资源：下载CodeMirror的核心文件（包含codemirror.js、codemirror.css，以及HTML语法模式的htmlmixed.js），把这些文件放在Access数据库所在文件夹的CodeMirror子目录里。
2. 创建本地编辑页面：写一个名为Editor.html的文件，放在数据库同目录，内容示例如下：

<!DOCTYPE html>
<html>
<head>
  <link rel="stylesheet" href="CodeMirror/codemirror.css">
  <script src="CodeMirror/codemirror.js"></script>
  <script src="CodeMirror/htmlmixed.js"></script>
  <style>
    body, html { margin:0; height:100%; }
    .CodeMirror { height:100%; }
  </style>
</head>
<body>
  <textarea id="editor"></textarea>
  <script>
    var editor = CodeMirror.fromTextArea(document.getElementById("editor"), {
      mode: "htmlmixed",
      lineNumbers: true,
      tabSize: 2
    });
    // 提供给Access调用的接口
    function setContent(content) {
      editor.setValue(content);
    }
    function getContent() {
      return editor.getValue();
    }
  </script>
</body>
</html>

3. 配置Access表单：在表单里添加WebBrowser控件，命名为wbEditor。在表单的Form_Load事件里写VBA代码加载页面：

Private Sub Form_Load()
    Dim editorPath As String
    editorPath = CurrentProject.Path & "\Editor.html"
    wbEditor.Navigate editorPath
End Sub

4. 数据同步：
   • 从Access加载数据到编辑器：在绑定记录时触发调用编辑器的setContent方法：

     Private Sub Form_Current()
         If Not IsNull(Me.HTMLField) Then
             wbEditor.Document.parentWindow.setContent Me.HTMLField
         End If
     End Sub
     

   • 把编辑器内容同步回Access：保存时调用getContent方法：

     Private Sub btnSave_Click()
         Me.HTMLField = wbEditor.Document.parentWindow.getContent
         DoCmd.RunCommand acCmdSaveRecord
     End Sub
     

方案二：使用Scintilla ActiveX控件 #

Scintilla是很多IDE的核心编辑组件，有ActiveX版本可以嵌入Access：

1. 注册控件：下载Scintilla的ActiveX版（比如Scintilla.dll），用regsvr32.exe命令注册。
2. 添加控件到表单：在Access的控件工具箱里选择“更多控件”，找到Scintilla控件添加到表单，命名为scEditor。
3. 配置HTML语法高亮：通过VBA加载HTML的语法定义文件，设置颜色和样式：

Private Sub Form_Load()
    ' 设置编辑器基础属性
    scEditor.SetLexer 23 ' 23对应HTML lexer
    ' 设置标签颜色为蓝色
    scEditor.StyleSetFore 1, RGB(0, 0, 255)
    ' 设置属性名颜色为绿色
    scEditor.StyleSetFore 2, RGB(0, 128, 0)
    ' 设置文本颜色为黑色
    scEditor.StyleSetFore 3, RGB(0, 0, 0)
    ' 加载记录内容
    If Not IsNull(Me.HTMLField) Then
        scEditor.Text = Me.HTMLField
    End If
End Sub

Private Sub btnSave_Click()
    Me.HTMLField = scEditor.Text
    DoCmd.RunCommand acCmdSaveRecord
End Sub

方案三：自制简易高亮的RichTextBox（适合轻量需求） #

如果不想依赖外部资源，可以用Access自带的RichTextBox控件实现基础高亮：

1. 替换控件：把原有的TextBox换成RichTextBox控件，命名为rtbEditor。
2. 编写高亮解析函数：写一个VBA函数，识别HTML标签并设置颜色：

Private Sub HighlightHTML(content As String)
    rtbEditor.Text = content
    Dim pos As Integer, tagStart As Integer, tagEnd As Integer
    pos = 1
    Do While pos <= Len(content)
        tagStart = InStr(pos, content, "<")
        If tagStart = 0 Then Exit Do
        tagEnd = InStr(tagStart, content, ">")
        If tagEnd = 0 Then Exit Do
        ' 选中标签部分，设置蓝色
        rtbEditor.SelStart = tagStart - 1
        rtbEditor.SelLength = tagEnd - tagStart + 1
        rtbEditor.SelColor = RGB(0, 0, 255)
        pos = tagEnd + 1
    Loop
End Sub

3. 触发高亮：在表单加载、记录切换时调用函数：

Private Sub Form_Current()
    If Not IsNull(Me.HTMLField) Then
        HighlightHTML Me.HTMLField
    End If
End Sub

Private Sub btnSave_Click()
    Me.HTMLField = rtbEditor.Text
    DoCmd.RunCommand acCmdSaveRecord
End Sub

这个方案只能实现基础的标签高亮，无法识别属性、嵌套标签等，但胜在无需外部依赖。

内容的提问来源于stack exchange，提问作者user17727069