我用VB编了一个记事本的程序,怎样实现剪切板的功能(剪切.复制.粘贴的那个东东)谢谢

Question

Clipboard.GetText
Clipboard.SetText 文字

Answer 1

Private Sub mnuCopyText_Click()
    Clipboard.Clear
    Clipboard.SetText RICHTEXTBOX.Text
    
End SubPrivate Sub mnuCut_Click()
    Clipboard.Clear
    Clipboard.SetText RICHTEXTBOX.SelText
    RICHTEXTBOX.SelText = ""
    
End SubPrivate Sub mnuPaste_Click()
    RICHTEXTBOX.SelText = Clipboard.GetText
    
End Sub

Answer 2

http://www.csdn.net/expert/topic/612/612153.xml?temp=.2002069

Answer 3

我做过一个:楼上的那位说的是对剪切板的操作
你想要的是实现像剪切板的功能吧
private sub pub_click()'粘贴功能
i=form1.text.selstart
str1=mid(form1.text1.text,1,i)
str2=mid(form1.text1.text,form1.text.selstart+1,len(form1.text1)-len(str))
form1.text1=str1&clipboard.gettext&str2
end subprivate sub buk_click()'剪切操作,即复制和删除的复合
clipboard.seltext form1.text1.seltext
form1.text1.seltext=""
end subprivate sub all_click()'全选功能
form1.text1.selfocus
form1.text1.selstart=0
form1.text1.sellength=len(form1.text1.text)
end sub
以上的都是txt文件的操作
给分
谢谢