我目前正在开发“所见即所得”(所见即所得)HTML 编辑器。我将其用于个人用途,以扩大我对 VB.Net 的理解。我遇到的问题是当我使用这段代码时:
Dim insertText = "<h1>Example Header</h1>"
Dim insertPos As Integer = RichTextBox1.SelectionStart
RichTextBox1.Text = RichTextBox1.Text.Insert(insertPos, insertText)
RichTextBox1.SelectionStart = insertPos + insertText.Length
通过添加到 RichTextBox 中的文本,代码将完美运行;但是,如果我犯了一个错误并尝试调用 Undo() 方法,则不会发生任何事情。守则将留在那里。我认为这是因为文本既没有输入也没有粘贴到 RichTextBox 中。
我想要完成的工作:我需要一个代码片段,它允许我将预定义的 HTML 代码粘贴或添加到光标所在的 RichTextBox 中(如上),并且还能够撤消它。
此外,如果有帮助的话,该项目使用 RichTextBox 控件,用户可以在其中键入他/她自己的 HTML 文档,并且可以单击按钮以将标题、按钮、链接等添加到文档中。