Question

VB 文本框中双击复制/粘贴的求助

我想在文本框中直接双击对整个文本框的内容进行复制和粘贴,我写了下面的代码,可都不行.请大家帮助我

'复制
Private Sub Text1_DblClick()
Clipboard.SetText Text1.Text
End Sub

'粘贴
Private Sub Text1_DblClick()
Text1.Text = Clipboard.GetText
End Sub

Answer 1

下面是在text1双击实现复制Text1的内容, text2双击实现将剪贴板内容粘贴到text2中.

Private Sub Text1_DblClick()
Clipboard.Clear
Clipboard.SetText Text1.Text
End Sub

Private Sub Text2_DblClick()
Text2 = Text2 & Clipboard.GetText
End Sub