Dim tem As String '先定义tem字符串,用于存放复制的字符
Clipboard.Clear '清空剪贴板
tem = MDIForm1.ActiveForm.RichTextBox1.SelText '把选中的字符附给tem
Clipboard.SetText tem
MDIForm1.ActiveForm.RichTextBox1.SelText = "" '剪切就在上面多加这句
MDIForm1.ActiveForm.RichTextBox1.SelText = Clipboard.GetText '粘贴
当然有必要时还要对 enabled 进行设置