我有一个使用var tech = getUrlParameter('textareaContent');
控件来管理文档的旧版应用程序。
我有源码,但由于许可原因无法重新编译。
引起问题的部分如下:
RichTextBox
应用程序使用RichTextBoxPrintCtrl1.ReadOnly = False
i = RichTextBoxPrintCtrl1.Find(Chr(160))
If i > 0 Then
RichTextBoxPrintCtrl1.SelectionStart = i
RichTextBoxPrintCtrl1.SelectionLength = 1
TmpStr = Pub_Base_Folder & "\Templates\Stamp.gif"
If IO.File.Exists("filepath.gif") = True Then
Img = Image.FromFile(TmpStr)
Clipboard.SetImage(Img)
RichTextBoxPrintCtrl1.Paste() ' <-- Issue is here
End If
Clipboard.SetText(vbNewLine & Today.ToLongDateString)
RichTextBoxPrintCtrl1.Paste() ' <-- Issue is here
TmpStr = "filename.rtf"
If IO.File.Exists(TmpStr) = True Then
IO.File.Move(TmpStr, TmpStr & ".tmp")
RichTextBoxPrintCtrl1.SaveFile(TmpStr)
IO.File.Delete(TmpStr & ".tmp")
End If
End If
将数据输入到RichTextBox中(这在我看来是疯狂的),但似乎要么是乱序粘贴数据,要么缺少一项或多项,要么在保存文档之前粘贴任何数据。我想这是因为RichTextBox.Paste()
操作不同步吗?
有什么方法可以防止这种行为而不必重新编译?
如果没有,是否可以仅使用.Paste()
来解决?