Question

点击一个命令按钮后把vb列表框中的内容复制到剪贴板

Answer 1

楼上的也可以，这种方法也行，看你喜欢那个咯
Private
Sub
Command1_Click()
Dim
i
As
Integer
'定义整型变量，用来实现循环
Dim
Text
As
String
'定义字符型变量，用来保存列表框的内容
Do
Until
i
=
List1.Listcount
-
1
'遍历列表文本
i
=
i
+
1
Text
=
Text
&
List1.List(i)
&
vbCrLf
'保存到变量Text中
Loop
'退出循环
Clipboard.Clear
'清空剪贴板。剪贴板的内容不可以替换，必须清空后才能设置剪贴板的内容
Clipboard.SetText
Text
'复制内容到剪贴板
End
Sub
'结束