Question

哪位大虾帮我用VB6.0实现listview中查找的功能

我在form1里面有一个listview的控件，有四列N行数据，现在是可以添加大量的数据，但是需要一个查找的功能，点击一个button（查找）之后，弹出form4查找对话框，然后有text1，text2，text3，text4四个文本框，表示listview中的4列，为查找的条件，然后下面有一个确定。界面是这样子的。我的功能是要求在text中输入数据之后点击确定，可以把查找到的内容显示到listview的当前行。
哪位大虾帮我写一下代码，分数奉上。小弟很急~~~~~
是啊，就是选中的状态啊。因为可能有的数据不在当前显示范围内，所以需要定位一下。

Answer 1

Private Sub CommandButton1_Click()
Dim s As String, t As String, u As String, v As String

Dim j As Integer

j = 1
s = TextBox1.Text
t = TextBox2.Text
u = TextBox3.Text
v = TextBox4.Text
For i = 1 To UserForm1.ListView1.ListItems.Count
If UserForm1.ListView1.ListItems(i).Text = s Or _
UserForm1.ListView1.ListItems(i).SubItems(1) = t _
Or UserForm1.ListView1.ListItems(i).SubItems(2) = u _
Or UserForm1.ListView1.ListItems(i).SubItems(3) = v Then
UserForm1.ListView2.ListItems.Add , , UserForm1.ListView1.ListItems(i).Text
UserForm1.ListView2.ListItems(j).SubItems(1) = UserForm1.ListView1.ListItems(i).SubItems(1)
UserForm1.ListView2.ListItems(j).SubItems(2) = UserForm1.ListView1.ListItems(i).SubItems(2)
UserForm1.ListView2.ListItems(j).SubItems(3) = UserForm1.ListView1.ListItems(i).SubItems(3)
j = j + 1
End If
Next i
End Sub

UserForm1就是包含listview1的窗体.在listview1下面或左面新建一个listview2