怎样把VB一个text框中的数据自动放到粘贴板里面？

Question

我要把VB中一个text框中的数据直接放到粘贴板中（不要按ctrl c），功能就相当于ctrl c
我直接按ctrl v就可以把东西粘贴到别的地方

Answer 1

Option ExplicitPrivate Sub Command1_Click()
  EditCopyProc
End SubSub EditCopyProc()
    ' 复制选定文本到剪贴板
    Clipboard.SetText Text1.SelText
End SubSub EditCutProc()
    ' 复制选定文本到剪贴板
    Clipboard.SetText Text1.SelText
    ' 删除选定文本
    frmSDI.txtNote.SelText = ""
End Sub'粘贴：
Sub EditPasteProc()
    ' 将文本从剪贴板粘贴到活动控件
     text2.SelText = Clipboard.GetText()
End SubPrivate Sub Command2_Click()
   EditPasteProc
End Sub

Answer 2

这个好象不是系统剪贴板，我要把数据粘贴到windows系统粘贴板

Answer 3

Windows 应用程序共享 Clipboard 对象，因此当切换到其它应用程序时，剪贴板内容会改变因此用SendKeys较好.Private Sub Command1_Click()
Text1.SetFocus
SendKeys "^C"   '这样就把你在text1中选中的内容复制到剪贴板中了.你在其它地方也可用ctrl v得到Text1的内容了
End Sub

Answer 4

这个好象不是系统剪贴板，我要把数据粘贴到windows系统粘贴板
//Clipboard 是系统剪贴板用VB表现形式

Answer 5

tztz520(午夜逛街)有问题，如果text1的文本本来就没选择的那就什么都没有复制了Private Sub Command1_Click()
Text1.SetFocus
text1.selstart=0
text1.sellenght=len(text1)
SendKeys "^C"   '这样就把你在text1中选中的内容复制到剪贴板中了.你在其它地方也可用ctrl v得到Text1的内容了
End Sub

Answer 6

\\tztz520(午夜逛街)有问题\\我身体还算好啦.白云山能两口气爬上去滴  :p正题:
如果楼主只想复制选中的内容,就不用加
text1.selstart=0
text1.sellenght=len(text1)
如果想复制全部就加上上面的语句,是选中Text1中所有的内容.

Answer 7

呵呵
 tztz520(午夜逛街)
你看这样为何不行:
Combo1.SetFocus
SendKeys "^C"
不管如何,它都是复制Combo1中所有的内容