VB如何使用filelistbox和listbox来读取显示文本

来源：百度知道 编辑：UC知道 时间：2024/05/14 12:41:09
现有一个窗体，左面放置filelistbox来显示一个文件夹下的所有文本文件，右面放置一个listbox窗体。下面有三个command按钮，一个“修改”，一个“删除”，一个“退出”。现在要求如下：
左面filelistbox窗体显示众多文本文件，然后鼠标点击一个文本文件时，右面listbox内能够显示所选文本文件中的内容，点击“修改”按钮时，则使用记事本打开此文本文件，点击删除，则删除此文本文件，退出则关闭此窗体。小弟新学VB，请各位高手能够将代码写出来，最好能够给点解释，呵呵。谢谢各位了。
文本文件内的数据是一行一行的，数据也不多，但我希望在listbox中显示的时候，也要跟文本文件内一样的显示，一段数据是一行，谢谢.还请问，如果转换成ocx控件，该注意什么

Private Sub Command1_Click()
Dim TxtFileName$
If File1.ListIndex > 0 Then
TxtFileName = File1.Path & "\" & File1.List(File1.ListIndex)
Shell "notepad " & TxtFileName, 1
End If
End Sub

Private Sub Command2_Click()
Dim TxtFileName$
If File1.ListIndex > 0 Then
TxtFileName = File1.Path & "\" & File1.List(File1.ListIndex)
Kill TxtFileName
End If
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub File1_Click()
Dim a$
List1.Clear
Open File1.Path & "\" & File1.List(File1.ListIndex) For Input As #1
Do While Not EOF(1)
Line Input #1, a
If a <> "" Then List1.AddItem a
Loop
Close #1
End Sub

Private Sub Form_Load()
File1.Path = "D:\file\"
Command1.Caption = "修改"
Command2.Caption = "删除"
Command3.Capti