'对于屏蔽CTRL+C可在KeyDown中判断若为CTRL+C,则将keycode=0 '对于屏蔽右键编辑菜单: Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then RichTextBox1.Enabled = False RichTextBox1.Enabled = True RichTextBox1.SetFocus PopupMenu 你的自定义菜单 End If End Sub
参考子类相关的东西.用API,可以实现的。
'对于屏蔽右键编辑菜单:
Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
RichTextBox1.Enabled = False
RichTextBox1.Enabled = True
RichTextBox1.SetFocus
PopupMenu 你的自定义菜单
End If
End Sub