Question

VB编程问题

VB编程时，用Imagelist和Toolbar做了一个工具栏，用来实现两个独立RichTextBox的复制、剪切、粘贴命令，即不仅在RichTextBox1中可以复制剪切粘贴，在RichTextBox2中同样可以，在两富文本框之间也可以，该如何实现？以下是我的代码，运行时只有RichTextBox2正常，请高手赐教！20分全部奉上

If Button.Index = 8 Then '剪切
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
Clipboard.SetText RichTextBox2.SelText
RichTextBox1.SelText = ""
RichTextBox2.SelText = ""
End If

If Button.Index = 9 Then '复制
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
Clipboard.SetText RichTextBox2.SelText
End If
If Button.Index = 10 Then '粘贴
RichTextBox1.SelText = Clipboard.GetText
RichTextBox2.SelText = Clipboard.GetText
End If

Answer 1

剪切板是window上所有程序公用的，很容易被影响
Clipboard.SetText RichTextBox1.SelText
Clipboard.SetText RichTextBox2.SelText
第一步成功了，但第二部RichTextBox2.SelText又把RichTextBox1.SelText覆盖掉了，所以读出来的都是RichTextBox1.SelText，如果是程序内部的话，建议用字符串数组进行记录。
像word记录复制、剪切等操作信息，都是存在临时文件中的。

Answer 2

shi dui de