如果是想先用鼠标选择Text1的文本(可以部分,也可以全部),然后按Command1复制已选择的文本到剪贴板,则是:
Private Sub Command1_Click()
Clipboard.SetText Text1.SelText
End Sub
如果是直接复制Text1的所有文本到剪贴板,则是:
Private Sub Command1_Click()
Clipboard.SetText Text1.Text
End Sub
思路如下:
第一种办法:有一个函数可以做到
第二,用一个变量记录一下,然后SET给对象