求救VB6中如何把List1中包含的文字行复制到Text1中

来源：百度知道 编辑：UC知道 时间：2024/09/20 16:23:19
求救
麻烦那位高手教我在VB6中，
如何把List1中包含的文字比如，包含“经验”的这行复制到Text1中。
“D:\编程类\VB\vb经验技巧\22\0941”。
谢谢！
如何把List1列表中包含的文字的列。比如Text1中输入“经验”，就将包含“经验”的这行复制到Text2中如。
“D:\编程类\VB\vb经验技巧\22\0941”。
谢谢！

Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
If InStr(List1.List(i), Text1.Text) <> 0 Then
Text2.Text = Text2.Text & List1.List(i) & vbCrLf
End If
Next i
End Sub

记得把text2的multiline属性设置为true

自己领悟吧...:

Private Sub Form_Load()
List1.AddItem "D:\编程类\VB\vb经验技巧\22\0941"
List1.AddItem "C:\技术类\JAVA\经验\03\0808"
List1.AddItem "E:\学术类\技巧\11\0606"
Text1.Text = ""
End Sub

Private Sub List1_Click()
If InStr(1, List1.List(List1.ListIndex), "经验") <> 0 Then
Text1.Text = Text1.Text & List1.List(List1.ListIndex) & vbCrLf
End If
End Sub

vb好久不用啦.
不过应该思想和其它是一样的吧.
如下:
定义a
a=Text1.text
if list1.list==&a or list1.list==&a& or list1.list==a or list1.list==a&
then Text1.text=list1.list

不