VB中如何使用系统剪贴板

Question

我想在VB中实现一个功能
即有一个有内容的Text1 和一个Command1
我想点击Command1后将Text1.text的内容复制到系统剪贴板，然后可以在其他程序中粘贴

应该可以用SetClipboardData这个API来实现，但是网上的资料都不是很明确，有谁能告诉我怎么实现嘛？

用Clipboard方法的就算了！那个只能在程序内部，我要的是写入系统剪贴板
回lxz1969 ：首先谢谢你

但我试过了的确是不行

Private Sub Command2_Click()
Clipboard.SetText Text1.Text
End Sub

就是这么简单一句，作用就是复制text1里的内容啊

可是点了这个键后，我做了如下实验：

1.在我做的那个程序的窗口上，找了一个Textbox粘贴，发现可行

2.之后，我又到 记事本 里 粘贴 发现粘贴出来的是之前的其他内容 ，而不是vb中用clipboard获取的内容

Answer 1

用clipboard方法虽然只能在程序内部使用，但写入的就是系统的剪切板啊，你在任何一个地方都可以用ctrl+V进行粘贴的。
我测试了，没问题的。不知是否是你的系统有异常。

我又按你的代码试了，没问题。依我看，问题还是出在你的系统上，你不妨用其他软件试试，比如WPS、WORD。

Answer 2

复制到系统剪贴板之前先清除粘贴板就可以了！代码如下：
Private Sub Command2_Click()
Clipboard.Clear
Clipboard.SetText Text1.Text
End Sub

Answer 3

我也测试了 可以的啊

Private Sub Command1_Click()
Clipboard.SetText Text1.Text
End Sub