vb如何点击一个label直接复制label里面的信息？

Posted 2023-03-13

RT，例如label2.caption里面的内容是“abc”
当点击label2.caption就能复制里面的“abc”
鼠标右键后能黏贴哦...这个可以吗？

vb复制信息到系统剪贴板使用Clipboard()。
Clipboard()功能提取或替换Windows系统剪贴板的文本内容。
语法Clipboard ( string )
参数string：string类型，可选项，指定要复制到系统剪贴板上的文本。如果剪贴板上已有内容的话，该文本将取代剪贴板的当前内容返回值String。
函数执行成功时，如果剪贴板上包含文本数据，那么函数返回剪贴板的当前内容；如果剪贴板上包含非文本数据（比如位图）或不包含任何数据，那么函数返回空字符串（""）。如果string参数的值为NULL，Clipboard()函数返回NULL。用法无论是否指定string参数，Clipboard()都将返回剪贴板的当前内容。当指定string参数时，剪贴板的原有内容被string参数的值取代；省略string参数时，仅仅得到剪贴板的内容。
Private Sub Label2_Click()
Clipboard.Clear \'清空剪贴板
Clipboard.SetText Label2.Caption \'复制Label2内容到系统剪贴板上
End Sub 参考技术A '使用Clipboard(剪贴板对象)
Private Sub Label2_Click()
'复制任何信息到 Clipboard 对象中之前，应使用 Clear 方法清除
Clipboard.Clear
'设置剪贴板文本内容
Clipboard.SetText Label1.Caption
End Sub本回答被提问者采纳 参考技术B Private Sub Label1_Click()
Clipboard.Clear '清空剪切板
Clipboard.SetText Label1.Caption '复制Label1字符到剪切板
End Sub

为什么要先清空剪切板呢？？答案是：防止你前面复制过什么文字在剪切板内。当你在复制的时候会出现错误！ 参考技术C label的click事件，你说的复制是复制到剪切板上吗？还是什么别的，要是复制到剪切板上,可以如下：
Clipboard.Clear
Clipboard.SetText = label2.caption
不定很准确，很长时间没有用VB了，你可以找下vb剪切板的使用。 参考技术D 你是要将label的内容复制到剪贴板吗？
可以在label1_click()中写入
Clipboard.clear
Clipboard.SetText label1.caption