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 '结束

Answer 2

Private Sub Command1_Click()
Dim i%, a$
For i = 0 To List1.ListCount - 1
a = a & List1.List(i) & vbCrLf
Next

Clipboard.Clear
Clipboard.SetText a
End Sub