RichTextBox粘贴遇到问题

时间:2018-10-10 10:16:26

标签: vb.net richtextbox clipboard

我有一个使用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()来解决?

0 个答案:

没有答案