Question

怎样在VB中制作一个可实现复制粘贴剪切的程序？拜托各位了 3Q

代码帮忙写下！本人小白，最好把过程写写！ 谢啦~

Answer 1

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 sub private sub buk_click() '剪切操作,即复制和删除的复合 clipboard.seltext form1.text1.seltext form1.text1.seltext= " " end sub private sub all_click() '全选功能 form1.text1.selfocus form1.text1.selstart=0 form1.text1.sellength=len(form1.text1.text) end sub 以上的都是txt文件的操作