VB复制和黏贴、剪切的代码

按钮单击事件触发

2025-01-18 12:03:38

推荐回答（2个）

回答1：

很简单的代码，以下供你参考。
Private Sub menu21_Click() 'cut

Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
RichTextBox1.SelText = ""
' RichTextBox1.SetFocus

End Sub

Private Sub menu22_Click() 'copy

Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
' FontName1 = RichTextBox1.SelFontName
End Sub

Private Sub menu23_Click() 'paste

RichTextBox1.SelText = Clipboard.GetText()
' RichTextBox1.SelFontName = FontName1
End Sub

回答2：

剪贴板

clipboard.（然后出来选择框）

里面英文很好懂吧

getdata\gettext\setdata\settext

这么简单的东西。。。。还是自己研究为好。。。。。。