关于combo控件的问题

Question

[size=32px]我设计了一个界面，往text控件里输入内容，单击按钮可以将text控件里的内容添加到combo控件的列表中，但是每重启一次程序，combo中添加的内容全部消失，问有什么办法可以是添加的新内容再下次启动的时候依旧存在、谢谢[/size]

Answer 1

同意,combo不是数据库,不能记忆.只能借助数据库、文本文件、excel或注册表之类的保存数据

Answer 2

Private Sub Text1_LostFocus()
Dim s_filename As String
s_filename = App.Path & "\写入.txt"
Open s_filename For Append As #1
Print #1, Text1.Text
Close #1
Combo1.AddItem Text1
End Sub这段代码实现当文本框失去焦点时，将文本框内容写入下拉列表框和“写入”文本文件
在VB6验证通过

Answer 3

补充：这段代码应该放在按钮的click事件中

Answer 4

Dim s_filename As String           '文件路径及文件名
s_filename = App.Path & "\写入.txt"
Open s_filename For Input As #1
Combo1.Clear
Do While Not EOF(1)
   Line Input #1, linedata
   Combo1.AddItem linedata
Loop
Close #1
Combo1.ListIndex = 1这段代码实现，将"写入"文本文件的存放的内容，写回到combo1内