VB combo 增加选项和查询

下拉框可以在输入输入新的选项并保存 而且可以根据首个字符下拉框中列出符合的选项 如选项 AAA ABC BBB BAA 我输入CCC时 没有符合的，可以将CCC加入下拉框的选项 当我输入A 时 下拉框就只列出 AAA ABC

满意答案

Option Explicit
Dim apppath As String

Private Sub Combo1_LostFocus()
Dim i As Long, j As Integer, p As String
For i = 0 To Combo1.ListCount
If Combo1.List(i) = Combo1.Text Then
j = 1
Exit For
End If
Next
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
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