Private Sub Form_Load()
Dim x As String
Open App.Path & "\test.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, x
Combo1.AddItem Trim(x)
Loop
Close #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "\test.txt" For Output As #1
For i = 0 To Combo1.ListCount - 1
Print #1, , Combo1.List(i)
Next
Close #1
End Sub
'放两个combox,一个command
Private Sub form_load()
Combo1.AddItem "2001"
Combo1.AddItem "2002"
Combo1.AddItem "2003"
Combo1.AddItem "2004"
Combo1.Text = "2003"
Open "c:\test.txt" For Output As #1
For i = 0 To Combo1.ListCount - 1
Print #1, Combo1.List(i)
Next i
Close #1
If Dir("c:\test.txt") <> "" Then
Open "c:\test.txt" For Input As #1
While Not EOF(1)
Line Input #1, txt
Combo2.AddItem txt
Wend
Close #1
Combo2.Text = Combo2.List(0)
End If
End Sub