可选择文本

Question

我使用下面的代码到标签的文本复制到剪贴板，点击一个按钮时：

Private Sub CopyToClipBoardButton_Click() 

    CopyText labelName 

End Sub 

，而不是点击该按钮后，我希望我能直接选择文本在窗体上右键单击鼠标按钮将其复制。可能吗？

Answer 1

您可以将label.caption复制到标签单击事件中的剪贴板。

Private Sub Label1_Click() 
    With New MSForms.DataObject 
     .SetText Label1.Caption 
     .PutInClipboard 
    End With 
End Sub