可選擇文本

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