Question

VB中如何将ListBox的内容保存到文本中

VB中如何将ListBox的内容保存到文本中 一个item为一行

Answer 1

private
sub
command1_click()

dim
a()
as
string

dim
num
as
integer

a
=
split(text1.text,
vbcrlf)
'根据换行分割文本内容

num
=
ubound(a)
-
lbound(a)
'获取数组长度

for
i
=
0
to
num
step
1
'循环写入list1

list1.additem
(a(i))

next
i
end
sub

Answer 2

public sub savelist(byval list as listbox,byval outfile as string)
dim fn as integer,i as integer
fn=freefile
open outile for output as fn
for i=0 to list.listcount-1
print#fn,list.list(i)
next
close fn
end sub

以上就是保存内容的过程。