vb中怎样把文字复制到剪贴板中？？？？

Question

比如点击一个按钮，就把文本框的内容复制到剪贴板？？？

Answer 1

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

附带赠送粘贴剪贴板内容到文本框的代码：
Private Sub Command2_Click()
Text1.SelText = Clipboard.GetText
End Sub追问

怎么粘贴在记事本不起作用？？？

Answer 2

Private Sub Command1_Click() '复制
Clipboard.Clear
Clipboard.SetText Text1.Text
End Sub

Private Sub Command2_Click() '粘贴
Text2.Text = Clipboard.GetText
End Sub本回答被提问者采纳

Answer 3

比如你的文本框叫Text1
Clipboard.SetText Text1.Text