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中的数据来。麻烦各位···

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

答案：Line Input #1, s这句
错了

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


Line Input # ifile,s

其他：Close #file
 
这个删掉，再检查一下
"C:\Documents and Settings\Administrator\桌面\yqh.txt"
 
这个对不对 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

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

上一个：vb 如何只显示txt文件中指定开始内容和结尾内容中间的行
下一个：VB如何用SHELL函数再运行一个程序？