richtextbox的粘贴问题

Question

你是否将菜单的粘贴项的快捷方式设置为 Ctrl+V ，这样粘贴就会执行两次，一次是菜单，一次是rtf控件本身

Answer 1

我试了一下，的确如楼上所言。快捷键改了就没事了
测试代码
Private Sub Command1_Click()
  RichTextBox1.LoadFile ("c:\temp\abc.txt")
End SubPrivate Sub Form_Load()
  'RichTextBox1.AutoVerbMenu = True '用RichTextBox1自己的菜单
  RichTextBox1.AutoVerbMenu = False
End SubPrivate Sub mnuPaste_Click()
  RichTextBox1.SelRTF = Clipboard.GetText(vbCFRTF)
End SubPrivate Sub RichTextBox1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  If Button = 2 Then
    PopupMenu mnuRight
  End If
End Sub