Question

VB6中Combo控件下拉列表显示.txt文件下的数据(按行显示出来)

Private Sub Form_Load()
Dim sfile As String
sfile = "C:\Documents and Settings\Administrator\桌面\yqh.txt"
Dim ifile As Integer
ifile = FreeFile
Open sfile For Input As #ifile
Do While Not EOF(ifile)
Line Input #1, s
Combo1.AddItem s1
Loop
Close #file
End Sub
我写的为什么读不出txt中的数据来。麻烦各位···

Answer 1

Line Input #1, s '读到变量S里
Combo1.AddItem s1　　　'从变量S1里取出

你说取得到东西吗？

养成先声明变量，后使用变量的习惯，就不会给查找错误带来困难了。
使用
Option Explicit

Private Sub Form_Load()
Dim sfile As String
sfile = "C:\Documents and Settings\Administrator\桌面\yqh.txt"
Dim ifile As Integer
ifile = FreeFile
Open sfile For Input As #ifile
Do While Not EOF(ifile)
Line Input #1, s
Combo1.AddItem s1
Loop
Close #file
End Sub

你再试试，就很容易找错误原因了。

Answer 2

Line Input #1, s这句
错了

你上面定义文件号为ifile
所以正确为

Line Input # ifile,s

追问

如果再次添加相同的内容的时候，就会msgbox（“此项已存在”），如何添加啊？

Answer 3

Close #file

这个删掉，再检查一下
"C:\Documents and Settings\Administrator\桌面\yqh.txt"

这个对不对