vb列表框内容添加和删除

explicit

private

sub

command1_click()

'保存列表框内容

dim

i

as

integer

open

"d:\list1.txt"

for

output

as

#1

'自己设置保存路径

for

i

=

0

to

list1.listcount

-

1

print

#1,

list1.list(i)

next

close

#1

end

sub

private

sub

command2_click()

'打开文件到列表框

dim

strline

as

string

open

"d:\list1.txt"

for

input

as

#1

do

while

not

eof(1)

line

input

#1,

strline

'按行添加

list1.additem

strline

loop

close

end

sub

1、首先打开VB软件，绘制好相应的控件，两个命令按钮，一个列表框，一个文本框。

2、接下来大概更改一下各个控件的属性。

3、然后编写命令按钮从键盘输入文本框，并能能够添加项目代码。

4、编写删除代码，记得要遍历查询。

5、运行后便可以看到这样的程序。即编写一个为列表框添加删除选项成功。