VB怎么操纵系统剪切板啊？

[cooler]

想要实现拷贝文字到系统剪切板，怎么做呢？

[lihonggen0]

Private Sub Command1_Click()
Clipboard.SetText Text1.Text
MsgBox "拷贝"
End Sub

Private Sub Command2_Click()
Text2.Text = Clipboard.GetText
MsgBox "粘贴到text2"
End Sub

Private Sub Form_Load()
Text1.Text = "AAA"
Text2.Text = ""
End Sub

[cooler]

谢谢指教。但是这个好像不是系统剪切板啊，而是只是在本程序内部有效的那种。
我按照上述代码，在点击了command1完成拷贝之后，跑到WORD里面粘贴不出来的。
怎么半呢？

[qbilbo]

Clipboard就是系统的剪切板。

有可能是在启动WORD会清空剪切板，你先启动完WORD再试试上面的代码。

[CBASE]

同意lihonggen0(李洪根,用.NET，标准答案来了)意见

[cooler]

应该不是啊。
我换成写字板什么的都不成功。

我用Clipboard.SetText Text1.Text拷贝后，粘贴到写字板里出现的是其他的内容（真正的系统剪贴板里内容）

[qbilbo]

Clipboard对象肯定是系统的剪贴板，这点决不会错！

试试这样。
Clipboard.Clear
Clipboard.SetText "测试"

[Sean918]

Private Sub Command1_Click()
Clipboard.Clear　　　　　　　　　　　　　''使用前必须先清空
Clipboard.SetText Text1.Text
MsgBox "拷贝"
End Sub

[cooler]

问题解决。就是按照 Clipboard.Clear做法。谢谢诸位大侠援手。

[enj1224]

Clipboard对象

[qbilbo]

用Clipboard对象

如：
Clipboard.SetText "测试"
就是拷贝“测试”两个字到系统剪切板