阿里妈妈登录错误804:richtextbox这个控件中,复制剪切粘贴如何实现??

来源:百度文库 编辑:高校问答 时间:2024/03/29 07:08:38
最好不要用API
大哥,richtextbox没有settext这个方法,你的方法我用过

用不着API的,用剪贴板对象就行了

复制
Public Sub Copy()
Clipboard.SetText Form1.RichTextBox1.SelText
End Sub

剪切
Public Sub Cut()
Clipboard.SetText Form1.RichTextBox1.SelText
Form1.Text1.SelText = ""
End Sub

粘贴
Public Sub Paste()
Form1.RichTextBox1.SelText = Clipboard.GetText()
End Sub