Question

如何让vb的复制文字，复制到vb外面去

我的代码如下
Private Sub Command2_Click()
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Clipboard.SetText Text1.Text
End Sub

Answer 1

可以复制到vb外面啊。
你点击按钮以后，再在桌面上新建一个文本文件，打开，点击右键粘贴，不就看到Text1了么？

追问

===========================
Private Sub Command1_Click()
Text1 = "123"
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Clipboard.SetText Text1.Text
End Sub

Private Sub Command3_Click()
End
End Sub
==============================
如果我按按钮1的话，文本变成123，可是复制的还是txet1

追答

那你就在Text1 = "123"
后面加上
call Command2_Click()
试试

追问

call Command2_Click()
是什么意思

追答

Private Sub Command1_Click()
Text1 = "123"
End Sub
这句话没有为剪贴板赋值，那剪贴板当然就还是原来的值了。

call 就是调用按钮2的内容

追问

复制又没有用了，在外面没用了！！

追答

什么叫外面

什么叫外面

追问

qq：779577502 远程你看看吧

追答

你就告诉我你到底想做啥

追问

我想做一个QQ集，把每个人的名字做成一个按钮，一按，文本框里就显示他的QQ，和电话，文本框旁边再做个复制按键

追答

按复制键后要达到什么效果

Answer 2

在这句Clipboard.SetText text1.text
之前要加上一句 Clipboard.Clear

----------------------------
Clipboard.Clear
Clipboard.SetText text1.text

Answer 3

有必要那么麻烦吗？
Private Sub Command2_Click()
Clipboard.SetText text1.text
End Sub