Question

VB实现单击textbox时自动复制textbox里的字符

我想当单击textbox时系统自动复制textbox里面的所有字符,比如当我单击textbox时,将复制里面的字符并弹出msgbox提示"已复制",然后我打开一记事本或其他文本编辑器时按Ctrl+V或右键粘贴，记事本就粘贴出刚才textbox里面的字符,希望各位前辈能帮忙知道，谢谢！！

Answer 1

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

个人建议,写在双击事件里面比较好

Answer 2

Private Sub Text1_Click()
Clipboard.SetText Text1
MsgBox "复制成功!", vbInformation, "提示"
End Sub