在vb的组合框(combox)输入一部分怎样找到相
发布网友
发布时间:2024-01-16 23:42
我来回答
共1个回答
热心网友
时间:2024-08-29 11:05
Dim i As Integer
Dim strTxt As String
'按钮事件,将文本框的文字添加进组合框并保存到电脑上
Combo1.AddItem Text1.Text
Open App.Path & "\文件.txt" For Output As #1
For i = 0 To Combo1.ListCount - 1
Print #1, Combo1.List(i)
Next i
Close #1
'窗体加载事件,读取保存到电脑上的文件并将其内容重新添加进组合框
If Dir(App.Path & "\文件.txt") <> "" Then
Open App.Path & "\文件.txt" For Input Access Read As #1
Do While Not EOF(1)
Line Input #1, strTxt
Combo1.AddItem strTxt
Loop
Close #1
End If