关于VB控件LISTBOX的问题

Question

请问各位高手如何用通用对话框控件或文件列表框控件加载选定的文件到文件列表框控件当中.应该用语句呢.我用了很多方法都不成功.请高手给出详细的命令语名格式.
帮帮忙吧.谢谢!

Answer 1

Private Sub Command1_Click()
Dim data As String
Dim filenum As Long
On Error GoTo err1
CommonDialog1.ShowOpen
CommonDialog1.Filter = "*.*|*.txt"
Open CommonDialog1.FileName For Input As #1
    List1.Refresh
 Do While Not EOF(1)
    Line Input #1, data
    List1.AddItem data
 Loop
    Close #1
err1:
  'MsgBox "打开文件错误"
  Exit Sub
End SubPrivate Sub Command2_Click()
Dim i As Long
 f = Trim(InputBox("请输入要找的数据"))
 For i = 0 To List1.ListCount - 1
  If StrComp(List1.List(i), f) = 0 Then
     List1.ListIndex = i
     Exit For
  End If
 Next i
 
End Sub
这个玩艺有个BUG 数据不能载入太多