Question

vb如何将制定内容复制进剪切板？

vb如何将制定内容复制进剪切板？原代码如下：
Private Sub Command1_Click()
Dim d() As String, k() As String, temp As String
temp = Text1.Text
d = Split(Text2, vbCrLf)
For i = 0 To UBound(d)
k = Split(d(i), "-")
temp = Replace(temp, k(0), k(1))
Next
Text1.Text = temp
End Sub

Private Sub Command2_Click()
End
End Sub
也就是按下command3的时候，自动将TEXT1的内容复制进剪切版

Answer 1

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