VB listbox查找里面指定的内容并显示在TEXT

Question

VB listbox 假设里面的内容为“
第1行1231321-45645646-fdsafjlk
第2行fdjsklfj-jdsfklas-jfldskjaf
行数不一定为N行，我比如说我指定查找dsfk 当在Listbox中找到有dsfk这一行并显示这一行的内容在text里 。意思就是只要有我指定的内容，把它所在的整行都显示出来！望高手指教！详细源码最好！

Answer 1

private sub Command1_Click()
dim i as Integer
for i=0 to list1.listcount-1
if instr(list1.list(i),"这里填入你要查找的内容")<>0 then
text1.text=list1.list(i)
exit for
end if
next i
end sub

Answer 2

private sub Command1_Click()
dim i%
for i=0 to list1.listcount-1
if instr(list1.list(i),"dsfk")<>0 then
text1.text=list1.list(i)
exit for
end if
next i
end sub本回答被提问者采纳