关于Combobox

Question

Combobox中的内容如何导入到外部某文件,并且在程序再度打开时,此外部文件的内容还可以载入到Combobox中?望各位大大速度解答..谢谢!

Answer 1

写文件时，用WriteLine一行一行的处理；读文件时，用ReadLine一行一行的处理

Answer 2

Option ExplicitPrivate Sub Command1_Click()
        Combo1.AddItem "数据1"
        Combo1.AddItem "数据2"
        Combo1.AddItem "数据3"
        Combo1.AddItem "数据4"
        Combo1.AddItem "数据5"
        Combo1.AddItem "数据6"
End SubPrivate Sub Command2_Click()
        Dim FileNumber As Integer
        Dim i As Long
        On Error Resume Next
              
        If Dir("c:\ComBoxData.txt") <> "" Then Kill "c:\ComBoxData.txt"
        FileNumber = FreeFile
        Open "c:\ComBoxData.txt" For Output As #FileNumber
        For i = 0 To Combo1.ListCount - 1
            Debug.Print Combo1.List(i)
            Print #FileNumber, Combo1.List(i)  '& vbCrLf
        Next
        Close #FileNumber
End SubPrivate Sub Form_Load()
        Dim FileNumber As Integer
        Dim i As Long
        Dim MyValue As String
        On Error Resume Next
        
        Command1.Caption = "输入组合框数据"
        Command2.Caption = "保存组合框数据"
        Combo1.Text = ""
        
        If Dir("c:\ComBoxData.txt") = "" Then Exit Sub
        
        FileNumber = FreeFile
        Open "c:\ComBoxData.txt" For Input As #FileNumber
        Do While Not EOF(FileNumber)
           Line Input #FileNumber, MyValue
           Combo1.AddItem Trim(MyValue)
        Loop
        Close #FileNumber
End Sub

Answer 3

我不但需要输出内容,还需要把保存好的外部数据再重新写入到combobox中.. 等答案..

Answer 4

5楼 Form_Load 就是将已经存在的文件c:\ComBoxData.txt写入组合框项目中。