怎样才可以实现对着TextBox双击（里面有字）就可以自动复制里面的字

来源：百度知道 编辑：UC知道 时间：2024/06/19 09:01:54
如题：
怎样才可以实现对着TextBox双击（里面有字）就可以自动复制里面的字
并跳出一个对话框，说“内容已经复制”

我是VB新手，还请高手指教
最好能注释一下程序，谢谢

Private Sub Text1_DblClick()
Clipboard.Clear'清空剪贴板
Clipboard.SetText Text1.Text'写入剪贴板
msgbox "内容已复制"
End Sub

Private Sub Text2_DblClick() '在文本框双击
Clipboard.Clear '清除剪切板
Clipboard.SetText Text2.Text '把TEXT2的内容放进去
msgbox "内容已经复制"
End Sub

Private Sub Text1_DblClick()
Clipboard.SetText Text1.Text’把文本内容复制到剪贴板
MsgBox "内容已复制"
End Sub