vb程序中combo控件中用additem添加了几个选项后，在下次重启该程序时如何让combo中仍有上次添加的那几项

Question

我的想法是在退出程序之前把combo中的项目储存到一个文件中，在下一次启动程序的时候combo自动读取该文件中的项目。请高手能给出一个范例的代码。不管怎样，只要能帮我在第二次启动程序后combo中仍有上次关闭程序前输入的项目就行。在生成exe文件后，每次运行一次程序都要自己往里面把上次添加的项目再输入一遍就太麻烦了。谢谢大家了~

Answer 1

Private Sub Form_Load()
If Dir("c:\test.txt") = "" Then Exit Sub
Combo1.Text = ""
Dim MyString As String
Open "c:\test.txt" For Input As #1
Do While Not EOF(1)
DoEvents
Line Input #1, MyString
Combo1.AddItem MyString
Loop
Close #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
Open "c:\test.txt" For Output As #3
For i = 0 To Combo1.ListCount - 1
Print #3, Combo1.List(i)
Next i
Close #3
End Sub

追问

您这个代码写得很好，我可以单独分开实现，我还想问一下您，如何在写入txt之前把txt里面原有的内容清空？就是在这段代码之前
For i = 0 To Combo1.ListCount - 1
Print #3, Combo1.List(i)
Next i
Close #3
End Sub
插入一个把tet.txt清空的语句谢谢了~

追答

Open "c:\test.txt" For Output As #3
Print #3, “”
Close #3
这样就清空了。
选满意答案么？

Answer 2

如下面这段代码

Dim DwgPath As String
Dim iniFile As String
Dim IniLine As String

iniFile = App.Path & "\abc.txt" ‘你的列表放的位置,建议后缀用ini

Open iniFile For Input As #1
Do While Not EOF(1)
Line Input #1, IniLine
if IniLine<>"" then ListBox1.AddItem LinLen ’把文本文件中的内容按行输入到ListBox1中
Loop
Close #1

追问

但是如何把ListBox1中内容输入到文本内容中呢？您只告诉我了读入，但是必须先将ListBox1中内容储存到abc.txt中后才能执行您给我的这段代码呀。您能帮我再写一个配套的combo中的项目存储入txt中的代码吗？谢谢了~

追答

给你一段我的程序参考，读写改都有的；

运用于CAD上的，没有CAD，也可以对列表进行操作的！

追问

谢谢了~我认真研究一下，如果我成功了，立马把分给您~

追答

嗯 ，注意，我那个列表与dwg文件挂勾的，没有dwg文件也不会加载在ListBox1里面；用的时候注意一下！或把dwg关联的代码删掉！

文件尾加入内容
Open AddiniPath For Append As #1
Print #1, "加入的内容"
Close #1

你这个可以双击表框打开 ini文件或txt文件，手动改列表就好了，下次也是存好的!
方法：
Shell "notepad.exe D:\Excel\ModifyRecord.ini", vbNormalFocus

D:\Excel\ModifyRecord.ini为你的列表文件，或D:\Excel\ModifyRecord.txt

我说的ini文 件就是配置文件！

Answer 3

Private Sub Form_Load()
Combo1.Text = ""
If Dir(App.Path & "\ComboSave.txt") <> "" Then
Dim ListAdd As Integer, Item() As String, ComboSaved As String
Open App.Path & "\ComboSave.txt" For Input As #Read
ComboSaved = Input(LOF(Read), 1)
Close #Read
Item = Split(ComboSaved, vbCrLf)
For ListAdd = 1 To UBound(Item)
Combo1.AddItem Item(ListAdd)
Next ListAdd
Else
Exit Sub
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim ListSave As Integer
Open App.Path & "\ComboSave.txt" For Output As #Save
For ListSave = 1 To Combo1.ListCount
Print #Save, Combo1.List(ListSave)
Next ListSave
Close #Save
End Sub

上面的代码实现运行时自动添加项目，退出是保存项目。
如果清空文件，可以直接使用删除：
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "cmd.exe /c del " & App.Path & "\ComboSave.txt"
Open App.Path & "\ComboSave.txt" For Output As #Empty
Print #Empty, ""
Close #Empty
希望我能帮助到你。

Answer 4

配置文件?

追问

什么叫配置文件？我就是想在form_unload的时候把combo中项目写入txt文件中，让后下一次form_load的时候再把txt中项目加载到combo中。

追答

INI 文件以key=value的方式存取

Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal AppName As String, ByVal KeyName As String, ByVal keydefault As String, ByVal Filename As String) As Long
用这两个读写,代码自己搞定吧,给你个例子吧
Private Function GetSet(F As String, nApp As String, nKey As String) As String
'读取某条目的设置
Dim nStr As String, nSize As Long, S As Long
nSize = 1024
nStr = String(nSize, 0)
S = GetPrivateProfileString(nApp, nKey, "", nStr, nSize, F)
S = InStr(nStr, vbNullChar & vbNullChar)
If S > 0 Then nStr = Left(nStr, S - 1)
GetSet = nStr
End Function
Public Sub SaveSet(strSection As String, strKey As String, strValue As String, strINI As String)
'保存配置文件
WritePrivateProfileString strSection, strKey, strValue, strINI
End Sub
Private Sub Command2_Click()
Dim strValue As String
strValue = GetSet("c:vb-test.ini", "OK", "isOK")
MsgBox strValue
End Sub
Private Sub Command3_Click()
SaveSet "OK", "isOK", "dfafdadfa", "c:vb-test.ini"
End Sub