如何在 Visual Basic 6 中对齐 RichEdit 粘贴对象位置？

Question

我们有一个 RichEdit 控件，我们可以在其中添加允许用户插入 Office MathML 方程对象。

基本上逻辑是这样的：用户单击插入数学方程，我们允许他们使用外部 MathML 编辑器，然后我们将表示方程的图像粘贴到 RichEdit 控件中：

' Paste the picture into the RichTextBox.
SendMessage ctlLastFocus.hwnd, WM_PASTE, 0, 0

找到其位置并使用以下方法锁定它

With ctlLastFocus
    'lock the image
    .SelStart = .SelStart - 1
    .SelLength = 1
    .SelProtected = True

：在 ANSI 的美丽世界中一切都很好，但我们也允许 Unicode 字符，以及什么我注意到，当你使用汉字时，插入的位置错误了总位置的一半，即如果它应该是第七个位置，现在它被插入到第三个位置。

基本上除以二，我猜是因为 Unicode 需要两个字节，而 ANSI 只需要一个字节。 因为我是个傻瓜，没有使用 RTF、RichEdit 和 Visual Basic 6 的经验。

所以我的问题是：使用 sendMessage 行粘贴图像时可以更改图像的位置吗？

或者通过其他方式来控制插入RichEdit框中的图像的位置？

Answer 1

为什么不在粘贴前检索位置？

Dim iStartPos As Long
Dim iLength As Long
With ctlLastFocus
    iStartPos = .SelStart
    SendMessage.hwnd, WM_PASTE, 0, 0
    iLength = .SelStart - iStartPos
    .SelStart = iStartPos
    .SelLength = iLength
    .SelProtected = True
End With

Answer 2

我的方法是这样的，如果您查看 rtf.SelRTF 属性，您将能够准确地看到在 RichTextBox 中创建视觉效果的 RTF 代码是什么。 然后，您可以将其保存到文件中，将其加载到 Word 中并移动图像，直到其位于正确的位置，保存文件并再次查看 RTF 代码。 那时，您应该对中文或其他 Unicode 语言的组合有足够的了解，以构建字符串操作代码来执行您想要的操作。 我不完全确定每个 unicode 字符都是 2 个字节 - 值得检查一下您是否认真支持整个范围。

希望有帮助。