Question

vb中combox的问题：如何把text中输入的数据保存到电脑上，并在combox下拉列表框中显示出来！

Answer 1

'声明
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

Answer 2

private sub command1_click()
open "c:\1.txt" for input as #1
print #1,text1.text
close #1
combo1.additem text1.text
end sub

Answer 3

1.save to file
2.combo1.additem ss