VB LISTBOX如何一行一行显示文本文件的内容，单击listbox一行这行内容显示到text1中
例如题：
如何将一个文本文件的内容（共29行）显示到listbox控件中，单击listbox某一行其内容显示到text1中并且删除其listbox相应的那一行
Private Sub Form_Load()
Dim s As String
Open "d:\abc\123.txt" For Input As #1 '文件名自己改
List1.Clear
Do Until EOF(1)
Line Input #1, s
List1.AddItem s
Loop
Close #1
End Sub
Private List1_Click()
Text1.Text = Text1.Text & List1.Text
List1.RemoveItem List1.ListIndex
End Sub
Dim s As String
Open "d:\abc\123.txt" For Input As #1 '文件名自己改
List1.Clear
Do Until EOF(1)
Line Input #1, s
List1.AddItem s
Loop
Close #1
End Sub
Private List1_Click()
Text1.Text = Text1.Text & List1.Text
List1.RemoveItem List1.ListIndex
End Sub
温馨提示：内容为网友见解，仅供参考
第1个回答 2014-05-29
放一个listbox 和一个text1,然后粘贴如下代码，（记得修改文本文件名称哦）
Private Sub Form_Load()
Dim DataValue() As Long
Dim i As Integer
Open "c:\1.txt" For Input As #1 '注意修改这里的文件名哦
Dim maxnum As Long
Do Until EOF(1) = True
Dim tmp As String
Input #1, tmp
List1.AddItem tmp
Loop
End Sub
Private Sub List1_Click()
If List1.ListCount > 0 Then
Text1.Text = List1.List(List1.ListIndex) '添加到文本框中
List1.RemoveItem (List1.ListIndex) '移除
End If
End Sub本回答被网友采纳
Private Sub Form_Load()
Dim DataValue() As Long
Dim i As Integer
Open "c:\1.txt" For Input As #1 '注意修改这里的文件名哦
Dim maxnum As Long
Do Until EOF(1) = True
Dim tmp As String
Input #1, tmp
List1.AddItem tmp
Loop
End Sub
Private Sub List1_Click()
If List1.ListCount > 0 Then
Text1.Text = List1.List(List1.ListIndex) '添加到文本框中
List1.RemoveItem (List1.ListIndex) '移除
End If
End Sub本回答被网友采纳
相似回答
