作者：绿色风
分类：
时间：2022-08-18
浏览：142
楼主
zzmxy |
Q: TextBox状态下，无法直接使用右键，但可以用Ctrl+C复制内容，
那么有没有办法实现双击就可以将TextBox里的值，复制到剪贴板呢？
A: 利用TextBox的双击响应事件，我们再编写相应的代码，即可实现复制，具体方法如下：
1. 是用了一个Data对象，先把TextBox的Text 用SetText的方式，赋给Data对象，然后再放到Clipboard里：
- Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
- Set MyData = New DataObject
- MyData.SetText TextBox1.Text
- MyData.PutInClipboard
- End Sub
2. 这个方法较简单，就是直接用TextBox的Copy方法，让选择的内容直接复制下来：
- Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
- TextBox1.SelStart = 0
- TextBox1.SelLength = TextBox1.TextLength
- TextBox1.Copy
- End Sub
3. 在方法2的基础上，如果我们双击前或者双击过程中将TextBox的内容高亮选中，那么，省略前面两选选择代码也是可以实现复制的。
- Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
- TextBox1.Copy
- End Sub
|
2楼
biaotiger1 |
剪贴板，学习下。谢谢小z。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一