VB中TEXT文本怎么设定为单击复制

2024-11-17 11:46:02
推荐回答(3个)
回答(1):

你可以用ClipBoard的SetText属性来复制到剪切板在窗体中放上一个文本框,打开代码窗口,把下面代码复制到里面:
Private Sub Text1_Click()
Clipboard.Clear
Clipboard.SetText Text1.Text
MsgBox "文字已复制到剪切板"
End Sub

回答(2):

Private Sub Text1_Click()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Clipboard.SetText Text1.SelText
End Sub

回答(3):

text1.click中 clipboard.clearclipboard.settext text1.text