Question

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

怎么让VB中的TEXT里面的内容，在输入后，单击TEXT文本属性即可，复制文本总内容？

Answer 1

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

Answer 2

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

Answer 3

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