一个textbox，想一点击它就将里面的内容复制到剪切板中怎么编?

Question

程序运行时点击这个 textbox ，就能将里面显示的内容自动复制要怎么做？谢谢！！

Answer 1

Private Sub Text1_Click()
    Clipboard.SetText Text1.Text
    Debug.Print Clipboard.GetText
End Sub

Answer 2

Private Sub Text1_Click()
    If Text1.Text <> "" Then
        Clipboard.Clear
        Clipboard.SetText Text1.Text   '复制
        
        Text2.Text = Clipboard.GetText()　
    End If
    
End Sub

Answer 3

Private Sub Text1_Click()
Clipboard.SetText Text1.Text
Debug.Print Clipboard.GetText
End Sub

Answer 4

VBToy(无证编程) 按着你的方法测试时有时不行，不知道为什么sanwasou()  按着你的方法做好了，非常感谢！谢谢几位的回复！感谢！！！

Answer 5

VBToy(无证编程) 按着你的方法测试时有时不行，不知道为什么
不好意思，有一点没有注意到，在复制任何信息到Clipboard对象中之前，应使用Clear方法清除Clipboard对象中的内容。

Answer 6

VBToy(无证编程) 按着你的方法测试时有时不行，不知道为什么
不好意思，有一点没有注意到，在复制任何信息到Clipboard对象中之前，应使用Clear方法清除Clipboard对象中的内容。
===============================================================================
我刚学VB的时候也犯过这样的错误
当时还责怪VB的Clipboard对象不好用
呵呵