vb中永久保存combobox的值

来源：百度知道 编辑：UC知道 时间：2024/06/01 08:30:45
在一个界面里 有一个文本框 和一个下拉框 在文本框里写值添加到下拉框里 使添加的值永久保存 怎么做啊 。不用数据库。高手解答
如果用文件保存的话,具体的代码怎么写啊 .保存之后又怎么从文件把数据读到下拉框呢.在线等待

可以在form的unload事件内写:
open app.path & "\combo.dat" for output as #1
dim I as integer
for i=0 to combo1.listcount-1
print #1,combo1.list(i)
next
close #1

在form的load事件内写:
on error resume next
open app.path & "\combo.dat" for input as #1
dim str1 as string
do
line input #1,str1
combo1.additem str1
loop while not eof(1)
close #1

以上代码请自行调试

把内容保存文件中。