哪位大虾帮我用VB6.0实现listview中查找的功能
我在form1里面有一个listview的控件,有四列N行数据,现在是可以添加大量的数据,但是需要一个查找的功能,点击一个button(查找)之后,弹出form4查找对话...
我在form1里面有一个listview的控件,有四列N行数据,现在是可以添加大量的数据,但是需要一个查找的功能,点击一个button(查找)之后,弹出form4查找对话框,然后有text1,text2,text3,text4四个文本框,表示listview中的4列,为查找的条件,然后下面有一个确定。界面是这样子的。我的功能是要求在text中输入数据之后点击确定,可以把查找到的内容显示到listview的当前行。
哪位大虾帮我写一下代码,分数奉上。小弟很急~~~~~
是啊,就是选中的状态啊。因为可能有的数据不在当前显示范围内,所以需要定位一下。 展开
哪位大虾帮我写一下代码,分数奉上。小弟很急~~~~~
是啊,就是选中的状态啊。因为可能有的数据不在当前显示范围内,所以需要定位一下。 展开
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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询