北京古装拍摄:vb-combo控件问题

给你一个完整代码吧。

以下代码需要在窗体上放置一个Combo1控件，一切按默认属性，再加一个按钮。因为代码是在Combo1失去焦点时才进行添加数据操作，所以加了一个按钮，当在Combo1中完成输入，点击按钮即开始保存数据。你实际应用时可以没有这个按钮，用户只要输入完成数据进行其它操作即会引发Combo1失去焦点事件而保存数据，这些都是自动的，所以让你加一个按钮是为你测试方便。

Option Explicit
Dim apppath As String

Private Sub Combo1_LostFocus()
Dim i As Long, j As Integer, p As String
这行是注释，以下为检查Combo1内是否有重复项目，无就添加
For i = 0 To Combo1.ListCount
If Combo1.List(i) = Combo1.Text Then
j = 1
Exit For
End If
Next
这行注释：如果无重复项目，向Combo1中添加数据，向文件中保存当前Combo1的项目便于下次启动时加载
If j = 0 Then
Combo1.AddItem Combo1.Text
For i = 1 To Combo1.ListCount
p = p & Combo1.List(i - 1) & Chr(13) & Chr(10)
Next
Open apppath & "myfile.ini" For Output As #1
Print #1, Left(p, Len(p) - 2)
Close #1
End If
End Sub

Private Sub Form_Load()
Dim p As String
这行注释：取得当前路径
If Right(App.Path, 1) <> "\" Then
apppath = App.Path & "\"
Else
apppath = App.Path
End If
这行注释：从文件中读信息写入Combo1中
On Error GoTo cuowu
Open apppath & "myfile.ini" For Input As #1
Do
If EOF(1) Then Exit Do
Line Input #1, p
Combo1.AddItem p
Loop
Close #1
cuowu:
End Sub

费了半天尽也得不到分，没办法，帮吧。