Question

VB 把listbox中的内容存到磁盘指定文件中 txt格式

单击按钮，将listbox中的内容写成文件，并保存。具体代码怎么写？
全部
要一条打完再重新起一行打印该怎么办？
每一条占一行
麻烦写一下代码注释

Answer 1

Private Sub Form_Load()
ReDim a(List1.ListCount - 1) As String
'定义变量a，用来存储listbox的list
Dim i As Integer, k As String
For i = 0 To UBound(a)
a(i) = List1.List(i)
'将list全部存储到a()中
Next i
k = Join(a(), vbCrLf)
'将a()的以回车为分隔符保存到k中
Open "c:\ssss1.txt" For Output As #1
Print #1, k
Close #1
'输出k
End Sub

Answer 2

选定行 还是全部？

Answer 3

上面的家伙

老是比我早...