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

2024年11月17日 11:46
有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